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IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 
1800-2841 TWO CHANNEL SWITCH FUNCTION TEST 



DATE 
EC NO. 



012C 





0120 





012E 





012F 





0130 





0131 





0132 





133 





0134 






07FF 





1300 


0800 





0001 


oaoi 





0000 


0008 







0009 







000A 







OOOA 


p 




000B 


p 




oooc 







0000 


p 




000E 







000F 







0802 





0000 


0803 





0000 


0804 





FFOO 


0805 





0000 


08 06 


1 


09C3 


0807 


1 


0907 


0808 


1 


09F3 


0809 







0809 





oooo 


080A 





0000 


0808 





0000 


080C 





FFFF 


08 00 


1 


19E2 


080E 





0000 


08 OF 





0000 


0810 





oooo 


0811 





0000 


0812 





oooo 


0813 





oooo 


0814 





oooo 


0815 





oooo 



* PROGRAMMER - M.L.BRANDES PHONE EXT. 6236 
* 
*************************************************** 

* 
*************************************************** 
* 

« 1800 MONITOR INTERFACE 

* 
♦♦♦♦♦a********************************************* 

* * 
*************************************************** 
BEGIN EQU 300 

BEGIN+l 

START+1 

END+1 

LOG+1 

ERROR+1 

REQDV+1 

RELDV+1 

CRCK+1 



START EQU 
END EOU 
LOG EOU 
ERROR EQU 
REQDV EQU 
RELOV EQU 
CROC EOU 
MATO EQU 



14N0V69 
431319 



ORG 



•+/07FF ORIGIN OF PGM 
MONITOR INTERFACE TABLES 



TPIO DC 
TSID DC 
TSAD DC 



/1300 

1 




SECTION ID 

SECTION PREFACE ADDRESS 



OLPST EQU 
OSALC EQU 
OPRRS EOU 
OTTLE EQU 
ORTRY EQU 
OLPER EQU 
OBYPR EQU 
OHALT EOU 
OCHLT EOU 
* 

TSWO DC 

TSW1 DC 

TSW2 DC 

TSW3 DC 

I PA DC 

LPA DC 

EPA DC 

MLSCF EQU 

MLSCO DC 

MLSC1 DC 

MLSC2 DC 

TERM DC 

DC 

DC 

DC 

DC 

DC 

DC 

TLGED DC 

TSCEO DC 

TRID DC 



EQUATES FOR TSWO SWITCH OPTIONS 



8 

9 

10 

10 

11 

12 

13 

14 

15 





/FFOO 



ZIPA 

2LPA 

ZEPA 

* 





o 

/FFFF 

PEND 







o 








LOOP SIO.TIO 

SEEK ALIGNMENT CYLINDER 

PRINT RESULTS 

PRINT RTN TITLES 

RETRY SIO 

LOOP ERROR 

BYPASS ALL PRINTOUTS 

HALT ON ERROR 

CLEAR ERROR HALT 

SELECT OPTIONS 
SELECT SECT AND RTN 
UNIT ADDRESS 

IN1T PRGM ADDRESS 
LOOP PRGM ADDRS 
END PRG ADDRS 
MONITOR CONTROL FIELD 
ENTRY ZERO 

ONE 

TWO 

LAST ADDRS 

WORDS FOR MONITOR USE 



* 

* 

LOG EDIT 

SEL CHANNEL EO IT 

ROUTINE ID 



*************************************************** 

* * 
*************************************************** 
* 

* TABLE OF CONSTANTS 

*************************************************** 



PART NO. 22794S6 
PAGE 1 



81300020 

81300030 

81300040 

81300050 

81300060 

81300070 

81300080 

81300090 

81300100 

81300 110 

81300120 

81300130 

81300140 

81300150 

81300160 

81300170 

81300180 

81300190 

81300200 

81300210 

81300220 

81300230 

81300240 

81300250 

81300260 

81300270 

81300280 

81300290 

81300300 

81300310 

81300320 

81300330 

81300340 

81300350 

81300360 

81300370 

81300380 

81300390 

81300400 

81300410 

81300420 

81300430 

81300440 

813004S0 

81300460 

81300470 

81300480 

81300490 

81300500 

81300510 

81300520 

81300530 

81300540 

813005S0 

81300560 

81300570 

81300580 

81300590 

81300600 

81300610 

81300620 

81300630 

81300 640 

813006S0 

81300660 

81300670 

81300680 

81300690 



30JAN70 
431319A 



PROG ID 
PAGE 



0813-0 
1 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 
1800-2841 TWO CHANNEL SWITCH FUNCTION TEST 



PART NO, 2279456 
PAGE 1A 
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b 

o 
o 
o 
o 
o 
o 
o 
o 
o 



o 
o 
o 
o 
o 
o 
o 
o 
o 
o 

© 

o 



o ! 

O I 

o I 

I ■ 

O ; 

o I 

o [ 

o I 

o i 

O ! 

o i 

o ! 



O j O 

o i o 



O : 
o i 

o , 

I 

O ! 

; 
O ! 

i 

o ! 
o ; 
o ! 

o ! 

I 

! 

O ; 



as********************** 



DATE 
EC NO. 



*************************** 81300 70 

81300710 



087K 


TB EQU 


TPID+128 


SO TBL CAN REACH PST TBL 


81300720 


0816 0001 


Kl DC 


1 


CONSTANT ONE 


81300730 


0817 0002 


K2 DC 


2 


CONSTANT 


81300740 


0818 0003 


K3 DC 


3 


CONSTANT 


81300750 


0819 0004 


K4 DC 


4 




81300760 


081A 0006 


K6 DC 


6 


CONSTANT 


81300770 


081B 0008 


K8 DC 


8 


CONSTANT 


81300780 


081C 0009 


K9 DC 


9 




81300790 


081D OOOA 


K10 DC 


10 




81300800 


081E 0014 


K20 DC 


20 




81300810 


081F 0064 


K100 DC 


100 




81300820 


0820 03E8 


K1000 DC 


1000 




81300830 


0821 OOOA 


HOOOA DC 


/OOOA 


CONSTANT 


81300840 


0822 000E 


HOOOE DC 


/OOOE 




81300850 


0823 OOOC 


HOOOC DC 


/oooc 




81300860 


0824 0010 


H0010 DC 


/0010 




81300870 


0825 00 11 


HOO 1 1 DC 


/001 1 




81300880 


0826 0013 


H0013 DC 


/0013 


CONSTANT 


81300890 


0827 0020 


H0020 DC 


/0020 




81300900 


0828 0027 


H0027 DC 


/0027 


CONSTANT 


81300910 


0829 0050 


H0050 DC 


/OOSO 


CONSTANT 


81300920 


082A OOFF 


HOOFF DC 


/OOFF 


LINE TERMINATOR 


81300930 


082B 0100 


HO 100 DC 


/0100 


CONSTANT 


81300940 


082C 0200 


H0200 DC 


/0200 


CONSTANT 


81300950 


082D 0400 


H0400 DC 


/0400 


CONSTANT 


81300960 


082E 0500 


H0500 DC 


/0500 


CONSTANT 


81300970 


082F 0700 


H0700 DC 


/0700 


CONSTANT FOR SENSE OSW IOC 


81300980 


0830 OAOO 


HOAOO DC 


/OAOO 




81300990 


0831 1206 


H1206 DC 


/1H06 




81301000 


0832 2100 


H2100 DC 


/2100 




81301010 


0833 2106 


H2106 DC 


/21 06 




81301020 


0834 3000 


H3000 DC 


/3000 




81301030 


0835 4000 


H4000 DC 


/4000 


CONSTANT 


81301040 


0836 7FFF 


H7FFF DC 


/7FFF 




81301050 


0837 80 10 


H8010 DC 


/eoio 




81301060 


0838 8106 


H8106 DC 


/SI 06 




81301070 


0839 8107 


H0107 DC 


/8107 




81301080 


083A F000 


HFOOO DC 


/FOOO 




81301090 


083B FFOO 


HFFOO DC 


/FFOO 




81301100 


083C 0000 


INTFA DC 


*-* 


PRIMARY INTF ADDR 


81301110 


083D 0000 


INTFB DC 


*-* 


SECONDARY INTF ADDR 


81301120 


083E 0000 


CNTDN DC 







81301130 


083F OOOO 


TSCTN DC 


*-* 


SECTION NUMBER 


81301140 


0840 OOOO 


TRTNN DC 


*-* 


ROUTINE NUMBER 


81301150 


084 1 OOOO 


>TCNSW DC 





ERROR SWITCH FOR RTNS 


81301160 


0842 0000 


TCVS1 DC 







81301170 


0843 0000 


TCVS2 DC 







81301180 


0844 0000 


CAWSV DC 


*-* 


CCW ADDRESS SAVE AREA 


81301190 


0846 0002 


ERTSV BSS E 


2 


SENSE INFO SAVE 


81301200 


0848 0002 


TYP2 PRNT 


.SIO.. 




81301210 


084A 0002 


TYP3 PRNT 


.SNS.. 




81301220 


084C 0002 


PCAW PRNT 


• CAW . 




81301230 


084E 0002 


PCSW PRNT 


.CSW . 




81301240 


0850 0002 


PSNS PRNT 


. SNS. 




81301250 


0652 0001 


SPACE PRNT 


. . 


SPACES IN 43 CODE 


81301260 


0853 OOOO 


DVADR DC 


*-* 


DEVICE ADDRESS TO BE TESTED81301270 


0854 0000 


LGBSY DC 


*-* 


LOG ROUTINE BUSY SWITCH 


81301280 


0855 0000 


SIOSW DC 


*-* 


FOR SIO RTN 


81301290 


08S6 0000 


PASSW DC 


*-* 


USED TO TEST FOR ERROR 


81301300 


0857 0001 


PSCNT DC 


1 


PASS COUNTER 


81301310 


0858 OOOO 


STKSW DC 





SWITCH FOR RE-ENTRANCE 


81301320 


0859 OOOO 


TIOSW DC 





TEST 10 SW 


81301330 


08SA OOOO 


T45SW DC 





0= NOT CALLED 


81301340 




• 




1=1443 


81301350 




* 
* 




2=1053/1816 


81301360 
81301370 



14N0V69 
431319 



30JAN70 

431319A 



PROG ID 
PAGE 



0813-0 
1A 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 
1800-2841 TWO CHANNEL SWITCH FUNCTION TEST 



0858 0000 
03SC 1 4C00 0A41 

08SE 0000 

085F 1 4C0O 170A 

0861 0000 

0862 1 4C00 14F2 

0864 0000 

0865 1 4C00 1400 

0867 0000 

0868 1 4C00 15E7 

0S6A 0000 
0868 1 4C00 14FA 

0860 0000 

086E 1 4C00 1686 

0870 0000 

0871 1 4C00 1929 

0873 0000 

0874 1 4C00 1947 

0876 0000 

0877 1 4C00 1627 

0879 0000 
087A 1 4C00 09A2 

087C 0000 
0870 1 4C00 1S7C 

087F 0000 

0880 1 4C0O 17E4 

0882 0000 

0883 1 4C00 19SB 

0885 0000 

0886 1 4C00 1968 

0888 0000 

0889 1 4C00 14A9 

088B 0000 
088C 1 4C00 14BI 

088E 0000 
088F 1 4C00 14BA 

0891 0000 

0892 1 4C00 14C1 



CNTRL 


DC 




*-* 




BSC 


L 


TCNTE 


* 








ER0UT 


DC 




*-* 




BSC 


L 


ERTNE 


* 








FREOV 


DC 




*-* 




BSC 


L 


PROVE 


* 








GETOV 


DC 




*-* 




esc 


L 


GT0VE 


3 








GETSN 


DC 




*-* 




BSC 


L 


GTSNS 


* 








SIO 


0C 




*-* 




BSC 


L 


SIONT 


* 








STMLS 


DC 




*-* 




BSC 


L 


STMLE 


* 








TCVBE 


DC 




*-* 




BSC 


L 


TCVBN 


* 






„ 


TCVHD 


DC 




»-* 




BSC 


L 


THEXO 


* 








THALT 


DC 




»-* 




BSC 


L 


THLTE 


* 








WAITS 


DC 




*-* 




BSC 


L 


TINTS 


* 








TIO 


DC 




*-* 




BSC 


L 


TI0NT 


* 








TLGMS 


DC 




*-* 




BSC 


L 


TLGME 


* 








TLPER 


OC 




*-* 




BSC 


L 


TERLP 


* 








TLPST 


DC 




*-* 




BSC 


L 


TSTLP 


* 








M000A 


DC 




*-* 




B 


L 


MODEA 


* 








M00OB 


DC 




*-* 




B 


L 


MOOEB 


* 








CLRST 


DC 




*-» 




B 


L 


CLSET 


* 








DELAY 


DC 




»-* 




B 


L 


OLA YE 



CONTROL ROUTINE 
GO TO ROUTINE 



ERROR PRINTOUT ROUTINE 
GO TO RTN 



RELEASE CHANNEL ROUTINE 
GO TO ROUTINE 



CHANNEL ROUTINE 
GO TO ROUTINE 



GET DEVICE SENSE INFO 
GO TO ROUTINE 



START I/O ROUTINE 
GO TO RTN 



SET MLSCF ROUTINE 
GO TO RTN 



CONVERT HEX TO 1443 
GO TO RTN 



CONVERT HEX TO DEC 
GO TO RTN 



ENTRY POINT 
GO TO RTN 



WAIT FOR INT ROUTINE 
GO TO RTN 



TEST I/O 
GO TO RTN 



PRINT RTN 
GO TO RTN 



TEST LOOP ON ERROR 
GO TO RTN 



TEST LOOP START I/O 
GO TO RTN 



GET SEL CHNL FOR CHNL A 
GO TO RTN 



GET SEL CHNL FOR CMNL B 
GO TO RTN 



CLEAR WIOSW AND SET SIO SW 
GO TO RTN 



DELAY 30 SECONDS 



*************************************************** 

* * 
*************************************************** 
* 

* EQUATES ANO CONSTANTS FOR CCW'S 
* 
*************************************************** 

* • 
*************************************************** 



PART NO. 2279456 
PAGE 2 



81301380 
81301390 
81301400 
81301410 
81301420 
81301430 
81301440 
81301450 
81301460 
81301470 
81301480 
81301490 
81301500 
81301510 
81301520 
81301530 
81301540 
81301550 
81301560 
81301570 
81301580 
81301590 
81301600 
81301610 
81301620 
81301630 
81301640 
81301650 
81301660 
81301670 
81301680 
81301690 
81301700 
81301710 
81301720 
81301730 
81301740 
81301750 
81301760 
81301770 
81301780 
81301790 
81301800 
81301810 
81301820 
81301830 
81301840 
61301850 
81301860 
81301870 
81301680 
81301690 
81301900 
81301910 
81301920 
81301930 
81301940 
81301950 
81301960 
81301970 
81301980 
81301990 
81302000 
81302010 
81302020 
81302030 
81302040 
81302050 



DATE 
EC NO. 



14N0V69 
431319 



30JAN70 
431319"***"' 



PROG ID 
PAGE 



0613-0 

2 



o 


o 


o 


o 


' o 


o 


o 


o 


' Q 


o 


o 


o 


" o 


o 


: o 


o 


j ° 


o 


o 


o 


! o 


o 


! O 





1 o 


o 


1 o 


o 


! ° 


o i 


o 


o ■; 


o 


o 


; o 


o ; 


o 


O : 

1 


o 


o ; 


o 


1 
O : 


: ° 


o 1 

1 


1 ° 


o I 


I o 

1 


o 


i ° 


o ' 

1 


jo. 

f 


°! 


o 


o 


I o 

I 


o 


! o 


! 
O ; 


1 

| o 


1 

O i 

1 


!° 


© i 

j 


i o 

i 


■ © 


© 


' © I 



IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 
1800-2841 TWO CHANNEL SWITCH FUNCTION TEST 



PART NO. 2279456 
PAGE 2 A 



FLAGS 



DATE 
EC NO. 



0080 

0040 

0020 

0008 

00 10 



0000 





0001 





0002 





0003 





0005 





0006 





0004 





0007 





0011 





0008 





000B 





0013 





0012 





001A 





001E 





000E 





000D 





0016 





009A 





001B 





0039 





0031 





001F 





001D 





0019 





0015 






0000 
0001 
0002 
0003 
0004 
0005 
0006 
0007 
0008 



0008 
0009 
000A 
OOOB 
OOOC 
0000 



14N0V69 
431319 



30JAN70 

431319A 



data chaining 
command chaining 
suppress incorrect lng 

SKIP BIT 

PGM CONTROLLED INTERRUPT 



TEST I/O 

WRITE OP CODE 

READ OP CODE 

NO-OP 

WRITE DATA 

READ DATA 

SENSE I/O 

SEEK CYLINDER 

ERASE RECORD 

TRANSFER IN CHANNEL 

SEEK BIN 

RECALIBRATE 

RD COUNT 

READ HOME ADDRESS 

RD COUNT KEY DATA 

RD KEY DATA 

WR KEY DATA 

READ RECORD ZERO 

READ HA MULT1 TRACK 

SEEK HEAD 

SEARCH HA 

SEARCH ID 

SET FILE MASK 

WRT CNT, KEY. DATA 

WRITE HA 

WRITE RECORD 



*************************************************** 

* * 
*************************************************** 
* 

* EQUATES FOR CHANNEL STATUS DSW'S 



UNIT NOT OPERATIONAL 

UNIT STATUS PENDING 

PGM CNTRL INT. 

PGM CHECK 

DATA CHECK 

INTERFACE CNTRL CHECK 

INCORRECT LENGTH INDICATOR 

ADAPTER BUSY 

UNIT OPERATIONAL 



*************************************************** 



FLDCH 


EQU 


/SO 


FLCCH 


EOU 


/40 


FLSLI 


EQU 


/20 


FLSKP 


EQU 


/08 


FLPCI 

* 

* 

* 

OPT 10 


EQU 


/!0 


OP CODES 


EQU 


/OO 


OPWR 


EQU 


/01 


OPRD 


EQU 


/02 


OPNOP 


EQU 


/03 


WRDAT 


EQU 


/OS 


RDOAT 


EQU 


/06 


OPSNS 


EQU 


/04 


SEEKC 


EQU 


/07 


ERASE 


EQU 


/ll 


OPTIC 


EQU 


/08 


SEEKB 


EQU 


/OB 


RCAL 


EQU 


/13 


RDCNT 


EQU 


/12 


RDHA 


EQU 


/1A 


RDCKD 


EOU 


/IE 


RDKD 


EQU 


/OE 


WRKD 


EQU 


/OD 


RDRO 


EOU 


/16 


ROHMT 


EQU 


/9A 


SKHD 


EQU 


/IB 


SRCHA 


EQU 


/39 


SRCID 


EQU 


/31 


SFILM 


EQU 


/IF 


WRCKD 


EQU 


/ID 


WRHA 


EQU 


/19 


WRRO 


EQU 


/IS 



SCUNO 


EQU 





SCUSP 


EOU 


1 


SCPCI 


EQU 


2 


SCPCK 


EQU 


3 


SCOCK 


EQU 


4 


SCICC 


EOU 


5 


SCILG 


EQU 


6 


SCABZ 


EQU 


7 


SCUOP 


EQU 


8 



************** 

4************* 

* 

************** 



************************************* 
************************************* 



************************************* 
FOR UNIT STATUS DSW 



UNATN EQU 
UNSMD EOU 
UNCUE EQU 
UN8ZY EOU 
UNCHE EOU 
UNDVE EOU 



8 

9 

10 

11 

12 

13 



UNIT STATUS-ATTENTION 
STATUS MODIFIER 
CONTROL UNIT END 
UNIT BUSY 
CHANNEL ENO 
DEVICE END 



81302060 

81302070 

81302080 

81302090 

81302100 

81302110 

81302120 

81302130 

81302140 

81302150 

81302160 

813021 70 

81302180 

81302190 

81302200 

81302210 

81302220 

813022 30 

81302240 

81302250 

81302260 

61302270 

8130 2260 

81302290 

81302300 

81302310 

81302320 

81302330 

81302340 

81302350 

81302360 

81302370 

81302380 

81302390 

81302400 

81302410 

81302420 

81302430 

61302440 

61302450 

81302460 

81302470 

81302480 

81302490 

81302500 

61302510 

61302520 

81302530 

81302540 

813025S0 

81302560 

81302570 

81302580 

81302590 

81302600 

81302610 

81302620 

81302630 

81302640 

813026S0 

81302660 

81302670 

61302680 

81302690 

81302700 

61302710 

81302720 

81302730 



PROG 10 
PAGE 



0813-0 
2A 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 
1800-2841 TWO CHANNEL SWITCH FUNCTION TEST 



DATE 
EC NO. 



000E 
000F 



0004 







0005 







0007 







0009 







000A 







O00C 







0010 







0012 







001S 







00 18 







0019 







00 1 A 







0010 







001F 







0894 





0001 


0895 





2003 


0896 


1 


0897 


0897 





0001 


0898 





2013 


0899 


1 


089A 


089A 





0001 


08 9B 





2000 


089C 


1 


0890 


089D 





0000 


089E 





0006 


08 9F 





0004 


08A0 


1 


08A2 


08A2 




0004 


08A2 







08A3 







08A4 







08AS 







08 A6 


1 


089A 


08A7 





0000 


08A8 





0000 


08A9 





0000 


08AA 


1 


089E 


08AB 





0000 


08 AC 





0000 


08AO 





0000 


08 AE 





0000 


08AF 





0000 


08B0 





ocoo 


08B1 





0000 


0882 





0000 


0883 





0000 


0884 





0000 


08BS 





0000 


08 B6 





0000 


08B7 





0000 


08 B8 





0000 



14N0V69 
431319 



30JAN70 
431319A 



UNCHK 
UNEXC 

***** 



E0U 

ecu 

******** 



************* 



14 UNIT CHECK 

15 UNIT EXCEPTION 

************************************** 

* 
************************************** 

FOR 2311 SENSE BYTES 



FBRST 
F0VRN 
FSKCK 
FTROV 
FEOCY 
FN0RC 
FUNSF 
FSERD 
FUNSL 
FDR0Y 
FONLN 
FUNS I 
FECYL 
FSKIN 



E0U 
EOU 
E0U 
EOU 
EQU 
EQU 
EQU 
EOU 
EOU 
EOU 
EOU 
EOU 
EOU 
EQU 



DC 
DC 
DC 



DC 
DC 
DC 



DC 
DC 
DC 



4 

S 

7 

9 

10 

12 

16 

18 

21 

24 

25 

26 

29 

31 



(BURST) DATA CK 
CHANNEL/2841 OVERRUN 
SEEK CK 

END OF CYLINDER 
NO RECORD FOUND 

SERDES CHECK 

DRIVE READY 

UNSAFE 

END OF CYLINDER 

SEEK INCOMPLETE 



SNCCW 


DC 


6 




DC 


0*256+0 


* 
SNWDS 


DC 


SNWDS 


BSS E 4 


SNWD0 


EOU 


SNWDS 


SNWOl 


EOU 


SNWDS+1 


SNWD2 


EOU 


SNWOS+2 


SNWD3 


EOU 


SNWDS+3 


TIOXX 


DC 


TSCCW 




DC 


*-* 


HI0XX 


DC 


*-* 




DC 


*-* 


SENSE 


DC 


SNCCW 




DC 


*-» 


S10XX 


DC 


*-* 




DC 


*-* 


SCSN0 


DC 


*-* 




DC 


*-* 


SCSN1 


DC 


*-* 




DC 


*-* 


SCSN2 


DC 


*-» 




DC 


*-* 


SCSN3 


DC 


»-* 




DC 


*-* 


SCSN4 


DC 


*-* 




oc 


*-* 


SCSN5 


DC 


»-* 



1 BYTE COUNT 

/20*256+0PN0P FLAGS AND OP CODE 
* A0DRESS 



1 BYTE COUNT 

/20*256+RCAL FLAGS AND OP CODE 
* ADDRESS 



1 BYTE COUNT 

/20*256+0PTI0 FLAGS AND OP CODE 
TSWDS ADDRESS 



BYTE COUNT 
0*2S6+OPSNS FLAGS AND OP CODE 
ADDRESS 

SENSE BYTES 



TIO CCW 

TO BE FILLED IN 



SENSE 10 W/SUPPRESS POLL 
TO BE FILLED IN 
TO BE FILLED WITH CCW ADDR 
TO BE FILLED IN 

= 08 

= 09 

■ 0A 

MB 

» 0C 
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81302740 
813027S0 
81302760 
81302770 
81302780 
81302790 
81302800 
81302810 
81302820 
81302830 
81302840 
81302850 
81302860 
81302870 
81302880 
81302890 
81302900 
81302910 
81302920 
81302930 
81302940 
8130 2950 
81302960 
81302970 
81302980 
81302990 
81303000 
81303010 
81303020 
8130 3030 
81303040 
8130 3050 
81303060 
81303070 
81303080 
8130 3090 
81303100 
81303110 
81303120 
81303130 
81303140 
81303150 
81303160 
81303170 
81303180 
81303190 
81303200 
81303210 
81303220 
8130 3230 
81303240 
813032 50 
81303260 
81303270 
8 13032 HO 
81303290 
81303300 
81303310 
81303320 
8130 3330 
81303340 
81303350 
81303360 
81303370 
81303380 
81303390 
81303400 
81303410 
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IBM MAINTENANCE 0IAGN0STIC PROGRAM FOR THE 1800 SYSTEM 
1800-2841 TWO CHANNEL SWITCH FUNCTION TEST 



DATE 
EC NO* 



08B9 





0000 


08BA 




0004 


08BE 




0004 


08C2 




0004 


08C6 




0004 


08CA 




0004 


08CE 




0003 


06D2 




0000 


08D2 


1 


18EE 


0803 





0000 


08D4 





0000 


0804 







08D5 





0000 


08D6 





0000 


08D7 





0000 


08D8 





0000 


08D9 





0000 


08DA 




0008 


08E2 




0007 


08E9 





FFFF 


08EA 




0009 


08F3 





FFFF 



08F4 

08F5 

08F6 

08F7 

08F8 

08F9 

08FA 

08FB 1 

08FD 

08FE 1 



0000 

0000 

0000 

0000 

0000 

68FA 

6A6D 

6600 087F 

C277 

4C18 0953 



0900 0A2F 

0901 1001 

0902 1 4C10 091D 

0904 0A33 

0905 1800 

0906 1010 

0907 1068 

0908 F204 

0909 1 4C18 0912 
090B 1092 

09 0C 1 4C10 0953 

09 0E O C2DA 

090F 1 4C20 0927 

0911 7041 

0912 C2DA 

0913 1 4C18 091D 



0915 0A33 

0916 100B 

0917 1 4C28 0927 

0919 0A33 

091 A EA3C 

09 IB D23C 



DC 
SCSX0 BSS 
SCSX4 BSS 
SCSX8 BSS 
SCSXC BSS 
SCSVS BSS 
HA BSS 

BSS 
TLGWR DC 



DC 
DC 



TLGSP 
TLGSN EQU 

DC 
TLGCT DC 
TLGSW DC 
TLGSR DC 

DC 
* 
STSER PRNT 

PR NT 

DC 
UNADR PRNT 



*-* 

4 

4 

4 

4 

4 

3 



TLGBA 

*-* 

/oooo 

TLGSP 

*-* 




*-* 



= 06 

START I/O SAVE AREA 

START 1/0 SAVE AREA 2 

TIO SAVE AREA 

SENSE I/O SAVE AREA 

SAVE AREA FOR SENSE INFO 



I0AREA ADDRESS 
TO BE FILLED IN 
SPACE IN 1443 CODE 

SENSE DSW IOCC 
TO BE FILLED IN 
LOOP COUNT FOR PRNTR INT 
1ST/2ND CHAR SW (1053) 
1ST/2ND CHAR SW (TLGCH) 
SENSE/RESET DSW 



.XX ERROR ON XXX . 

•SECT X.RTN X . 

/FFFF 

. UNIT XX.ADRS XXXX. 

/FFFF 



SELECTOR CHANNEL INT ROUTINE 



WI0SW DC 
WATSW OC 
SCISW DC 
TSCAC DC 
SCI NT 0C 
STX 
STX 
LDX 
LD 
BZ 
* 

XI0 
SLA 
BNN 
* 

XIO 
XCH 
SLA 
SLT 
EOR 
BZ 
SLT 
BNN 
* 

LD 
BNZ 
MDX 
* 

SCINC LD 
BZ 



2 

L2 

2 



*-* 

*— * 

*-* 

»-* 

*-* 

WI0SW 

SCIN7+1 

TB 

SCISW-TB 

SCIN4 

SCSN0-TB 

1 

SCIN0 



2 SCSN2-TB 

16 
8 
2 DVADR-TB 
SCINC 
8+UNCUE 
SCIN4 



WAIT FOR USER INTERUPT 
WAIT FOR SYST TIO INT. 
INTERRUPT SWITCH 
SEL.CHAN AREA CODE 

INT. RTN ENTRY 
SET INTERUPT SWITCH 
SAVE REG 

SET UP POINTER TO TBL 
GET INT SWITCH 
BR IF NOT SET 

FETCH CHANNEL STATUS 
TEST FOR USP 
BRANCH IF NOT USP 

GET UNIT STATUS 

SAVE STATUS 

CLEAR A REG 

GET DEVICE ADDRS 

TEST FOR MY DEVICE 

BRANCH IF MINE 

TEST FOR CONTROL UNIT END 

BRANCH IF NOT CU END 



TIOSW-TB GET TIO SW 

SCINX BR IF INT DUE TO TIO 

SCIN4 ELSE UNEXPCTEO INT 



TIOSW-TB 
SCIN0 



FETCH TIO SW 
BRANCH IF USER TIO 



GET HERE 1 
IF STATUS 
AND SCSX8 

XIO 2 

SLA 

BN 

XIO 2 
OR 2 
ST0 2 



F INTERRUPT FROM TIO AFTER SIO 
IS NON BUSY THEN PLACE IN SCSX0 



SCSN2-TB FETCH UNIT STATUS 

UNBZY TEST FOR UNIT OR CU BUSY 

SCINX BR TO SET POINTER TO SCSX8 

SCSN2-T8 FETCH UNIT STATUS 

SCSX0+1-TB MERGE WITH OLD STATUS 

SCSX0+1-TB » 



PART NO, 22794S6 
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81303420 
81303430 
81303440 
81303450 
81303460 
81303470 
81303480 
81303490 
81303500 
81303510 
81303520 
81303530 
81303540 
81303550 
81303560 
81303570 
81303580 
81303590 
81303600 
81303610 
81303620 
81303630 
81303640 
81303650 
81303660 
81303670 
81303680 
81303690 
81303700 
81303710 
81303720 
81303730 
81303740 
81303750 
81303760 
81303770 
81303780 
81303790 
81303800 
81303810 
81303820 
81303830 
81303840 
81303850 
81303860 
81303870 
81303880 
81303890 
81303900 
81303910 
8130 3920 
81303930 
8130 3940 
81303950 
8130 3960 
81303970 
81303980 
81303990 
81304000 
81304010 
81304020 
81304030 
81304040 
81304050 
81304060 
81304070 
81304080 
81304090 



14N0V69 
431319 



30JAN70 

431319A 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 
IB0O-28A1 TWO CHANNEL SWITCH FUNCTION TEST 



DATE 
EC NO. 



09 1C 700 A 



09 ID C229 
091E 1 4C2Q 0947 



B 



SCINX 



BR SET POINTER TO SCSX0 



GET HERE IF TI0SW WAS NOT ON AND TEST 
FOR USER TIO IF SO PLACE STATUS IN SCSX8. 
ELSE GO TEST FOR SENSE OPERATION INTERUPT 



SCI NO 

* 



LD 2 HI0XX-TB 
BNZ SCIN3 



0920 
0921 
0922 
0923 
092* 



0A37 
D237 
C227 
8299 
F237 



092S 1 4C20 092B 



XIO 
ST0 

LD 
A 

E0R 
BNZ 



SCSN4-TB 

SCSN4-TB 

TI0XX-TB 

K3-TB 

SCSN4-TB 

SCINl 



GET HIO SW 
BR IF SET 

ELSE GET CCW ADDRS REG 

SAVE FOR LATER USE 

GET TEST 1/0 ADDRESS 

ADD THREE 

COMPARE WITH CCW ADRS REG 

BR IF NOT THE SAME 



09,27 1 6700 


08C2 


SCINX LDX 


L3 SCSX8 


0929 68CB 




STX 


WATSW 


092A 702E 




MDX 


SCIN5 



092B 





C22B 


* 
SCINl 


LD 


2 


SENSE- TB 


09 2C 





8299 




A 


2 


K3-TB 


092D 





F237 




EOR 


2 


SCSN4-TB 


09 2E 


1 


4C20 0933 




BNZ 




*+3 


0930 


1 


6700 08C6 




LDX 


L3 


SCSXC 


0932 





7026 




MDX 




SCIN5 



0933 





C22D 




LD 


2 SI0XX-TB 


0934 


1 


6780 


08AC 


LDX 
* 
SCIN2 A 


13 SIOXX 


0936 





8299 




2 K3-TB 


0937 





D21E 




ST0 


2 TSWDS-TB 


0938 





F237 




EOR 


2 SCSN4-TB 


0939 


1 


4C18 


0947 


BZ 


SCIN3 


093B 





C30 1 




LD 


3 1 


093C 





leoe 




SRA 


14 


0930 


1 


4C20 


0944 


BNZ 


*+5 


093F 





C301 




LD 


3 1 


0940 





F29C 




EOR 


2 K6-TB 


0941 





1008 




SLA 


8 


0942 


1 


4C20 


0953 


BNZ 


SCIN4 


0944 





7303 




MDX 


3 3 


0945 





C21E 




LD 


2 TSWDS-TB 


0946 





7 0EF 




MDX 


SCIN2 


0947 





1010 




SCIN3 SLA 


16 


0948 





0229 




STO 


2 HI0XX-TB 


0949 


1 


6700 


08BA 


LDX 


L3 SCSX0 


094B 





C30 1 




LD 


3 1 


094C 





1000 




SLA 


UNDVE 


094 D 


1 


4C28 


0959 


BN 


SCIN5 


094F 





1001 




SLA 


UNCHK-UNI 


0950 


1 


4C28 


0959 


BN 


SONS 


0952 





7008 




MDX 


SCIN6 



GET HERE IF USER TIO OR SYSTEM TIO 
FOUND THAT THE UNIT OR CU WAS BUSY 
AFTER A TEST 1/0. 



ELSE POINT TO SAVE AREA 
SET TIO INTERRUPT SW 
GO TO COMMON RTN 



GET HERE IF NO TEST I/O WAS INDICATED 
BY THE PRIOR ROUTINES 



GET CCW ADDRESS FOR SENSE 

POINT TO FOLLOWING 

COMPARE 

BR IF NOT 

POINT TO SAVE AREA 

GO TO COMMON RTN 



GET HERE IF SENSE WAS FOUND NOT TO 
BE THE CAUSE OF THE INTERRUPT AND TEST 
FOR START 1/0 TO BE THE CAUSE, IF NOT 
THEN SET THE INTERRUPT TO THE UNEXPECTED. 



GET START 1/0 CCW ADDRESS 
SET IN REG TOO 

POINT TO NEXT ADRS AFTER 

SAVE IN TEMP STORAGE 

COMPARE 

BR IF SAME 

GET OPCODE/FLAGS 

SAVE CMD CHAIN/DATA CHAIN 

BR IF SET 

GET IT AGAIN 

TEST FOR TIC 

SAVE OPCODE ONLY 

BR IF NOT flC 
POINT TO NEXT CCW IN CHAIN 
GET ADDRESS , 
LOOP 

CLEAR HIO SW 
* 

POINT TO S 10 SAVE AREA 
GET LAST UNIT STATUS 
TEST FOR DEVICE EN0 
BR IF SET 
E TEST FOR UCHK 

BR IF SET 
ELSE •OR* IN STATUS 
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81304100 
813041 10 
81304120 
81304130 
81304140 
81304150 
81304160 
81304170 
81304180 
81304190 
81304200 
81304210 
81304220 
81304230 
81304240 
81304250 
81304260 
81304270 
81304280 
8130 4290 
81304300 
81304310 
81304320 
81304330 
81304340 
81304350 
81304360 
81304370 
81304380 
81304390 
81304400 
8130 4410 
81304420 
81304430 
81304440 
81304450 
81304460 
81304470 
81304480 
81304490 
81304500 
81304510 
81304520 
81304530 
81304540 
81304550 
81304560 
81304570 
81304580 
81304590 
81304600 
81304610 
81304620 
81304630 
81304640 
81304650 
81304660 
81304670 
81304680 
81304690 
81304700 
81304710 
81304 720 
81304730 
81304740 
81304750 
81304760 
81304770 



14N0V69 
431319 



30JAN70 
431319A 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 
1800-2841 TWO CHANNEL SWITCH FUNCTION TEST 



PART NO. 
PAGE 



22794S6 

* A o 



DATE 
EC NO. 



0953 1 6700 096F 

0955 1 6F00 0809 

0957 1 6700 08BE 

0959 1010 

09SA D301 

095B 0A31 

095C D300 

095D 1001 

095E 1 4C10 096D 



SCIN4 LDX L3 SCIN8 
STX L3 MLSC0 
LDX L3 SCSX4 



0960 





0A35 


0961 





EB01 


0962 





D30 1 


0963 





0A37 


0964 





D302 


0965 





0A39 


0966 





D303 



0967 6600 0000 

0969 1000 

096A 1000 

096B 1 4C80 08F8 



096D 1010 
096E 70F3 



096F 
0971 
0972 
0973 
0974 
0975 
0976 



6600 087F 

4200 

0978 

42DF 

4052 

0000 

4C80 012D 



0978 0015 
0987 FFFF 



0988 0000 

0989 C28D 
098A 0231 

098B C276 

098C 1 4C20 099C 

098E O 42EE 

098F 1 74FF 08B0 

0991 70F9 



0992 





0A31 


0993 





D247 


0994 





0A35 


0995 





D248 


0996 





0A37 


0997 





D249 


0998 





0A39 


0999 





D24A 



SCIN5 SLA 
STO 

* 

SCIN6 XIO 
STO 
SLA 
BNN 



16 

3 1 

2 SCSN1-TB 

3 
1 
SCINA 



XIO 

OR 
SCINB STO 

XIO 

STO 

XIO 

STO 
* 
SCIN7 LDX L2 »-* 

NOP 

NOP 



2 SCSN3-TB 

3 1 
3 1 

2 SCSN4-TB 

3 2 

2 SCSNS-TB 

3 3 



SET MLSCF ENTRY FOR RETURN 

POINT O SAVE AREA 

CLEAR WORD TO ZERO 
FOR OR'ING IN STATUS 

GET CHAN. STATUS 

SAVE 

TEST FOR USP 

BRANCH IF NOT ON 

GET UNIT STATUS 

COMBINE WITH EXISTING 

SAVE 

GET CCW ADDRESS REG. 

SAVE 

GET BYTE COUNTER 

SAVE 

RELOAD REG 
SAVE FOR TRACE 



BSC 



EXT INT. RTN 



GET HERE IF USP WAS NOT THE CAUSE 
AND SET US TO 0000 



SCINA SLA 
MDX 



16 
SCINB 



SCINB LDX L2 TB 

BSI 2 TLGMS-TB 
DC SCI MS 

SSI 2 EROUT-TB 
DC /4052 
OC *-* 

BSC I START 



CLEAR ACC 
RETURN 

SET UP TABLE POINTER 

PRNT MSG 

MSG ADDRESS 

PRINT ERROR MESSAGE 

FLAGS ANS OPTIONS 

GO BACK TO MONITOR 



SCIMS PRNT .*« ER 00 UNEXPECTED INTERRUPT. 
DC /FFFF 

* * 

* WAIT FOR INTERRUPT 

* . * 

ENTRY POINT 

FETCH TIME OUT CONSTANT 



GO VISIT MONITOR 



TINTW 


DC 




*-* 




LD 


2 


TERM-TB 


* 
TINT2 


STO 


2 


SCSN1-TB 


LD 


2 


WATSW-TB 




BNZ 




TINT3 




BSI 


2 


STMLS-TB 




MDX 


L 


SCSN1 ,-1 


• 


MDX 




TINT2 


XIO 


2 


SCSN1-T8 




STO 


2 


SCSXC-TB 




XIO 


2 


SCSN3-TB 




STO 


2 


SCSXC+1-TB 




XIO 


2 


SCSN4-TB 




STO 


2 


SCSXC+2-TB 




XIO 


2 


SCSNS-TB 




STO 


2 


SCSXC+3-TB 



GET CHANNEL STATUS 

* AND SAVE FOR ERR 

* MESSAGE 



14N0V69 
431319 



30JAN70 
431319A 



81 304780 

81304790 

81304800 

81304810 

81304820 

81304830 

81304840 

813048S0 

81304860 

81304870 

81304880 

81304890 

81304900 

81304910 

81304920 

81304930 

81304940 

81304950 

81304960 

81304970 

81304980 

81304990 

81305000 

81305010 

81305020 

81305030 

81305040 

81305050 

81305060 

81305070 

81305080 

81305090 

81305100 

81305110 

81305120 

81305130 

81305140 

81305150 

8130S160 

81305170 

81305180 

81305190 

81305200 

8130 5210 

81305220 

81 3052 30 

8130 5240 

813052 50 

8130 5260 

8130S270 

8130 5280 

81305290 

81305300 

81305310 

81305320 

81305330 

8130 5340 

81305350 

81305360 

81305370 

8130 5380 

81305390 

81305400 

81305410 

81305420 

8130S430 

81305440 

81305450 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THB 1800 SYSTEM 
1800-2841 TWO CHANNEL SWITCH FUNCTION TEST 



DATE 
EC NO. 



099A 


1 


4C80 


0988 


* 
TINT3 


BSC 


I 


TINTW 


099C 


1 


7401 


0988 


MDX 


L 


TINTW.l 


099E 





1010 






SLA 




16 


099F 





0276 






STO 


2 


WATSW-TB 


09A0 


1 


4C80 


0988 




BSC 


I 


TINTW 



09 A A 





0A31 


09AB 





0247 


09 AC 





0A35 


09A0 





D2 48 


09 AE 





0A37 


09AF 





D249 


09B0 





0A39 


09B1 





02 4 A 


09B2 





7006 



09B3 I 740 1 0879 

09B5 1010 

09B6 O 0275 

09B7 1 4C80 0879 

09B9 1 C480 0879 

09BB 0003 

09BC 10 10 

09BO 0275 

09BE 4C00 0000 



09C0 4480 012C 
09C2 1 07FF 



09C3 0000 

09C4 COFE 

09C5 DOll 

09C6 I 6600 087F 

09C8 10 10 

09C9 1 0400 18CF 

09CB D205 

09CC 0275 

09CO 0276 



EXIT RTN 



EXIT RTN 

* 

* * 

* WAIT FOR I/O INTERRUPT 

* * 



ENTRY POINT 

SET TIMEOUT COUNTER 



FETCH WAIT SWITCH 
BRANCH IF SET 



OEC WAIT COUNTER 
LOOP BACK AND WAIT 



GET SELECTOR CHANNEL AND 
UNIT STATUS. 



GO TO ERROR RETURN 

BUMP RETURN 
RESET WAIT I/O SW 

* 



09A2 









TINTS 


EOU 




* 


09A2 





C280 






LD 


2 


TERM-TB 


09A3 





0231 




* 
TINS2 


STO 


2 


SCSN1-TB 


09A4 





C275 




LD 


2 


WIOSW-TB 


09AS 


1 


4C20 


0983 


* 


BNZ 




TINS3 


09A7 


1 


74FF 


08 BO 


MOX 


L 


SCSN1 ,-l 


09A9 





70FA 






MDX 




TINS2 



COME HERE IF TIMEOUT 



XIO 
STO 
XIO 
STO 
XIO 
STO 
XIO 
STO 
MDX 

* 

TINS3 MDX 
SLA 
STO 



2 SCSN1-TB 
2 SCSXC-TB 
2 SCSN3-TB 
2 SCSXC+I-TB 
2 SCSN4-TB 
2 SCSXC+2-TB 
2 SCSN5-TB 
2 SCSXC+3-TB 
TINS4 

L WAITS. +1 
16 
2 WIOSW-TB 



BSC 

TINS4 LD 
STO 
SLA 
STO 
BSC 



I WAITS 

I WAITS 
»+3 
16 

2 WIOSW-TB 

L *-* 



RETURN TO USER 

SET-UP ERROR RETURN 

* 

RESET-WAIT SW 

RETURN TO USER 

» * 

* 

BGIN BSI I BEGIN GO TO MONITOR BEGIN RTN 
DC TPIO AOORESS OF pio 

*************************************************** 
* * 

*************************************************** 

ZIPA DC *-* ENTRY POINT 

LD ZIPA MOVE RETURN ADDRS 

STO ZLPA * 

LDX L2 TB SET UP POINTER 
* 

SLA 16 RESET- 

STO L FRESW RESET CONTROL SWS 

STO 2 LGBSY-TB * 

STO 2 WIOSW-TB * 

STO 2 WATSW-TB * 
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81305460 
81305470 
81305480 
81305490 
81305500 
81305510 
81305520 
81305530 
81305540 
81305550 
81305560 
81305570 
81305580 
81305590 
81305600 
8130 5610 
81305620 
81305630 
81305640 
81305650 
81305660 
8130S670 
81305680 
81305690 
81305700 
81305710 
81305720 
81305730 
81305740 
81305750 
81305760 
81305770 
81305780 
81305790 
81305800 
81305810 
81305820 
81305830 
81305840 
813058S0 
81305860 
81305870 
81305880 
81305890 
81305900 
81305910 
8130S920 
8130 5930 
8130 5940 
81305950 
81305960 
81305970 
81305980 
81305990 
81306000 
81306010 
81306020 
61306030 
81306040 
81306050 
81306060 
81306070 
81306080 
81306090 
81306100 
81306110 
81306120 
81306130 



o 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 
1800-264 1 TWO CHANNEL SWITCH FUNCTION TEST 



O' 



o 



o 



i 



DATE 
EC NO. 



09CE 





D283 


09CF 





D264 


09D0 


1 


D400 16B9 


09D2 





C2BC 


09D3 





0285 


09D4 





C297 


0905 





02D8 


09D6 





7001 



STO 2 TSWO-TB * SW 

STO 2 TSW1-TB * SW 1 

STO L STMPT RESET STMLS POINTER 

LD 2 HFFOO-TB FETCH CONSTANT 

STO 2 TSW2-TB PLACE IN SW 2 

LD 2 Kl-TB FETCH CONSTANT OF 1 

STO 2 PSCNT-TB SET PASS COUNT=l 

MDX ZLPA+1 CONTINUE 

* * 

******** ******#**************#*********#*****#***** 



09D7 





0000 




ZLPA 


DC 




*-* 




LOOP PGM RTN 


09D8 


1 


6700 


OA06 




LDX 


L3 


TCNPR 




GET MLSCF ADDRESS 


09DA 


1 


6FO0 


080B 




STX 


L3 


MLSC2 




SET IN TBL 


9DC 


1 


6600 


0B7F 




LDX 


L2 


TB 




SET UP TBL POINTER 


09DE 





C294 






LD 


2 


TLGED- 


TB 


LOOK AT LOG EDIT 


09DF 


1 


4C10 


09E5 




BNN 




ZLPA1 




BR IF RELEASED 


09E1 





4480 


0132 




BSI 


I 


RELDV 




ELSE RELEASE DEVICE 


09E3 


1 


0813 






DC 




TLGED 




ADDR OF EDIT WORD 


09E4 


1 


080C 






DC 




TERM 




TERMINATOR 


09E5 





C295 




ZLPA1 


LD 


2 


TSCEO-TB 


SEL. CHAN. EDIT 


09E6 


1 


4C10 


09EC 




BNN 




ZLPA2 






09E8 





4480 


0132 




BSI 


I 


RELDV 




RELEASE DEVICE 


09EA 


1 


08 14 






DC 




TSCED 






09EB 


1 


080C 






DC 




TERM 






09EC 









ZLPA2 


EOU 




* 






09EC 





1010 






SLA 




16 




RESET- 


09ED 





D2D9 






STO 


2 


STKSW- 


TB 


* STACK SW 


09EE 





0206 






STO 


2 


SIOSW- 


TB 


* SIO SW 


09EF 





C297 






LD 


2 


Kl-TB 




FETCH CONSTANT OF 1 


9F0 





0281 






STO 


2 


TSID-TB 


SET SECTION ID = 1 


09F1 


1 


4C80 


09D7 




BSC 


I 


ZLPA 




EXIT 



09F3 





0000 




ZEPA 


DC 




*-* 


09F4 


1 


6600 


087F 




LDX 


L2 


TB 


09F6 





C294 






LD 


2 


TLGED-TB 


09F7 


1 


4C10 


09FD 




BNN 




ZEPA1 


09F9 





4480 


0132 




BSI 


I 


RELDV 


09FB 


1 


0813 






DC 




TLGED 


09FC 


1 


080C 






DC 




TERM 


09FD 





C295 




ZEPA1 


LD 


2 


TSCED-TB 


09FE 


1 


4C10 


0A04 


* 


BNN 




ZEPA2 


OAOO 





4480 


0132 


BSI 


I 


RELDV 


0A02 


1 


0814 






DC 




TSCED 


0A03 


1 


080C 






DC 




TERM 


0A04 


1 


4C80 


09F3 


ZEPA2 


BSC 


I 


ZEPA 



0A06 


1 


66 00 


087F 


0A08 





C2DB 




0A09 


1 


4C20 


0A10 


OAOB 





42EE 




OAOC 





4480 


0131 


OAOE 


1 


OAOB 




OAOF 


1 


0813 




0A10 


1 


1893 





a************************************************** 
* * 

♦♦♦♦ft*************************************** ******* 

END PGM RTN 
SET UP TBL POINTER 
LOOK AT LOG EDIT 
BR IF RELEASED 
ELSE RELEASE DEVICE 
ADDR OF EDIT WORD 
TERMINATOR 
SEL. CHAN. EDIT 



RELEASE DEVICE 



EXIT BACK TO MONITOR 

**********************#*#***##***#**********#**#*## 

* * 

fc***********************************************:*** 
* 

* PRE-CONTROL ROUTINE 
* 
******************#*****************************$** 

* * 
a************************************************** 
TCNPR LDX L2 TB SET UP TABLE POINTER 

LD 2 T45SW-TB GET 43/53 SWITCH 

BNZ TCN01 

TCNRO BSI 2 STMLS-TB 

BSI t REODV REOUEST DEVICE 

DC TCNRO BUSY RETURN 

DC TLGED EDIT FOR PRINTER 

DC TLGDA AREA CODE GIVEN BACK 
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81306140 
81306150 
81306160 
81306170 
81306180 
81306190 
81306200 
81306210 
81306220 
8 130 6230 
81306240 
81306250 
81306260 
81306270 
8130 6280 
8130 6290 
81306300 
81306310 
81306320 
81306330 
81306340 

813063 50 
81306360 
81306370 
81306380 
81306390 
8130 6400 
81306410 
8130 6420 
8130 6430 
81306440 
81306450 
81306460 

813064 70 
81306480 
81306490 
81306500 
81306510 
81306520 
81306530 
81306540 
81306550 
8130 6560 
81306570 
81306580 
81306590 
81306600 
81306610 
81306620 
81306630 
81306640 
81306650 
8130 6660 
81306670 
81306680 
81306690 
81306700 
81306710 
61306720 
81306730 
81306740 
81306750 
81306760 
81306770 
81306780 
81306790 
81306800 
81306810 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 
1800-2841 TWO CHANNEL SWITCH FUNCTION TEST 



DATE 
EC NO. 



0A11 


1 080C 


DC 


TERM 


TERMINATOR 


0A12 


4460 0132 


6SI 


I RELDV 


RELEASE DEVICE 


0AI4 


1 0813 


DC 


TLGEO 


EDIT FOR PRINTER 


0A15 


1 08 0C 


DC 


TERM 


TERMINATOR 


0A16 


1 C400 1893 


LD 


L TLGDA 


GET PRINTER AREA CODE 


0A18 


F2B5 


EOR 


2 H3000-TB 




0AI9 


4820 


SKP 


Z 




0A1A 


C297 


LD 


2 Kl-TB 




0A1S 


8297 


A 


2 Kl-TB 


ADO ONE 


0A1C 


02 DB 


STO 
* 
TCN01 ECU 


2 T45SW-TB 


SET SW FOR 43 OR 53 


0A10 





* 




OAID 


42E5 


BSI 


2 GETDV-T8 


GET DEVICE FOR USE 


0A1E 


42E2 


BS1 


2 FREDV-TB 


RELEASE DEVICE 


OAIF 


C2S5 


LD 


2 TSW2-TB 


GET SW FNC 2 (DEV ADDR ) 


0A20 


180C 


SRA 


12 


SAVE BITS 4-12 


0A21 


1 4C1S 0A2A 


BZ 


TCN02 


BR IF ZERO 


0A23 


4200 


BSI 


2 TLGMS-TB 


PRINT MESSAGE 


0A24 


1 0A9C 


DC 
* 

BSI 


TCNE2 


•ENTER DEV ADDRESS' 


0A25 


42EE 


2 STMLS-TB 


GO TO MONITOR 


0A26 


C28S 


LD 


2 TSW2-TB 


GET SW FNC 2 


0A27 


180C 


SRA 


12 


SAVE BITS 4-12 


0A28 


4820 


SKP 


Z 


SKIP IF ZERO 


0A29 


70FB 


MOX 
TCN02 LO 


»-s 


LOOP UNTIL OK 


0A2A 


C23S 


2 TSW2-TB 


GET SW FNC 2 


0A2B 


E2AB 


ANO 


2 HOOFF-TB 


ISOLATE INTF B ADDR 


0A2C 


D2BE 


STO 


2 INTFB-TB 


SAVE 


0A20 


C20S 


LD 


2 TSW2-TB 




0A2E 


1884 


SRT 


4 




0A2F 


1804 


SRA 


4 




0A30 


1084 


SLT 


4 


ISOLATE INTF A ADDR 


0A31 


0280 


STO 


2 INTFA-TB 


SAVE 


0A32 


D204 


STO 


2 DVADR-TB 


SET INITIAL DEV ADDR 


0A33 


42F 1 


BSI 


2 TCVBE-TB 




0A34 


1090 


SLT 


16 




0A35 


0040 


STO 


CUU11 




0A36 


C2BE 


LD 


2 INTFB-TB 




0A3T 


42F1 


BSI 


2 TCVBE-TB 




0A38 


1090 


SLT 


16 


' 


0A39 


004B 


STO 

* 

LD 


CUU22 




0A3A 


C208 


2 PSCNT-TB 


GET PASS COUNT 


0A3B 


42F4 


BSI 


2 TCVHD-TB 


CVT TO DECIMAL 


0A3C 


42F1 


BSI 


2 TCVBE-TB 


CONVERT TO 1443 CODE 


0A3D 


1800 


XCH 




TO A 


0A3E 


D04B 


STO 


TTL01+3 


PUT IN MSG 


0A3F 


4200 


BSI 


2 TLGMS-TB 


PRINT PROGRAM TiTLE 


0A40 


1 0A70 


DC 


TTLOO 


MSG ADDRESS " 



*************************************************** 

* '! * 

*************************************************** 



THIS ROUTINE CONTROLS ALL TESTS 



0A41 









TCNTE EOU 




* 


0A41 


1 


6600 


087F 


LDX 


L2 


TB 


0A43 





C284 




LD 


2 


TSW1-TB 


0A44 





100C 




SLA 




12 


0A45 





180C 




SRA 




12 


0A46 





02C1 




STO 


2 


TRTNN-TB 


0A47 





C284 




LD 


2 


TSW1-T8 


0A48 





E2AB 




AND 


2 


HOOFF-TB 


0A49 





18H4 




SRT 




4 


0A4A 





02C0 




STO 


2 


TSCTN-TB 


0A4H 


1 


4C20 


0A5E 


BNZ 




TCN04 


0A4O 





1090 




SLT 




16 



ENTRY POINT 
SET TABLE AOORESS 
GET SW FNC 1 

SAVE BITS 12-15 

** 

** 

GET SW FNC 1 
DROP BAD BITS 

SAVE BITS 8-J1 

SAVE SECTION -NUMBER 
BR IF NOT ZERO 

GET BACK BITS 12-15 



14N0V69 
431319 
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81306820 

81306830 

81306840 

81306850 

81306860 

81306870 

81306880 

81306890 

81306900 

81306910 

81306920 

81306930 

81306940 

81306950 

81306960 

81306970 

81306980 

8130 6990 

81307000 

8130 7010 

81307020 

8130 7030 

81307040 

81307050 

81307060 

8130 7070 

81307080 

81307090 

81307100 

81307110 

81307120 

81307130 

81307140 

813071S0 

81307160 

81307170 

81307180 

81307190 

S1307200 

81307210 

81307220 

8130 7230 

8130 7240 

81307250 

81307260 

8130 7270 

81307280 

81307290 

81307300 

8130 7310 

8130 7320 

81307330 

8130 7340 

8130 7350 

81307360 

81307370 

81307380 

81307390 

81307400 

81307410 

81307420 

81307430 

81307440 

81307450 

81307460 

81307470 

81307480 

81307490 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 
1800-2841 TWO CHANNEL SWITCH FUNCTION TEST 



PART NO. 2279456 
PAGE 6A 



DATE 
EC NO. 



0A4E 





18CC 






SRA 




12 


0A4F 


1 


4C20 


0A62 


TCN03 


BNZ 




TCNER 


0A51 


1 


6580 


0800 


LDX 


11 


TS1D 


0A53 


1 


C500 


0A68 




LD 


LI 


TCNTA 


0A55 





D282 






STO 


2 


TSAD-TB 


0A56 





1010 






SLA 




16 


0AS7 





D2C2 






STO 


2 


TCNSW-TB 


0A58 





D296 






STO 


2 


TRID-T8 


0A59 





C281 






LD 


2 


TSID-T8 


0A5A 





8297 






A 


2 


Kl-TB 


0A5B 





D281 






STO 


2 


TSID-TB 


0A5C 


1 


4C80 


0801 


* 
TCN04 


BSC 


I 


TSAD 


0A5E 





D281 




STO 


2 


TSID-TB 


0A5F 





900B 






S 




TCNTA 


0A60 


1 


4C28 


0A51 


TCNER 


BN 




TCN03 


0A62 





C284 




LD 


2 


TSW1-TB 


0A63 





42F1 






BSI 


2 


TCVBE-TB 


0A64 





D033 






STO 




TTLER+11 


0A65 





1090 






SLT 




16 


0A66 





D032 






STO 




TTLER+12 


0A67 





4200 






BSI 


2 


TLGMS-TB 


0A68 


1 


0A8D 






DC 




TTLER 


0A69 





42F7 






BSI 


2 


THALT-TB 


0A6A 





42DC 




* 


BSI 


2 


CNTRL-TB 


0A68 





0005 




TCNTA 


OC 




TCNTZ-TC 


0A6C 


1 


OAAC 






DC 




T10NT 


0A6D 


1 


0B21 






DC 




T20NT 


0A6E 


1 


0CE5 






OC 




T30NT 


0A6F 


1 


OEAC 






DC 




T40NT 


0A70 









TCNTZ 


EOU 




* 



SAVE THEM 
ERR, NO SECTION SPECIFIED 

GET SECTION NUMBER 

GET SECT. PREFACE ADDRESS 
STORE IN SEC ADDRS 

CLEAR ERROR COUNTER 
*** 

CLE.AR RTN ID TO ZERO 
INCREMENT SECTION 



GO TO SECTION PREFACE 

STORE SECT. NUMBER 
SUB. NUMBER OF SECTIONS 
BR IF OK 

GET SW FNC 1 
CONVERT HEX TO PRNT CODE 
PUT INVALID SWITCH 
* SETTING INTO MESSAGE 



GO TO RETRY RTN SELCT 



SECTION ADDRESS 
SECTION ADDRESS 
SECTION AODRESS 
SECTION ADDRESS 
END OF TABLE 



****************** ********************************* 

* * 

♦a************************************** *********** 



0A70 




0018 


0A82 




0001 


0A83 




0001 


0A84 




000 1 


0A85 




0001 


0A86 





FFOO 


0A87 




0004 


0A8B 





FFOO 


0A8C 





FFFF 


0A8D 




0013 


0A9A 





OOFF 


0A9B 





FFFF 


0A9C 




0012 


0AA8 





OOFF 


0AA9 





FFFF 



TTLOO 


PRNT 


. 2 CHNL SW DIAGNOSTIC TEST 




PRNT 


• • 




CUU11 


PRNT 


. . 






PRNT 


. , 




CUU22 


PRNT 


. . 






DC 


/FFOO 




TTLOt 


PRNT 


•PASS- 


XX. 




DC 


/FFOO 


TERMINATOR 




DC 


/FFFF 




TTLER 


PRNT 


. **ER 


INVLD SWS FNC 1 XXXX . 




DC 


/OOFF 






DC 


/FFFF 




TCNE2 


PRNT 


. *** 


SELECT OPTIONS ***. 




DC 


/OOFF 






DC 


/FFFF 





* * 

***************** ********************************** 



SECTION PREFACE 



OAAA 


0001 




T10PR 


DC 


/0001 


OAAB 


0001 




* 
T10NT 


DC 


1 


OAAC 


C2C1 




LD 


2 TRTNN-TB 


OAAD 


1 4C18 


0AB4 




BZ 


T1101 


OAAF 


90FB 






S 


T10PR+1 


OABO 


1 4C30 


0A62 




BP 


TCNER 


0AB2 


80F8 






A 


T10PR+1 


0AB3 


7000 






MOX 


T1101 



SECTION NUMBER 



SW FNC 1 BITS 12-15 

BR IF RUN ALL RTNS 

TEST FOR VALID 

BR IF INVALID RTN NUMBER 

RESTORE RTN NUMBER 

GO TO FIRST RTN 



*************************************************** 



14N0V69 
431319 



30JAN70 
431319A 



81307500 

81307510 

81307S20 

81307530 

81307540 

81307550 

8130 7560 

81307570 

81307580 

81307590 

81307600 

81307610 

81307620 

81307630 

81307640 

81307650 

81307660 

81307670 

81307680 

81307690 

8130 7700 

81307710 

81307720 

81307730 

8130 7740 

81307750 

8130 7760 

81307770 

81307780 

81307790 

81307800 

81307810 

81307820 

81307830 

81307840 

81307850 

81307860 

81307870 

81307880 

81307890 

81307900 

8130 7910 

8130 7920 

81307930 

81307940 

8130 7950 

81307960 

8130 7970 

8130 7980 

81307990 

81308000 

81308010 

81308020 

81308030 

81308040 

813080 50 

81308060 

81308070 

81308080 

81308090 

81308100 

81308110 

81308120 

81308130 

81308140 

81308150 

81308160 

81308170 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 
1800-2841 TWO CHANNEL SWITCH FUNCTION TEST 



OATE 
EC NO. 



0AC1 42ES 



*********#************#******************##******** 
* 

*************************************************** 
» * 

*************************************************** 

TEST ENTRY POINT 

BUMP RTN ID 

BR IF TEST NUMBER ZERO 

DECREMENT BY ONE 

BR IF NOT THIS TEST 

GET OPTION SWS 
PRINT TITLES 
BR IF NOT SET 
3 TO PRINT ROUTINE 
MESSAGE AODRESS 
* 
T1103 BSl 2 GETDV-TB GET CHANNEL FOR RTN 

*************************************************** 

* * 
*************************************************** 

* 

* SECTION 1 ROUTINEl 

* ACCESS DEV FROM INTF A 6 B WITH SEEK 

» 

*************************************************** 
» * 

*************************************************** 



0A84 









T1101 


EQU 




* 


0AB4 


I 


7401 


0815 




MDX 


L 


TRID.l 


0A86 


1 


4C18 


OABb 




BZ 




TI102 


0AB8 





9297 






S 


2 


Kl-TB 


0AB9 


1 


4C20 


0B1E 


* 
T1102 


BNZ 




T1201 


OABB 





C283 




LD 


2 


TSWO-TB 


OABC 





100A 






SLA 




OTTLE 


OABD 


1 


4C10 


0AC1 




BNN 




Tl 103 


OABF 





4200 






BSI 


2 


TLGMS-T 


OACO 


1 


OAFS 






DC 




TTL11 



0AC2 
0AC3 
0AC4 
0AC5 
0AC7 
0AC9 
OACA 
OACB 
OACC 
OACD 
OACE 
OADO 
0A01 
0AD2 
0AD3 
0AO5 
0AD7 
OADS 
0AD9 
OAOA 
OADB 
OADC 
OADE 
OAEO 
0AE1 
0AE2 
0AE3 
0AE4 
0AE5 
0AE6 
0AE7 
0AE8 
0AE9 



4209 
C2B& 

02D6 

1 6700 
1 6F00 

42E8 

1 0818 

C23C 
E2AB 
F2A4 
4C20 
420C 
C2B6 
D2D6 
6700 

1 6FO0 

42EB 
0B18 
C23C 
E2AB 
F2A4 
4CK0 
4C00 
C2IS4 
700 1 
C2B9 
D001 
42DF 
0000 
1103 
4203 

1 0AC2 
70E6 



OAEO 
157B 



T1104 BSI 2 MODDA-TB 
LD 2 H4000-TB 
STO 2 SIOSW-TB 

LDX L3 Til El 

STX L3 WTADR 
BSI 2 SIO-TB 



GET SEL.CHNL. — CHNL A 
SET UP WAIT AND RETURN 
*0N ERROR IN SIO RTN. 
SET-UP TIME OUT ADDR. 



DC 
LD 
AND 
EOR 
BNZ 
T110S BSI 
LD 
STO 



OAEA 
157B 



OAEC 
0AF3 



SEEK CYL.O HD.O ON DEV 
SEEKO CCW ADOR. 
2 SCSXO+1-TB GET UNIT STATUS 
2 HOOFF-TB MASK-OFF UNIT ADDR. 

CHK. FOR DEV.END/CHNL.END 
ERROR NOT 

GET SEL.CHNL. — CHNL B 
SET UP WAIT AND RETURN 
•ON ERROR IN' SIO RTN 
SET-UP TIME-OUT ADDR. 



OAEA C2B4 

OAEB 7001 

OAEC C2B9 

OAEO D00 1 



DC 

LD 

AND 

EOR 

BNZ 

B 

T11E1 LD 
B 

T11E2 LD 
STO 
BSI 
DC 
DC 
BSI 
DC 

a 
* 
T11E3 LD 

B 
T11E4 LD 

STO 



2 HOOOC-TB 

T11E2 
2 MOODB-TB 
2 H4000-TB 
2 SIOSW-TB 
LDX L3 T11E3 
STX L3 WTADR 
BSI 2 SIO-TB 
SEEKO 



SEEK CYL.O HD.O ON DEV 
CCW ADDR. 
2 SCSXO-M-TB GET UNIT STATUS 
2 HOOFF-TB MASK-OFF UNIT ADDR. 
2H000C-TB CHK FOR DEV.END/CHNL.END 
T11E4 ERROR NOT { 
L THEN CONTINUE- 
2 H2106-TB ENDING STAT. NOT RCVD 
- CHNL. A - 
ERR STAT IN SCSXO (SIO) 



*+l 
2 H8106-TB 

2 EROUT-TB 

*-» 

/1103 
2 TLPER-TB 

Til 04 

T1105 

2 H2106-TB 
*+l 

2 H8106-TB 
*+l 



PRINT ERROR MSG 
VARIABLE CONTROL 
SRXX XX=03 
LOOP ON ERROR 
LOOP ADDR. 
CONTINUE 

ENDING STAT. NOT RCVD 

- CHNL.B - 
ERR STAT IN SCSXO (SIO) 



PART NO. 22794S6 
PAGE 7 



81308180 
81308190 
81308200 
81308210 
81 308220 
8 1 30 82 3 
81308240 
8130 8250 
81303260 
81308270 
81308280 
81308290 
81308300 
81308310 
81308320 
81308330 
81308340 
81308350 
81308360 
81308370 
81308380 
81308390 
81308400 
81308410 
81308420 
81308430 
81308440 
81308450 
81308460 
81308470 
81308480 
8130 8490 
81308500 
81308510 
81308520 
8130 8530 
81308540 
81308550 
81308560 
81308570 
81308580 
81308590 
81308600 
81308610 
81308620 
8130 8630 
81308640 
81308650 
81308660 
81308670 
81308680 
81308690 
81308700 
81308710 
81308720 
81308730 
81308740 
81308750 
81308760 
81308770 
81308780 
81308790 
81308800 
81308810 
81308820 
81308830 
81308840 
8130 885 



14N0V69 
431319 



30JAN70 

431319A 
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OATE 
EC NO. 



BSI 


2 


EROUT-TB 


PRINT ERROR MSG 


DC. 




*-* 


VARIABLE CONTROL 


DC 




/1103 


SRXX XX=03 


BSI 


2 


TLPER-TB 


LOOP ON ERROR 


DC 




Til 05 


LOOP ADDR. 



IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 
1800-2841 TWO CHANNEL SWITCH FUNCTION TEST 



OAEE 42DF 

OAEF 0000 

OAFO 1103 

0AF1 4203 

0AF2 1 OADO 



0AF3 42E2 

0AF4 C2C1 

0AF5 1 4C18 0B1E 

0AF7 42DC 

0AF8 0007 

OAFF 0017 

0B10 0007 

0817 FFFF 



GO TO NEXT ROUTINE IN SEQUENCE 



0818 0006 
0B19 2007 
OblA 1 0B1B 



0B1B 0000 
0B1C 0000 
0B1D 0000 



THEN BSI 
LD 
BZ 
BSI 

TTLU PRNT 

* 

PRNT 
PRNT 
OC 



SEEKO DC 
DC 
DC 



CYHDA DC 
DC 

DC 



2 FREDV-TB FREE CHANNEL 
2 TRTNN-TB GET RTN SWS 

T1201 GO TO NEXT RTN IN SEO 
2 CNTRL-T8 GO TO CONTROL RTN 

. SECT 1 ,RT 1- . 

•ADDR DEV FROM INTF-A- AND INTF-B-. 
•WITH SEEK CCW.. 
/FFFF TERMINATOR 



6 BYTE COUNT 

FLSLI*256+/07 FLAGS AND OP CODE 
CYHDA ADDRESS 



*-* 
*-* 
*-* 



SEEK I/O AREA 
CYLINDER 
HEAD 



0B1E 42DC 



0B1F 0002 
OB20 0002 



**#**#*##****************************************** 

* * 
*************************************************** 
* 

* SECTION END 
* 

T1201 BSI 2 CNTRL-TB GO TO CONTROL RTN 

********* Mt»»MJ»***t**»»**»«**tt**t****« ******** 

* ... * 
*************************************************** 



SECTION PREFACE 



/0002 

2 



SECTION NUMBER 



0821 

0B22 1 

0824 

0B25 1 

0B27 

0B28 



C2C1 

4C18 0B29 

90FB 

4C30 0A62 

80F8 

7000 



T20PR OC 
DC 

* 

T20NT LD 

BZ 

S 

BP 

A 

MDX 

*************************************************** 

* • 
*************************************************** 
* 
*************************************************** 

* * 
*************************************************** 



2 TRTNN-TB SW FNC 1 BITS 12-15 

T2101 BR IF RUN ALL RTNS 

T20PR+1 TEST FOR VALID 

TCNER BR IF INVALID RTN NUMBER 

T20PR+1 RESTORE RTN NUMBER 

T2101 GO TO FIRST RTN 



0B29 

0B29 1 7401 0815 



T2101 ECU * 

MDX L TRID.l 



082B 


1 


4C18 


0B30 




BZ 




T2102 


0B2D 





9297 






S 


2 


Kl-TB 


0B2E 


1 


4C20 


0C1A 


* 
T2102 


BNZ 




T220I 


OB30 





C283 




LD 


2 


TSWO-TB 


0B31 





100A 






SLA 




OTTLE 


0B32 


1 


4C10 


0836 




BNN 




T2103 


0B34 





4200 






BSI 


2 


TLGMS-T 


0B3S 


1 


08C0 






DC 




TTL21 



TEST ENTRY POINT 

BUMP RTN ID 

BR IF TEST NUMBER ZERO 

DECREMENT BY ONE 

BR IF NOT THIS TEST 

GET OPTION SWS 
PRINT TITLES 
BR IF NOT SET 
TO PRINT ROUTINE 
MESSAGE ADDRESS 



14N0V69 
431319 



30JAN70 
431319A 



j © 
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81308860 


© 


81308870 


81308880 


I 
> 


81308890 


O 


81308900 


81308910 




81308920 





81308930 


81308940 


! 


81308950 


O 


81308960 


81308970 




81308980 


O 


81308990 


81309000 


: 


81309010 





81309020 


81309030 




81309040 





81309050 


81309060 


. . 


81309070 





81309080 


81309090 


'■■ 


81309100 





81309110 


81309120 


; 


81309130 





81309140 


81309150 




81309160 





81309170 


81309180 




81309190 





81309200 


81309210 




81309220 


1 j 


81309230 


81309240 




81309250 


°l 


81309260 


81309270 


1 


81309280 


<°i 


81309290 


81309300 


! 


81309310 


O 


81309320 


81309330 


! 


81309340 


O 


81309350 


81309360 




81309370 


O 


81309380 


81309390 


. ! ■ i 


81309400 


°l 


81309410 


81309420 


! ~i 


81309430 


O I 


81309440 


81309450 


1 "t- 


81309460 


; O 1 


813094 70 


81309480 


' 


81309490 


: O 


81309500 


81309510 


i ' 
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! O 

; ■ 


81309530 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 
1800-2841 TWO CHANNEL SWITCH FUNCTION TEST 



PART NO. 2279456 
PAGE a 



DATE 

EC NO. 



0B36 42ES 



* 

T2103 

****** 

* 

****** 

* 

* 

* 



****** 

* 

****** 



8SI 2 GETDV-T8 GET CHANNEL FOR RTN 

******* ** ******»**********»*»■„»»»*»»,„„,„,„,„,,„ 

* 

SECTION 2 ROUTINE 1 

CHECK OEVICE ALLOCATION COMMANDS 
CHNL A PRIMARY, CHNL B SECONDARY 

********* »»********V*»***»*****t#**#*****»t,t t 

* 
i****************************,*,,,**,,,,,,,^,, „,„.,, 



0S37 

0B39 

0B3B 

0B3C 

0B3D 

0B3E 

0B3F 

0840 

0B4 1 

0B42 

0B43 

0B44 

0B46 

0B47 

0B48 

0B49 

084A 

0B4B 

0B4C 

0B4O 

0B4E 

0B4F 

0B51 

0BS2 

0B53 

0BS4 

0BS6 



6700 OBBB 

6F00 17E3 

4209 

420F 

42EB 

0BF1T 

42FA 

0B78 

C23C 

E2AS 

F2A4 

4C20 0870 

420C 

420F 

42EB 

OBFA 

42FA 

0B87 

C23C 

E2A6 

F2AS 

4C20 0B8C 

1010 

0277 

D27 5 

6700 

42EE 



OIF* 



LDX 
STX 
T2104 BSI 
BSI 
BSI 
DC 
BSI 
DC 
LD 
AND 
EOR 
BNZ 
T2105 BSI 
BSI 
BSI 
DC 
BSI 
DC 
LD 
AND 
EOR 
BNZ 
T2I06 SLA 
STO 
STO 
LOX 
BSI 



L3 T21EN GET TIMEOUT ERROR ADDR 
L3 ERADR STORE FOR EROUT RTN. 
2 MODDA-TB GET SEL CHNL. -CHNL A 
2 CLRST-TB CLEAR WATSW AND SET SIOSW 
2 SIO-TB DO RESERVE DEV TO CHNL A 

RESRV CCW ADDR 
2 WAITS-TB CALL WAIT I/O ROUTINE 

T21E1 NO INTERRUPT ADDRESS 
SCSXO+l-TB GET UNIT STATUS 

ERR IF NOT DEV/CHNL END 

GET SEL CHNL. -CHNL B 
CLEAR WATSW AND SET SIOSW 
ERROR 



HOOFF-TB 

HOOOC-TB 

T21E2 

MODDB-TB 

CLRST-TB 

SIO-TB 

CCWSN 

WAITS-TB 

T21E3 



CALL WAIT I/O ROUTINE 
NO INTERRUPT ADDRESS 
SCSXO+1-TB GET UNIT STATUS 
HOOFF-TB 

TEST FOR DEV BUSY ALONE 
ERROR NOT SET OR OTHER 



T2107 

* ANY 



2 H0010-TB 
T21E4 
16 

2 SCISW-TB 
2 WIOSW-TB 
L3 500 
2 STMLS-TB 



SET ALL INTRPTS UNEXPECTED 
WAIT FOR MINIMUM OF 
* 1 SECOND 



0BS7 73FF 

0B58 70FD 

0BS9 1 6C00 08F6 

0B5B C275 

OBSC 1 4C20 0B96 



OBSE 
0B5F 
0S60 
0861 
0B62 
0863 
0B64 
0665 
0B66 
0B67 
0B68 
0B69 
0B6A 
0B6C 
0B6D 
0B6E 
0B6F 
0B70 
0B71 



4209 

C23A 

EA9C 

023A 

420F 

42EB 

0SF4 

42FA 

0B9C 

C23C 

E2AB 

F2A4 

4C20 0BA1 

420C 

1010 

0275 

0A39 

42FA 



1 OBAB 



MDX 
B 

STX 
LD 
BNZ 
* 

T2108 BSI 
LD 
OR 
STO 
BSI 
BSI 
OC 
BSI 
DC 
LD 
AND 
EOR 
BNZ 
T2109 BSI 
SLA 
STO 
XIO 
BSI 
DC 



INTRPT RCVD OURING WAIT WILL BE UNEXPECTED 



3 -1 
T2107 
L SCISW 
2 WIOSW-TB 
T21E5 



SET INTERRUPTS EXPECTED 
GET WAIT SWITCH 
OCCURRED, ELSE ERROR. 



MOODA-TB GET SEL CHNL. -CHNL A 
SCSNS+1-TB SET SUPPRESS POLL IN BYTE 
K8-TB COUNT SENSE IOCC TO 
SCSNS+l-TB CAUSE SUPP. ROLL AFTER 
CLRST-TB CLEAR WATSW AND SET SIOSW 
SIO-TB DO RELEASE DEV FROM CHNL A 
RELSE CCW ADDR 
WAITS-TB CALL WAIT I/O ROUTINE 
T21E6 NO INTERRUPT ADDRESS 
SCSXO+l-TB GET UNIT STATUS 
HOOFF-TB 

CHK FOR DEV/CHNL END 

ERROR NOT 

GET SEL CHNL -CHNL B 



2 HOOOC-TB 

T21E7 
2 MODDB-TB 

16 

2 WIOSW-TB 
2 $CSNS-TB 
2 WAITS-TB 

T21E8 



CLR WAIT SWITCH 
SENSE TO RELIEVE POLL 
CALL WAIT I/O ROUTINE 
NO INTERRUPT ADDRESS 



14N0V69 30JAN70 
431319 431319A 



81309540 

81309S50 

81309560 

81309570 

81309580 

81309590 

81309600 

81309610 

81309620 

81309630 

8 1 309640 

81309650 

81309660 

81309670 

81309680 

81309690 

81309700 

81309710 

81309720 

81309730 

81309740 

81309750 

81309760 

81309770 

81309780 

81309790 

81309800 

81309810 

81309820 

81309830 

81309840 

81309850 

81309860 

81309870 

81309880 

81309890 

81309900 

81309910 

81309920 

81309930 

81309940 

81309950 

81309960 

81309970 

81309980 

81309990 

81310000 

81310010 

81310020 

81310030 

81310040 

81310050 

81310060 

81310070 

81310080 

81310090 

81310100 

81310110 

81310120 

81310130 

81310140 

81310150 

81310160 

81310170 

81310180 

81310190 

81310200 

81310210 
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IBM MAINTENANCE DIAGNOST IC PROGRAM FOR THE 1800 SYSTEM 
1800-2841 TWO CHANNEL SWITCH FUNCTION TEST 



DATE 
EC NO. 



0S372 C23C 

0B73 E2AB 

0B74 F29A 

0B75 1 4C20 OBBO 

0B77 O 7043 



0B78 


42DF 


0B79 


148 


0B7A 


1 OCOO 


0B7B 


C2B2 


0B7C 


7001 


0B7D 


C2B9 


0B7E 


D001 


0B7F 


42 DF 


OBBO 


0000 


0B81 


2109 


0B82 


4206 


0B83 


1 0B3B 


0B84 


4203 


0BB5 


1 0B3B 


0B86 


7031 


0B87 


42DF 


0B88 


0148 


0B8 9 


1 OCOO 


0B8A 


C2B2 


0B8B 


7001 


OBSC 


C2B9 


0B8D 


DO01 


0B8E 


42 DF 


0B8F 


3 0000 


OB90 2111 


0B91 4206 


0B92 


0B46 


0B93 4203 


0B94 


0B3B 


0B95 7022 


0B96 C 


42 DF 


0B97 C 


0100 


0B98 C 


2112 


0B99 C 


4203 


0B9A 1 


0B3B 


0B9B 


70C2 


0B9C 


420F 


0B9D 


0148 


0B9E 1 


OCOO 


0B9F 


C2B2 


OBAO 


7001 


0BA1 


C2B9 


0BA2 


D001 


0BA3 


42 DF 


0BA4 


0000 


0BA5 


2110 


0BA6 


4206 


OBA7 1 


0B5E 


0BA8 


4203 


08 A 9 1 


0B3B 


OBAA 


70C1 


OBAB 


42 DF 


OBAC 


0148 


OBAD 1 


OCOO 


OBAE 


C2B2 


OBAF 


7001 



T21E1 



T21E2 



LD 
AND 
EOR 
BNZ 

B 



BSI 

DC 

DC 

LD 

B 

LD 

STO 

BSI 

DC 

DC 

BSI 

DC 

BSI 

DC 

B 



* 
T21E3 



BSI 

DC 

OC 

LD 

B 

T21E4 LD 
STO 
BSI 
DC 
DC 
BSI 
DC 
BSI 
DC 
B 

* 

T21E5 BSI 
DC 
DC 
BSI 
DC 
B 

* 

T21E6 BSI 
DC 
DC 
LD 
B 

T21E7 LD 
STO 
BSI 
OC 
DC 
BSI 
DC 
BSI 
DC 
B 



* 
T21E8 



BSI 

DC 

DC 

LD 

B 



14N0V69 
431319 



30JAN70 
43I3I9A 



2 SCSXO+l-TB GET UNIT STATUS 

2 HOOFF-TB MASK OFF UNIT ADDR. 

2 K4-TB CHK FOR DEV END ALONE 

T21E9 ERROR NOT 

T21EN CONTINUE- 

ERROR ROUTINES 



: EROUT- 
/0148 
NOINT 
HI 206- 
*+l 
H8106- 
* + l 

EROUT- 
*-* 
/2109 
TLPST- 
T2104 
TLPER- 
T2104 
T21EB 



•TB 
-TB 

-TB 

■TB 
•TB 



! EROUT 
/0148 
NOINT 

: H1206 
*+l 
H8106- 
*+l 

EROUT- 
*-* 
/2111 
TLPST- 
T2105 
TLPER- 
T2104 
T21EB 



-TB 

-TB 
-TB 
■TB 

TB 
TB 



2 EROUT 
/0100 
/2112 

i TLPER 
T2104 
T2108 

: EROUT- 
/0148 
NOINT 

! H1206- 
*+l 

: H8106- 
*+l 

EROUT- 
*-* 
/2I10 
TLPST- 
T2108 
TLPER- 
T2104 
T2I09 



-TB 
-TB 

-TB 

-TB 
■TB 
■TB 

TB 

TB 



2 EROUT 
/0148 
NOINT 

2 H1206- 
•♦1 



-TB 



TB 



PRINT NO INTRPT RCVD MSG 

CONTROL 

ERROR MSG ADDR 

STATUS IN SCSXC/ABORT RTN 

ERR STAT IN SCSXO (SIO) 

GO PRINT ERROR MSG 09 

VARIABLE CONTROL 

ERROR MSG NO. 9 

LOOP SIO REQUESTED 

BR. ADR. TO ALLOW SCOPE LOOP 

LOOP ON ERROR 

LOOP ADDR 

CONTINUE TO ABORT MESSAGE 

PRINT NO INTRPT RCVD MSG 

CONTROL 

ERROR MSG ADDR 

STATUS IN SCSXC/ABORT RTN 

NO INTRPT RCVD 

ERR STAT IN SCSXO (SIO) 

GO PRINT MSG 11 

VARIABLE CONTROL 

ERR MSG NR 11 

LOOP SIO REQUESTED 

BR.AOR.TO ALLOW SCOPE LOOP 

LOOP ON ERROR 

ERROR LOOP ADDRESS 

CONTINUE TO ABORT MESSAGE 

UNEXPECTED INTRPT OURING 

1.0 SECOND WAIT 

PRINT ONLY LINE 1 

LOOP ON ERROR 

ERROR LOOP ADDRESS 

CONTINUE- 

PRINT NO INTRPT RCVD MSG 

CONTROL 

ERROR MSG ADOR 

STATUS IN SCSXC/ABORT RTN 

ERR STAT IN SCSXO <SIO) 

PRINT ERR MSG NR 10 

VARIABLE CONTROL 

SRXX 

LOOP SIO REQUESTED 

BR. ADR .TO ALLOW SCOPE LOOP 

LOOP ON ERROR 

ERROR LOOP ADDRESS 

CONTINUE 

PRINT ERR MSG FOR NO 

CONTROL 

ERROR MSG ADDR 

STATUS IN SCSXC/ABORT RTN 



PART NO. 
PAGE 



81310220 

81310230 

81310240 

81310250 

81310260 

81310270 

81310280 

81310290 

81310300 

81310310 

81310320 

81310330 

81310340 

813103S0 

81310360 

81310370 

81310380 

81310390 

81310400 

81310410 

81310420 

81310430 

81310440 

81310450 

81310460 

81310470 

81310480 

81310490 

81310500 

81310510 

81310520 

81310530 

81310540 

813105S0 

81310560 

81310570 

81310580 

81310590 

81310600 

81310610 

81310620 

81310630 

81310640 

81310650 

81310660 

81310670 

81310680 

81310690 

81310700 

81310710 

81310720 

81310730 

81310740 

81310750 

81310760 

81310770 

81310780 

81310790 

81310800 

81310810 

81310820 

81310830 

81310840 

81310850 

81310860 

81310876 

81310880 

81310890 



2279456 
8A 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 
1800-2841 TWO CHANNEL SWITCH FUNCTION TEST 



PART NO. 22794S6 
PAGE 9 



DATE 
EC NO. 



06B0 





C2B9 


T21E9 


LD 


2 


H8106-TB 


ERR STAT IN SCSX0 <SI0) 


81310900 


0BB1 





000 1 




ST0 




* + l 




81310910 


0BB2 





42 OF 




BSI 


2 


ER0UT-TB 


PRINT ERR MSG NR 10 


81310920 


0BB3 





0000 




DC 




*-* 


VARIABLE CONTROL 


81310930 


0BB4 





21 13 




DC 




• 2113 


SRXX 


81310940 


0BB5 





4203 


T21EA 


BSI 


2 


TLPER-TB 


LOOP ON ERROR 


81310950 


686 


1 


0B3B 




DC 




T2104 


ERROR LOOP ADDRESS 


81310960 


0BB7 





7003 


* 


8 




T21EN 


CONTINUE TO END RTN. 


81310970 
81310980 


0BB8 





42 OF 


T21EB 


BSI 


2 


EROUT-TB 


PRINT RTN ABORT PENDING 


81310990 


0BB9 





0140 




DC 




/0140 


C0NTR0L-1RST LN t, NO HALT 


81311000 


0B8A 





2105 


* 


DC 




/2105 




81311010 
81311020 








* 


GO TO 


NEXT ROUTINE IN SEOUENCE 


81311030 








* 










81311040 


0B8B 





42E2 


T21EN 


BSI 


2 


FREDV-TB 


FREE CHANNEL 


8131 10S0 


0BBC 





C2C1 




LD 


2 


TRTNN-TB 


GET RTN SWS 


81311060 


0BB0 


1 


4C18 0C1A 




BZ 




T2201 


GO TO NEXT RTN IN SEO 


81311070 


0BBF 





420C 




BSI 


2 


CNTRL-TB 


GO TO CONTROL RTN 


8131 1080 


0BC0 




0007 


TTL21 

* 


PR NT 




. SECT 2i 


RT 1- . 


81311090 
8131 1 100 


0BC7 




00 17 




PR NT 




.RESERVE 


TO INTF-A-.AODR ON INTF-B-. 


81311 110 


0BD8 




0017 




PRNT 




..RELEASE 


FROM INTF-A-.CLR DEV END . 


81311 120 


0BE9 




0007 




PR NT 




.FROM INTF-B-. . 


81311130 


0BF0 





FFFF 


* 


OC 




/FFFF 




81311140 

8131 1150 


0BF1 





0006 


RESRV 


DC 




6 


BYTE COUNT 


81311160 


0BF2 





2084 




DC 




/20*256+/B4 FLAGS AND OP CODE 


81311170 


0BF3 


1 


0BFD 


* 
* 


DC 




CYHDB 


ADDRESS 


81311180 
81311190 
81311200 


0BF4 





0006 


RELSE 


DC 




6 


BYTE COUNT 


81311210 


0BFS 





2094 




DC 




/20»256+/94 FLAGS AND OP CODE 


81311220 


0BF6 


1 


0BFD 


* 
* 


DC 




CYHDB 


ADDRESS 


81311230 
81311240 
81311250 


0BF7 





0001 


CCWT5 


DC 




1 


BYTE COUNT ' 


81311260 


0BF8 





2000 




OC 




/20»256+OPTIO FLAGS AND OP CODE 


81311270 


0BF9 


1 


089D 


* 
* 


DC 




TSWDS 


ADDRESS 


81311280 
81311290 
81311300 


0BFA 





0006 


CCWSN 


DC 




6 


BYTE COUNT 


81311310 


0BFB 





0004 




DC 




0*256+0PSNS FLAGS AND OP CODE 


81311320 


0BFC 


I 


08A2 


* 


0C 




SNWDS 


ADDRESS 


81311330 
81311340 


0BF0 




0003 


CYHDB 

* 


BSS 




3 


DUMMY STORAGE 


81311350 
81311360 


0C00 




0015 


N01NT 


PRNT 




.28 -EXPECTED INTRPT NOT RCVD- . 


81311370 


0C0F 




0010 




PRNT 




•-RTN ABORT PENDING- . ' 


81311380 


0C19 





FFFF 


# 


DC 




/FFFF 


TERMINATOR 


81311390 
81311400 








a************************************************** 


81311410 








* 








* 


81311420 








»*#***##***#**#*#*#*♦*******#*###*#**»###*******#** 


81311430 


0C1A 







T2201 


EOU 




* 


TEST ENTRY POINT 


81311440 


0C1A 


1 


7401 0815 




MDX 


L 


TRID.l 


BUMP RTN ID 


81311450 


0C1C 


1 


4C18 0C21 




BZ 




T2202 


BR IF TEST NUMBER ZERO 


81311460 


0C1E 





9297 




S 


2 


Kl-TB 


DECREMENT By. ONE 


81311470 


0C1F 


1 


4C20 0CE2 


* 


BNZ 




T2301 


BR IF NOT THIS TEST 


81311480 
81311490 


0C21 





C283 


T2202 


LD 


2 


TSW0-TB 


GET OPTION SWS 


81311500 


0C22 





100A 




SLA 




0TTLE 


PRINT TITLES 


81311510 


0C23 


1 


4C10 0C27 




BNN 




T2203 


BR IF NOT, .SET 


81311520 


0C2S 





4200 




BSI 


2 


TLGMS-TB 


GO TO PRINT ROUTINE 


81311530 


0C26 


1 


0CB1 


* 


DC 




TTL22 


MESSAGE ADDRESS 


81311540 

81311550 


0C27 





42E5 


T2203 


BSI 


2 


GETOV-TB 


GET CHANNEL FOR RTN. 


81311560 








it**********!**************************************** 


81311570 



14N0V69 
431319 



30JAN70 
431319A 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THS 1800 SYSTEM 
1800-2841 TWO CHANNEL SWITCH FUNCTION TEST 



DATE 
EC NO. 



0C28 
0C2A 
0C2C 
0C2D 
0C2E 
0C2F 
0C30 
0C31 
0C32 
0C33 
0C34 
0C35 
0C37 
0C38 
0C39 
0C3A 
0C3B 
0C3C 
0C3D 
0C3E 
0C3F 
0C40 
0C42 
0C43 
0C44 
0C45 
0C47 



6700 0CAC 

6F00 17E3 

420C 

420F 

42EB 

0BF1 

42FA 

0C69 

C23C 

E2AB 

F2A4 

4C20 0C6E 

4209 

420F 

42EB 

0BFA 

42FA 

0C78 

C23C 

E2AB 

F2A5 

4C20 0C7D 

1010 

D277 

D275 

6700 01F4 

42EE 



0C48 73FF 

0C49 70FD 

0C4A 1 6CO0 08F6 

0C4C C275 

0C4D 1 4C20 0C87 



0C4F 
0CS0 
0C51 
0C52 
0C53 
0C54 
0C55 
0C56 
0C57 
0C58 
0C59 
0C5A 
0C5B 
0C5D 
0C5E 
0C5F 
OC60 
0C61 
0C62 
0C63 
0C64 
0C65 



420C 

C23A 

EA9C 

D23A 

420F 

42EB 

0BF4 

42FA 

0C8D 

C23C 

E2AB 

F2A4 

4C20 0C92 

4209 

1010 

D275 

0A39 

42FA 

0C9C 

C23C 

E2AB 

F29A 



*#*##**#****##*##*##*****#*######*******#*****#*#** 



SECTION 2 ROUTINE 2 



CHECK DEVICE ALLOCATION COMMANDS 
CHNL B PRIMARY. CHNL A SECONDARY 



* » 



LDX 
STX 

T2204 BSI 
BSI 
BSI 
DC 
BSI 
DC 
LD 
AND 
EOR 
BNZ 

T2205 BSI 
BSI 
BSI 

be 

BSI 

DC 

LD 

AND 

EOR 

BNZ 

T2206 SLA 
STO 
STO 
LDX 

T2207 BSI 



L3 

L3 

2 

H 

2 



2 

2 

L3 

2 



T22EN 

ERADR 

M0DDB-TB 

CLKST-TB 

SIO-TB 

RtSRV 

WAITS-TB 

T22E1 

SCSX0+1 

H00FF-TB 

HO00C-TB 

T22E2 

MODDA-TB 

CLRST-TB 

SIO-TB 

CCWSN 

WAITS-TB 

T22E3 



GET TIMEOUT ERROR ADDR 
STORE FOR EROUT RTN. 
GET SEL CHNL. -CHNL 8 
CLEAR WATSW AND SET SIOSW 
DO RESERVE DEV TO CHNL B 
CCW AODR 

CALL WAIT I/O ROUTINE 
NO INTERRUPT ADDRESS 
TB GET UNIT STATUS 

ERR IF NOT DEV/CHNL END 

GET SEL CHNL. -CHNL A 
CLEAR WATSW AND SET SIOSW 
ERROR 



CALL WAIT I/O ROUTINE 
NO INTERRUPT ADDRESS 
SCSX0+1-TB GET UNIT STATUS 
HOOFF-TB 

TEST FOR DEV BUSY ALONE 
ERROR NOT SET OR OTHER 



H0010-TB 

T22E4 

16 

SC1SW-TB 

WIOSW-TB 

500 

STMLS-TB 



SET ALL INTRPTS UNEXPECTED 
WAIT FOR MINIMUM OF 
* 1 SECOND 



* ANY INTRPT RCVD DURING WAIT WILL BE UNEXPECTED 



MDX 

B 

STX 

LD 

BNZ 

*_ 

T2208 BSI 
LD 
OR 
STO 
BSI 
BSI 
DC 
BSI 
DC 
LD 
AND 
EOR 
BNZ 

T2209 BSI 
SLA 
STO 
XIO 
BSI 
OC 
LD 
AND 
EOR 



-1 

T2207 

SCISW 

WIOSW-TB 

T22E5 



SET INTERRUPTS EXPECTED 
GET WAIT SWITCH 
OCCURRED. ELSE ERROR. 



-TB 



MCDDB-TB 

SCSNS+1- 

K8-TB 

SCSN5+1-TB 

CLRST-TB 

SIO-TB 

RELSE 

WAITS-TB 

T22E6 



GET SEL CHNL. -CHNL B 
SET SUPPRESS POLL IN BYTE 
COUNT SENSE IOCC TO 
CAUSE SUPP. POLL AFTER 
CLEAR WATSW AND SET SIOSW 
DO RELEASE DEV FROM CHNL B 
CCW AODR 

CALL WAIT I/O ROUTINE 
NO INTERRUPT ADDRESS 
SCSX0+1-TB GET UNIT STATUS 
HOOFF-TB 

CHK FOR DEV/CHNL END 
ERROR NOT 
GET SEL CHNL -CHNL A 



H00OC-TB 

T22E7 

MODDA-TB 

16 

WIOSW-TB 

SCSN5-TB 

WAITS-TB 

T22E8 



CLR WAIT SWITCH 
SENSE TO RELIEVE POLL 
CALL WAIT I/O ROUTINE 
NO INTERRUPT ADDRESS 
SCSX0+1-TB GET UNIT STATUS 
HOOFF-TB MASK OFF UNIT ADDR. 
K4-TB CHK FOR DEV END ALONE 



PART NO. 2279*56 
PAGE 9A 



81311580 
81311590 
81311600 
81311610 
81311620 
81311630 
81311640 
81311650 
81311660 
81311670 
8131 1680 
81311690 
81311700 
81311710 
81311720 
81311730 
81311740 
81311750 
81311760 
81311770 
81311780 
81311790 
81311800 
81311810 
8131 1820 
81311830 
81311840 
81311850 
81311860 
81311870 
81311880 
81311890 
81311900 
81311910 
8131 1920 
81311930 
81311940 
81311950 
81311960 
81311970 
81311980 
81311990 
81312000 
81312010 
81312020 
81312030 
81312040 
81312050 
81312060 
81312070 
81312080 
81312090 
81312100 
81312110 
81312120 
81312130 
81312140 
81312150 
81312160 
81312170 
81312180 
81312190 
81312200 
81312210 
81312220 
81312230 
81312240 
81312250 



14N0V69 
431319 



30JAN70 
431319A 



PROG ID 
PAGE 



0813-0 
9A 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 
1800-2841 TWO CHANNEL SWITCH FUNCTION TEST 



0C66 1 4C20 0CA1 


UNZ 


T22t9 


ERROR NOT 


0C68 7043 


B 


T22EN 


CONTINUE- 



DATE 
EC NO. 



ERROR ROUTINES 



0C69 





42DF 


0C6A 





0143 


0C6B 


1 


ocoo 


0C6C 





C232 


0C6D 





700 1 


0C6E 





C289 


0C6F 





0001 


0C70 





420F 


0C71 





0000 


0C72 





2209 


0C73 





4206 


0C74 


1 


0C2C 


PC7S 





4203 


0C76 


1 


0C2C 


0C77 





7031 


0C78 





420F 


0C79 





0148 


0C7A 


1 


OCOO 


0C7B 





C2B2 


0C7C 





700 1 


0C7D 





C2B9 


0C7E 





0001 


0C7F 





42 DF 


0C80 





0000 


0C81 





2211 


0C82 





4206 


0C83 


1 


0C37 


0C84 





4203 


0C85 


1 


0C2C 


0C86 





7022 


0C87 





42 DF 


0C88 





0100 


0C89 





2212 


0C8A 





4203 


0C68 


1 


0C2C 


0C8C 





70C2 


0C8D 





42 OF 


0C8E 





0148 


0C8F 


1 


OCOO 


0C90 





C2B2 


0C9J 





7001 


0C92 





C2B9 


0C93 





0001 


0C94 





420F 


0C9S 





0000 


0C96 





2210 


0C97 





4206 


0C98 


1 


0C4F 


0C99 





4203 


0C9A 


1 


0C2C 


0C9B 





70C1 


0C9C 





42 OF 


0C9D 





0148 


0C9E 


1 


OCOO 


0C9F 





C2 62 


0CA0 





7001 


0CA1 





C2B9 


0CA2 





0001 


0CA3 





42 OF 



T22E1 BSI 
DC 
DC 
L0 
B 

T22E2 LD 
ST0 
BSI 
DC 
DC 
BSI 
DC 
BSI 
DC 
B 



BSI 
DC 

DC 

LD 

B 

LD 

ST0 

BSI 

DC 

DC 

BSI 

DC 

BSI 

DC 

B 



T22E4 



BSI 

DC 
DC 
BSI 
DC 

8 

BSI 

DC 

DC 

LD 

B 

LD 

STO 

BSI 

DC 

DC 

BSI 

DC 

BSI 

OC 

B 

BSI 

DC 

DC 

LD 

B 

LO 

STO 

BSI 



14N0V69 
431319 



30JAN70 
431319A 



ER0UT-TB 

/0148 

NOINT 

H1206-TB 

*+l 

H8106-TB 

* + l 

ER0UT-TB 
*-* 
/2209 
TLPST-TB 
T2204 
TLPER-TB 
T2204 
T22EB 

EROUT-TB 
/0148 
NOINT 
H1206-TB 

* + l 
H8106-TB 

* + l 

ER0UT-T8 
*-* 
/2211 
TLPST-TB 
T2205 
TLPER-TB 
T2204 
T22EB 

EROUT-TB 

/0100 

/2212 

TLPER-TB 

T2204 

T2208 

EROUT-TB 

/0148 

NOINT 

H1206-TB 

*+l 

H8106-TB 

*+l 

ER0UT-T6 

*-* 

/2210 

TLPST-TB 

T2208 

TLPER-T8 

T2204 

T2209 

EROUT-TB 

• 0148 

NOINT 

H1206-TB 

*+l 

H8106-TB 

*+l 

EROUT-TB 



PRINT NO INTRPT RCVD MSG 

CONTROL 

ERROR MSG ADDR 

STATUS IN SCSXC/ABORT RTN 

ERR STAT IN SCSX0 (SI0) 

GO PRINT ERROR MSG 09 

VARIABLE CONTROL 

SRXX PARAMETER 

LOOP SI0 REQUESTED 

OR. ADR. TO ALLOW SCOPE LOOP 

LOOP ON ERROR 

LOOP ADDR 

CONTINUE TO ABORT MESSAGE 

PRINT NO INTRPT RCVD MSG 

CONTROL 

ERROR MSG ADDR 

STATUS IN SCSXC/ABORT RTN 

NO INTRPT RCVD 

ERR STAT IN SCSX0 (SIO) 

GO PRINT MSG 11 

VARIABLE CONTROL 

SRXX PARAMETER 

LOOP SIO REQUESTED 

BR. ADR. TO ALLOW SCOPE LOOP 

LOOP ON ERROR 

ERROR LOOP ADDRESS 

CONTINUE TO ABORT MESSAGE 

UNEXPECTED INTRPT DURING 

1.0 SECOND WAIT 

SRXX PARAMETER 

LOOP ON ERROR 

ERROR LOOP ADDRESS 

CONTINUE- 

PRINT NO INTRPT RCVD MSG 

CONTROL 

ERROR MSG ADDR 

STATUS IN SCSXC/ABORT RTN 

ERR STAT IN SCSX0 (SI0> 

PRINT ERR MSG NR 10 

VARIABLE CONTROL 

SRXX PARAMETER 

LOOP SIO REQUESTED 

BR. ADR .TO ALLOW SCOPE LOOP 

LOOP ON ERROR 

ERROR LOOP AD0RESS 

CONTINUE 

PRINT ERR MSG FOR NO 

CONTROL 

ERROR MSG ADDR 

STATUS IN SCSXC/ABORT RTN 

ERR STAT IN SCSX0 (SIO) 

PRINT ERR MSG NR 10 
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DATE 
EC NO. 



ENANCE 


DIAGNOSTIC 


PROGRAM 


FOR THE 


1800 SYSTEM 


PART NO. 2279456 




















PAGE 1 0A 


TWO 


CHANNEL SWITCH FUNCTION TEST 








0CA4 





0000 






DC 




*-* 


VARIABLE CONTROL 


ai3l2<<40 


OCAb 





2213 






DC 




/2213 


SRXX PARAMETER 


81312950 


0CA6 





4203 




T22EA 


BSI 


2 


TLPER-TB 


LOOP ON ERROR 


81312960 


0CA7 


1 


0C2C 






DC 




T2204 


ERROR LOOP ADDRESS 


81312970 


0CA8 





7003 




* 


B 




T22EN 


CONTINUE TO END RTN. 


81312980 
81312990 


0CA9 





42DF 




T22EB 


BSI 


2 


EROUT-TB 


PRINT RTN ABORT PENDING 


81313000 


0CAA 





0140 






DC 




/0140 


C0NTR0L-1RST LN 6 NO HALT 


81313010 


OCAB 





2205 




* 


DC 




/2205 




81313020 
81313030 










* 


GO TO 


NEXT ROUTINE IN SEQUENCE 


81313040 










* 










81313050 


0CAC 





42E2 




T22EN 


BSI 


2 


FREDV-TB 


FREE CHANNEL 


81313060 


0CAD 





C2C1 






LD 


2 


TRTNN-TB 


GET RTN SWS 


81313070 


0CAE 


1 


4C18 


0CE2 




az 




T2301 


GO TO NEXT RTN IN SEQ 


81313080 


0CB0 





42DC 






BSI 


2 


CNTRL-TB 


GO TO CONTROL RTN 


81313090 


0CB1 




0007 




TTL22 

* 


PRNT 




. SECT 2. 


RT 2- . 


81313100 
813131 10 


0CB8 




0017 






PR NT 




•RESERVE 


TO INTF-B-.ADOR ON INTF-A-. 


81313120 


0CC9 




0017 






PRNT 




..RELEASE FROM INTF-B-.CLR DEV END . 


81313130 


0CDA 




0007 






PRNT 




.FROM INTF-A-. . 


81313140 


0CE1 





FFFF 






DC 




/FFFF 




81313150 










*»***********»»**#********************************* 


81313160 










* 








* 


81313170 










*#*****#*********X^***#**********#*>***********#**** 


81313180 










* *.* 










81313190 










* 


SECTION 


END 




81313200 










* 










81313210 


0CE2 





42 DC 




T2301 


BSI 


2 


CNTRL-TB 


GO TO CONTROL RTN 


81313220 










*#**#**#****#*##**#***#*****#*#*************#****** 


81313230 










* 








* 


81313240 










#**#***#*##*#*************#**#*#**#************#*** 


81313250 










* 










81313260 










* 


SECTION 


PREFACE 




81313270 










* 










81313280 


0CE3 





0003 




T30PR 


DC 




/0003 


SECTION NUMBER 


81313290 


0CE4 





0002 




* 


DC 




2 




81313300 
81313310 


0CE5 





C2C1 




T30NT 


LD 


2 


TRTNN-TB 


SW FNC 1 BITS 12-15 


81313320 


0CE6 


1 


4C1B 


0CED 




BZ 




T3101 


BR IF RUN ALL RTNS 


81313330 


0CE8 





90FB 






s 




T30PR+1 


TEST FOR VALID 


81313340 


0CE9 


1 


4C30 


0A62 




BP 




TCNER 


BR IF INVALID RTN NUMBER 


81313350 


0CEB 





80F8 






A 




T30PR+1 


RESTORE RTN NUMBER 


81313360 


0CEC 





7000 






MDX 




T3101 


GO TO FIRST RTN 


81313370 










**#*«#*###*****#*##**#*##*#***3***#W*#****#*******# 


81313380 










# 








* 


81313390 










#**#*****#*****#**********##*##**#*#*#*##********** 


81313400 










* 










81313410 










###***##*##*****##*******##***#¥***##**#****###*### 


81313420 










* 








* 


81313430 










#**#*♦*#*#*##*##*#*:****♦*****###**#*#************** 


81313440 


0CED 









T3101 


EQU 




# 


TEST ENTRY POINT 


81313450 


0CED 


1 


7401 


0815 




MOX 


L 


TRID.l 


BUMP RTN ID 


81313460 


0CEF 


1 


4C18 


0CF4 




BZ 




T3102 


BR IF TEST NUMBER ZERO 


81313470 


0CF1 





9297 






S 


2 


Kl-TB 


DECREMENT BY ONE 


81313480 


0CF2 


1 


4C20 


0DCB 


* 


SNZ 




T3201 


BR IF NOT THIS TEST 


81313490 
81313500 


0CF4 





C283 




T3102 


LD 


2 


TSW0-TB 


GET OPTION SWS 


81313510 


0CF5 





100A 






SLA 




OTTLE 


PRINT TITLES 


81313520 


0CP6 


1 


4C10 


0CFA 




BNN 




T3103 


BR IF NOT SET 


81313530 


0CF8 





4200 






BSI 


2 


TLGMS-TB 


GO TO PRINT ROUTINE 


81313540 


0CF9 


1 


0D94 




# 


DC 




TTL31 


MESSAGE ADDRESS 


81313550 
81313560 


0CFA 





42E5 




T3103 


BSI 


2 


GETDV-TB 


GET CHANNEL FOR RTN 


81313S70 










***************************** 4*4******* ************ 


81313580 










* 








* 


81313590 










***************** ******4*********** ********* ******* 


81313600 










* 










81313610 



14N0V69 
431319 



30JAN70 
431319A 
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ISM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 
1000-2841 TWO CHANNEL SWITCH FUNCTION TEST 



DATE 
EC NO. 



SECTION 3 ROUTINE 1 

TEST CHANNEL SELECTION SWITCH WITH UNIT CHK 
CHNL A IS PRIMARY INTFt CHNL B IS SECONDARY 



OCFB 

OCFD 

0CFF 

0000 

0D01 

0002 

0003 

0D04 

00 OS 

0006 

0007 

0008 

0D0A 

0D0B 

00 0C 

O0OD 

0D0E 

00 OF 

0010 

0011 

0D12 

0013 

0D14 

0D1S 

0017 

0018 

0019 

001A 

00 IB 

001C 

00 ID 

001E 

001F 

0D20 

0021 

0D22 

0023 

0D2S 

0026 

002.7, 

0D28 

0D29 

0D2A 

0028 

0D2C 

0020 

0D2E 

0D2F 

0030 

0031 

0033 

0D34 

0035 

0037 

0038 

0D39 



1 6700 
1 6FO0 
4209 
420F 
42EB 
0DC5 
42FA 
I 0043 
C23C 
62AB 
F298 
4C20 
42 OF 
42EB 
0BF7 
420F 
42EB 
0894 
42FA 
0052 
C23C 
E2AB 
F2A4 
4C20 
420C 
C29C 
EA3A 
D23A 
42 OF 
42E8 
1 0BFA 

42FA 

1 006 1 
C23C 
E2AB 
F2AA 
4C20 
4209 
C29C 
EA3A 
023A 
42 OF 
42 EB 
0BFA 
42FA 
070 
C23C 
E2AB 
F2A4 

1 4C20 
C223 

F2S8 

1 4C20 
420C 
420F 
0A39 



008F 
17E3 



0D7S 



0D3A 42FA 
0D3B 1 0D7F 



ft********* 

* 

* 

LDX 
STX 

T3104 BSI 
BSI 
BSI 
DC 
BSI 
DC 
LD 
AND 
E0R 
BNZ 

T3105 BSI 
BSI 
DC 
BSI 
BSI 
DC 
BSI 
DC 
LO 
A NO 

eor 

BNZ 
BSI 

T3106 LD 
OR 
STO 
BSI 
BSI 
DC 
BSI 
0C 
LD 
AND 
EOR 
BNZ 

T3107 BSI 
L0 
OR 
STO 
BSI 
BSI 
DC 
BSI 
DC 
LD 
AND 
EOR 
BNZ 
LD 
EOR 
BNZ 

T3108 BSI 
BSI 
XIO 

• 

BSI 
DC 



* 
***************************************** 



L3 T31EN GET TIMEOUT ERROR ADDR 
L3 ERADR STORE FOR ER0UT RTN. 
2 MOODA-TB GET SEL CHNL i -CHNL A 
2 CLRST-TB CLR WAIT SW t SETUP 0PTNS 
2 SI0-TB GO EXECUTE 

CC3U INVALID C0MMD CHAIN 
2 WA1TS-TB CALL WAIT 1/0 ROUTINE 

T31E1 NO INTERRUPT ADDRESS 
2 SCSX0+1-TB FETCH UNIT STATUS 
2 H00FF-TB 
2 K2-TB UNIT CHECK ONLY 

T31E2 NO. ERROR 
2 CLRST-TB CLR WAIT SW 6. SETUP OPTION 
2 SIO-TB GO EXECUTE 

CCWTS TEST I/O 
2 CLRST-TB CLR WAIT SW 6 SETUP 0PTN 
2 SIO-TB GO EXECUTE 

NOPCC NO-OP 
2 WAITS-TB CALL WAIT I/O ROUTINE 
T3IE3 NO INTERRUPT ADDRESS 
SCSX0+1-TB FETCH STATUS 
HO0FF-TB 

CHAN END & DEV END ONLY 
NO. ERR 

GET SEL CHNL. -CHNL B 
INSERT SUPP POLL BIT INTO 
SENSE I0CC 



14N0V69 
431319 



30JAN70 
431319A 



H000C-TB 

T31E4 

MODOB-TB 

K8-TB 

SCSN5+1-TB 

SCSN5+1-TB 

CLRST-TB 

SIO-TB 

CCWSN 

WAITS-TB 

T31E5 



CLR WAIT SW SETUP OPTION 
GO EXECUTE 

SENSE 
CALL WAIT 1/(3 ROUTINE 
NO INTERRUPT ADDRESS 



SCSX0+1-TB FETCH STATUS 

H00FF-TB 

CTRL UNIT BUSY 

NO. ERROR 

GET SEL CHANL. 



HOOSO-TB 

T31E6 

MODDA-TB 

K6-TB 

SCSN5+1-TB 

SCSN5+1-TB 

CLRST-TB 

SIO-TB 

CCWSN 

WAITS-TB 

T31E7 



•CHNL A 



CLR WAIT SW SETUP OPTION 
GO EXECUTE 

SENSE 
CALL WAIT I/O ROUTINE 
NO INTERRUPT ADDRESS 



SCSX0+1-TB GET UNIT STATUS 

H0OFF-TB MASK OFF UNIT ADDR 

H000C-TB CHK FOR DEV/CHNL END 

T31E8 ERROR NOT 

SNWDS-TB FETCH SENSE r BYTES • 1 

H8010-TB C0MMD REJ 6 INVALID SE0 

T31E8 NO.' ERROR 

MOD0B-TB GET SEL CHNli. -CHNL B 

CLRST-TB CLR WAIT SW 

SCSN5-TB SENSE 

SUPPRESS POLL IS RELIEVED 

WAITS-TB CALL WAIT 1/0 ROUTINE 

T31E9 NO INTERRUPT ADDRESS 



PART NO. 2279456 
PAGE 11 



81313620 

81313630 

81313640 

81313650 

HI 313660 

01313670 

813136H0 

81313690 

81313700 

81313710 

81313720 

81313730 

81313740 

81313750 

81313760 

81313770 

81313780 

81313790 

81313800 

81313810 

81313820 

81313830 

81313840 

81313850 

81313860 

81313870 

81313880 

81313890 

81313900 

81313910 

81313920 

81313930 

81313940 

81313950 

81313960 

81313970 

81313980 

81313990 

81314000 

81314010 

81314020 

81314030 

81314040 

81314050 

81314060 

81314070 

81314080 

81314090 

81314100 

81314110 

81314120 

81314130 

81314140 

813141S0 

81314160 

81314170 

81314180 

81314190 

81314200 

81314210 

81314220 

81314230 

81314240 

81314250 

81314260 

81314270 

81314280 

81314290 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 
1800-2841 TWO CHANNEL SWITCH FUNCTION TEST 



o 


o : 


o 
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o 
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o 


o 
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O : 


o 


O I 


o 


O 1 


o 


G : 
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o i 
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I 

O j 

i 
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i 

o 

G 
G 
O 
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o 
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o 
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0ATE 
EC NO. 



0D3C 





C2D4 




LD 


2 


OVADR-TB CTRL UNIT END 


0D3D 





1008 




SLA 




8 6 


0D3E 





EAA8 




OR 


2 


H0020-TB DEV ADDR=BX 


0D3F 





F23C 




EOR 


2 


SCSX0+1-TB 


OD'lO 


1 


4C20 


0U84 


BNZ 




T31EA N0i ERIiOR 


0042 





704C 




ti 




T3IEN CONTINUE- 



ERROR ROUTINES 



0D43 42DF 


T31E1 


BSI 


2 EROUT-TB 


0D44 0148 




DC 


/0148 


0D45 1 0C00 




DC 


NO I NT 


0D46 C282 




LD 


2 H1206-TB 


0D47 7001 




B 


* + l 


0048 C2B9 


T31E2 


LD 


2 H8106-TB 


0D49 D001 




STO 


*+l 


004A 42DF 




BSI 


2 EROUT-TB 


0D4B 0000 




DC 


*-* 


0D4C 3115 




DC 


/3115 


0D4D 4206 




BSI 


2 TLPST-TB 


0D4E 1 0CFF 




DC 


T3104 


004F 4203 




BSI 


2 TLPER-TB 


0050 1 0CFF 




DC 


T3104 


0DS1 703A 


* 
T31E3 


B 


T31EB 


0D52 42DF 


BSI 


2 EROUT-TB 


0D53 0148 




DC 


/0146 


0D54 1 0C00 




DC 


NO I NT 


0DS5 C2B2 




LD 


2 H1206-TB 


0D56 7001 




B 


*+l 


0D57 C2B9 


T31E4 


LD 


2 H8106-TB 


0D58 D001 




STO 


*+l 


0D59 42DF 




BSI 


2 EROUT-TB 


0D5A 0000 




DC 


*-» 


0D58 3116 




DC 


/3116 


0D5C 4206 




BSI 


2 TLPST-TB 


0D5D 1 000A 




DC 


T3105 


0D5E 4203 




BSI 


2 TLPER-TB 


0D5F 1 0CFF 




DC 


T3104 


0D60 702B 


» 
T31E5 


B 


T31EB 


0061 42DF 


BSI 


2 EROUT-TB 


0D62 0148 




DC 


/0148 


0D63 1 0C00 




DC 


NO I NT 


0064 C2B2 




LD 


2 H1206-TB 


0D65 7001 




B 


*+l 


0D66 C2B9 


T31E6 


LD 


2 H8106-TB 


0067 D001 




STO 


*+l 


0D68 42DF 




BSI 


2 EROUT-TB 


0D69 0000 




DC 


#— * 


0D6A 3118 




DC 


/3118 


0D6B 4206 




BSI 


2 TLPST-TB 


0D6C 1 0D18 




DC 


T3106 


0D6D 4203 




BSI 


2 TLPER-TB 


0D6E 1 OCFF 




DC 


T3104 


0D6F 70B5 


* 
T31E7 


B 


T3107 


0D70 42DF 


BSI 


2 EROUT-TB 


0D71 0148 




DC 


/0148 


0D72 1 0C00 




DC 


NO INT 


0D73 C2B2 




LD 


2 H1206-TB 


0D74 7001 




B 


*+l 


0D75 C2BA 


T31E8 


LD 


2 HB107-TB 


0D76 D001 




STO 


*+l 


0D77 42DF 




BSI 


2 EROUT-TB 


0078 0000 




DC 


»-* 


0D79 3117 




DC 


/3117 


0D7A 4206 




BSI 


2 TLPST-TB 



14N0V69 
431319 



30JAN70 

431319A 



NO I/R RCVD MSG 
STATUS IN SCSXC/ABORT RTN 

ERR STAT IN SCSXO (SIO) 

PRINT 

MSG 15 

LOOP SIO REQUESTED 

BR. ADR. TO ALLOW SCOPE LOOP 

CHECK LOOP-ON-ERR OPTION 

LOOP ADDR 

CONTINUE 

PRINT 

NO I/R RCVD MSG 

STATUS IN SCSXC/ABORT RTN 

ERR STAT IN SCSXO (SIO) 

PRINT 

MSG 16 

LOOP SIO REQUESTED 

BR. ADR. TO ALLOW SCOPE LOOP 

CHECK LOOP-ON-ERR OPTION 

LOOP ADDR 

CONTINUE 

PRINT 

NO I/R RCVD MSG 

STATUS IN SCSXC/ABORT RTN 

ERR STAT IN SCSXO (SIO) 

PRINT 

MSG 18 

LOOP SIO REQUESTED 

BR. ADR. TO ALLOW SCOPE LOOP 

CHECK LOOP-ON-ERR OPTION 

LOOP ADDR 

CONTINUE- 

PRINT 

NO I/R RCVD MSG 

STATUS IN SCSXC/ABORT RTN 

ERR STAT IN SCSXO (SIO) 

PRINT 

MSG 17 

LOOP SIO REQUESTED 



PART NO. 22794S6 
PAGE UA 



81314300 

81314310 

81314320 

81314330 

81314340 

81314350 

01314360 

81314370 

81314380 

81314390 

81314400 

81314410 

81314420 

813144 30 

81314440 

81314450 

81314460 

81314470 

81314480 

81314490 

81314500 

81314510 

81314520 

81314530 

81314540 

81314550 

81314560 

81314570 

81314580 

81314590 

81314600 

81314610 

81314620 

81314630 

81314640 

81314650 

81314660 

81314670 

81314680 

81314690 

81314700 

81314710 

81314720 

81314730 

81314740 

81314750 

81314760 

81314770 

81314780 

81314790 

81314800 

81314810 

81314820 

81314830 

81314840 

81314850 

81314860 

81314870 

81314880 

81314890 

81314900 

81314910 

81314920 

81314930 

81314940 

61314950 

81314960 

81314970 
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DATE 
EC NO. 



007B 


1 


02 5 




DC 




T3107 


BR. ADR. TO ALLOW SCOPE LOOP 


81314980 


0D7C 





4203 




BSI 


2 


TLPER-TB 


CHECK LO0P-ON-ERR OPTION 


81314990 


0D7D 


1 


0CFF 




DC 




T3104 


LOOP A00R 


81315000 


00 7E 





70B8 


* 


B 




T3108 


CONTINUE 


81315010 
81316020 


00 7F 





42 DF 


T31E9 


BSI 


2 


EROUT-TB 


PRINT 


81315030 


0080 





0148 




DC 




/0148 




813150*0 


0081 


1 


0C00 




DC 




NO I NT 


NO I/R RCVD MSG 


81315050 


0082 





C2B2 




L0 


2 


H1206-TB 


STATUS IN SCSXC/ABORT RTN 


81315060 


0083 





7001 




B 




* + l 




81315070 


0084 





C2B9 


T31EA 


LD 


2 


H8106-TB 


ERR STAT IN SCSXO (SIO) 


81315080 


0085 





0001 




ST0 




* + l 




81315090 


0086 





42 OF 




BSI 


2 


EROUT-TB 


PRINT 


81315100 


0D87 





0000 




DC 




*-* 




813151 10 


0088 





31 19 




DC 




/3U9 


MSG 19 


81315120 


0D89 





4203 




BSI 


2 


TLPER-TB 


CHECK L00P-0N-ERR OPTION 


81315130 


008A 


1 


0CFF 




DC 




T3104 


LOOP AOOR 


81315140 


0D8B 





7003 


• 


B 




T31EN 


CONTINUE 


8131S150 
81315160 


00 8C 





420F 


T31EB 


BSI 


2 


EROUT-TB 


PRINT 


81315170 


008D 





0140 




DC 




/0140 


C0NTR0L-1RST LN & NO HALT 


81315180 


00 8E 





310S 


* 

a 


DC 




/3105 


MSG 05 


81315190 
81315200 
81315210 








* 


GO TO 


NEXT ROUTINE 


IN SEOUENCE 


81315220 








* 










81315230 


0D8F 





42E2 


T31EN 


BSI 


2 


FRE0V-TB 


FREE CHANNEL 


81315240 


0D9Q 





C2C1 




LD 


2 


TRTNN^TB 


GET RTN SWS 


81315250 


0091 


1 


4C18 OOCB 




BZ 




T3201 


GO TO NEXT RTN IN SEQ 


813152 60 


0093 





42 DC 




BSI 


2 


CNTRL-TB 


GO TO CONTROL RTN 


81315270 


009* 




0007 


TTL31 


PR NT 




. SECT 3.RT 1- . 


81315280 








* 










81315290 


009B 




0017 




PR NT 




• CHKS CHNL 


SEL SW DOES NOT RTRN TO . 


81315300 


00AC 




00 17 




PRNT 




•NEUTRAL WHEN END STATUS ON INTF-A-. 


81315310 


00B0 




0007 




PRNT 




. WAS UNIT 


CHK.. 


81315320 


0DC* 





FFFF 




DC 




/FFFF 




81315330 








♦ILLEGAL COMMAND FOR UNIT CHECK 


81315340 








* 










81315350 


0OC5 





0001 


CC311 


DC 




1 


BYTE COUNT ',] 


81315360 


0DC6 





601F 




DC 




/60*256+SFlLM FLAGS AND OP CODE 


8131S370 


0DC7 


1 


0BFD 


* 

* 


DC 




CYHDB 


ADDRESS 


81315380 
81315390 
81315*00 


0DC8 





0006 




DC 




6 


BYTE COUNT 


81315*10 


00C9 





20B4 




DC 




FLSLI*2S6+/B* FLAGS AND OP C00E 


81315420 


00CA 


1 


0BF0 


* 

* 


DC 




CYHDB 


AODRESS 


81315430 
813154*0 
81315*50 








«*****#»*»****»*****»*******»****»*******»********* 


81315460 








* 








* 


81315470 








**#*»****«**»*»****»******************************* 


81315480 


OOCB 







T3201 


EQU 




* 


TEST ENTRY POINT 


81315490 


ODCB 


1 


7401 0815 




MOX 


L 


TRID.l 


BUMP RTN ID 


81315500 


0DCD 


1 


4C18 0002 




B2 




T3202 


BR IF TEST NUMBER ZERO 


81315510 


00CF 





9297 




S 


2 


Kl-TB 


DECREMENT BY ONE 


81315520 


0000 


1 


4C20 0EA9 


* 


8NZ 




T3301 


BR IF NOT THIS TEST 


81315530 
81315540 


0002 





C283 


T3202 


LD 


2 


TSW0-TB 


GET OPTION SWS 


81315550 


0003 





100A 




SLA 




OTTLE 


PRINT TITLES 


81315560 


0004 


1 


4C10 000S 




BNN 




T32 03 


BR IF NOT SET 


81315570 


0006 





4200 




BSI 


2 


TLGMS-TB GO TO PRINT ROUTINE 


81315580 


0007 


1 


0E72 


* 


OC 




TTL32 


MESSAGE ADDRESS 


81315590 
81315600 


0008 





42E5 


T3203 


BSI 


2 


GETDV-TB 


GET CHANNEL IFOR RTN 


81315610 








*»»♦**»»»»»**»»»»»»»*»»*********»***»**»»********** 


81315620 








• 








* 


81315630 








»***»***»**»»»*»**»**»**»»*»*****»**»»»*»********** 


813156*0 








* 










81315650 



14N0V69 
431319 



30JAN70 
431319A 
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DATE 
EC NO. 









# 




SECTION 3 


ROUTINE 2 


81315660 








* 








81315670 








* 


TEST 


CHANNEL SELECTION SWITCH WITH UNIT CHK 


8131S680 








* 


CHNL B IS PRIMARY 


INTF. CHNL A IS SECONDARY 


81315690 








* 








81315700 








*##*#*#*#***##*#*#**#***#************************** 


81315710 








# 






* 


81315720 








a************************************************** 


81315730 








* 








813157*0 


0DO9 


1 


6700 0E6D 




LDX 


L3 T32EN 


GET TIMEOUT ERROR ADDR 


81315750 


ODOB 


1 


6F00 17E3 




STX 


L3 ERADR 


STORE FDR EROUT RTN. 


81315760 


ODDO 





420C 


T3204 


BSI 


2 MODDB-TB 


GET SEL CHNL. -CHNL B 


81315770 


OODE 





420F 




BSI 


2 CLRST-TB 


CLR WAIT SW & SETUP OPTNS 


81315780 


OODF 





42EB 




BSI 


2 SIO-TB 


GO EXECUTE 


81315790 


OOEO 


1 


0EA3 




DC 


CC321 




81315800 


0DE1 





C23C 




LD 


2 SCSX0+1-TB 


FETCH UNIT STATUS 


81315810 


00E2 





E2AB 




AND 


2 HOOFF-TB 




81315820 


0DE3 





F298 




EOR 


2 K2-TB 


UNIT CHECK ONLY 


81315830 


0DE4 


1 


4C20 0E26 




BNZ 


T32E2 


NO. ERROR 


81315840 


0DE6 





*20F 


T3205 


BSI 


2 CLRST-TB 


CLR WAIT SW 6 SETUP OPTION 


81315850 


0DE7 





42EB 




BSI 


2 SIO-TB 


GO EXECUTE 


81315860 


0DE8 


1 


0BF7 




DC 


CCWTS 


TEST I/O 


81315870 


0DE9 





42FA 




BSI 


2 WAITS-TB 


CALL WAIT I/O ROUTINE 


81315880 


ODEA 


1 


0E21 




DC 


T32E1 


NO INTERRUPT AODRESS 


81315890 


ODEB 





420F 




BSI 


2 CLRST-TB 


CLR WAIT SW t SETUP OPTN 


81315900 


ODEC 





42EB 




BSI 


2 SIO-TB 


GO EXECUTE - 


81315910 


ODED 


1 


0894 




DC 


NOPCC 


NO-OP 


81315920 


ODEE 





42FA 




BSI 


2 WAITS-TB 


CALL WAIT I/O ROUTINE 


81315930 


OOEF 


1 


0E30 




DC 


T32E3 


NO INTERRUPT AODRESS 


81315940 


ODFO 





C23C 




LO 


2 SCSX0+1-TB 


FETCH STATUS 


81315950 


0DF1 





E2AB 




AND 


2 H00FF/-TB 




81315960 


00F2 





F2A4 




EOR 


2 HOOOC-TB 


CHAN END t DEV END ONLY 


81315970 


0DF3 


1 


4C20 0E35 




BNZ 


T32E4 


NO. ERR 


81315980 


ODFS 





4209 




BSI 


2 MODOA-TB 


GET SEL CHNL. -CHNL A 


81315990 


0DF6 





C29C 


T3206 


LO 


2 K8-TB 


INSERT SUPP POLL BIT INTO 


81316000 


0DF7 





EA3A 




OR 


2 SCSN5+1-TB 


SENSE IOCC 


81316010 


ODFS 





023A 




STO 


2 SCSN5+1-T8 




.81316020 


0DF9 





420F 




BSI 


2 CLRST-TB 


CLR WAIT SW & SETUP OPTION 


81316030 


OOF A 





42EB 




BSI 


2 SIO-TB 


GO EXECUTE 


81316040 


ODFB 


1 


OBFA 




DC 


CCWSN 


SENSE 


81316050 


ODFC 





42FA 




BSI 


2 WAITS-TB 


CALL WAIT I/O ROUTINE 


81316060 


ODFD 


1 


0E3F 




DC 


T32E5 


NO INTERRUPT AODRESS 


81316070 


ODFE 





C23C 




LD 


2 SCSX0+1-TB 


FETCH STATUS 


81316080 


ODFF 





E2AB 




AND 


2 HOOFF-TB 




81316090 


0E0O 





F2AA 




EOR 


2 H0050-TB 


CTRL UNIT BUSY 


81316100 


0E01 


1 


4C20 0E44 




BNZ 


T32E6 


NO. ERROR 


81316110 


0E03 





420C 


T3207 


BSI 


2 MODDB-TB 


GET SEL CHANL. -CHNL B 


81316120 


0E04 





C29C 




LD 


2 K8-TB 


INSERT SUPP POLL BIT INTO 


81316130 


OE05 





EA3A 




OR 


2 SCSN5+1-TB 


SENSE IOCC 


81316140 


0E06 





D23A 




STO 


2 SCSN5+1-TB 




81316150 


0E07 





420F 




BSI 


2 CLRST-TB 


CLR WAIT SW t SETUP OPTION 


81316160 


0E08 





42EB 




BSI 


2 SIO-TB 


GO EXECUTE 


81316170 


0E09 


1 


OBFA 




DC 


CCWSN 


SENSE 


81316180 


OEOA 





42FA 




BSI 


2 WAITS-TB 


CALL WAIT I/O ROUTINE 


81316190 


OEOB 


1 


0E4E 




DC 


T32E7 


NO INTERRUPT ADDRESS 


81316200 


OEOC 





C23C 




LD 


2 SCSX0+1-TB 


GET UNIT STATUS 


81316210 


OEOD 





E2AB 




AND 


2 HOOFF-TB 


MASK OFF UNIT ADDR 


81316220 


OEOE 





F2A4 




EOR 


2 HOOOC-TB 


CHK FOR DEV/CHNL END 


81316230 


OEOF 


1 


4C20 0E53 




BNZ 


T32E8 


ERROR NOT 


81316240 


0E11 





C223 




LD 


2 SNWDS-TB 


FETCH SENSE BYTES 0. 1 


813162 50 


0E12 





F2B8 




EOR 


2 H8010-TB 


COMMO REJ & INVALID SEO 


81316260 


0E13 


1 


4C20 0E53 




BNZ 


T32E8 


NO. ERROR 


81316270 


0E1S 





4209 


T3208 


BSI 


2 MODDA-TB 


GET SEL CHNL. -CHNL A 


81316280 


0E16 





420F 




BSI 


2 CLRST-TB 


CLR WAIT SW 


81316290 


0E17 





0A39 




XIO 


2 SCSN5-TB 


SENSE 


81316300 








* 




SUPPRESS 


POLL IS RELIEVED 


81316310 


0E18 





42FA 




BSI 


2 WAITS-TB 


CALL WAIT I/O ROUTINE 


81316320 


0E19 


1 


0E50 




DC 


T32E9 


NO INTERRUPT ADDRESS 


81316330 



14N0V69 
431319 



30JAN70 
431319A 
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DATE 
EC NO. 



0E1A C£D4 




LU 


2 OVADH-TB 


CTRL UNIT END 


8 1316340 


0E1B 1008 




SLA 


8 


fc 


81316350 


0E1C EAA8 




OR 


2 H0020-T8 


DEV ADD = Al 


813163 60 


0E1D F23C 




E0R 


2 SCSX0+1-TB 




81316370 


0E1E 1 4C20 0E62 




BNZ 


T32EA 


NOi ERROR 


81316380 


0E20 704C 


# 


B 


T32EN 


C0NTINUE- 


81316390 
81316400 




* 




ERROR ROUTINES 


81316410 




# 








81316420 


0E21 42DF 


T32E1 


BSI 


2 EROUT-TB 


PRINT 


81316430 


0E22 0148 




DC 


/0148 




81316440 


0E23 1 0C00 




DC 


N0INT 


NO 1/R RCVD MSG 


81316450 


0E24 C282 




LD 


2 H1206-TB 


STATUS IN SCSXC/ABORT RTN 


813164 60 


0E25 7001 
0E26 C2B9 


T32E2 


B 
LD 


* + l 
2 H8106-TB 


ERR STAT IN SCSX0 (SI0) 


81316470 
81316480 


0E27 0001 




STO 


* + l 




81316490 


0E28 42 OF 




BSI 


2 EROUT-TB 


PRINT 


81316500 


0E29 0000 
0E2A 3215 




DC 
DC 


»-* 
/3215 


MSG 15 


81316510 
81316520 


0E2B 4206 




BSI 


2 TLPST-TB 


LOOP S10 REQUESTED 


81316530 


0E2C 1 ODDD 




DC 


T3204 


BR.A0R.TO ALLOW SCOPE LOOP 


81316540 


0E2D 4203 




BSI 


2 TLPER-TB 


CHECK L00P-0N-ERR OPTION 


81316550 


0E2E 1 0CFF 




DC 


T3104 


LOOP ADDR 


81316560 


0E2F 703A 


* 


B 


T32EB 


CONTINUE 


81316570 
81316580 


0E30 420F 


T32E3 


BSI 


2 EROUT-TB 


PRINT 


81316590 


0E31 0148 




DC 


/0148 




81316600 


0E32 1 OC00 




DC 


N0INT 


NO I/R RCVD MSG 


81316610 


0E33 C2B2 




LD 


2 H1206-TB 


STATUS IN SCSXC/ABORT RTN 


81316620 


0E3* 7001 




B 


* + l 




81316630 


0E35 C2B9 


T32E4 


LD 


2 H8106-TB 


ERR STAT IN SCSX0 (SIO) 


81316640 


0E36 D00 1 




STO 


* + l 




81316650 


0E37 420F 




BSI 


2 EROUT-TB 


PRINT 


81316660 


0E38 0000 




DC 


*-* 




81316670 


0E39 3216 




DC 


/3216 


MSG 16 


81316680 


0E3A 4206 




BSI ■ 


2 TLPST-TB 


LOOP SIO REQUESTED 


81316690 


0E3B 1 00E6 




DC 


T3205 


OR. ADR. TO ALLOW SCOPE LOOP 


81316700 


0E3C 4203 




BSI 


2 TLPER-TB 


CHECK L0OP-ON-ERR OPTION 


81316710 


0E3O 1 000 




DC 


T3204 


LOOP A0DR 


81316720 


0E3E 702B 


* 


B 


T32EB 


CONTINUE 


81316730 
81316740 


0E3F 420F 
0E40 148 


T32E5 


BSI 

OC 


2 EROUT-TB 
• 0148 


PRINT 


81316750 
81316760 


0E41 1 0C00 




DC 


NO I NT 


NO I/R RCVD MSG 


81316770 


0E42 C2B2 
0E43 700 1 




L0 
B 


2 H1206-TB 
* + l 


STATUS IN SCSXC/ABORT RTN 


81316780 
81316790 


0E44 C2B9 
0E45 D00 1 


T32E6 


LO 
STO 


2 H8106-TB 
» + l 


ERR STAT IN SCSX0 (SIO) 


81316800 
81316810 


0E46 420F 




BSI 


2 EROUT-TB 


PRINT 


81316820 


0E47 0000 




DC 


*-* 




81316830 


0E48 3213 




DC 


•3218 


MSG 18 


81316840 


0E49 4206 




BSI 


2 TLPST-TB 


LOOP SIO REQUESTED 


81316850 


0E4A 1 0DF6 




DC 


T3206 


BR.A0R.T0 ALLOW SCOPE LOOP 81316860 


0E4B 4203 




BSI 


2 TLPER-TB 


CHECK LOOP-ON-ERR OPTION 


81316870 


0E4C 1 0000 




DC 


T3204 


LOOP A00R 


81316880 


0E4O 70B5 


4 


B 


T3207 


C0NTINUE- 


81316890 
81316900 


0E4E 420F 


T32E7 


BSI 


2 EROUT-TB 


PRINT 


81316910 


0E4F 148 




DC 


• 0148 




81316920 


0E50 1 0C00 
0E51 C282 




DC 


NO I NT 


NO I/R RCVD MSG 


81316930 




LO 


2 M1206-TB 


STATUS IN SCSXC/ABORT RTN 


81316940 


0E52 700 1 




B 


*+l 




81316950 


0E53 C2BA 
0ES4 0001 


T32E8 L0 
STO 


2 H8107-TB 
«+l 


ERR STAT IN SCSX0 (SIO) 


81316960 
81316970 


0E55 42DF 
0ES6 0000 
0E57 3217 




BSI 

DC 

DC 


2 EROUT-TB 
*-* 
/32I7 


PRINT 
MSC 17 


81316980 
81316990 
81317000 


0E58 4206 




BSI 


2 TLPST-TB 


LOOP SIO REQUESTED 


81317010 



14N0V69 
431319 



30JAN70 
431319A 
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OATE 
EC NO. 



(ILL. 9 


1 


0E03 


0E5A 





4203 


0E5B 


1 


ODDD 


0E5C 





7008 


0E5D 





42DF 


0E5E 





148 


0E5F 


1 


OCOO 


0E60 





C2B2 


0E61 





7001 


0E62 





C2B9 


0E63 





D001 


0E64 





42DF 


0E65 





0000 


0E66 





3219 


0E67 





4203 


0E68 


1 


ODDD 


0E69 





7003 


0E6A 





42DF 


0E6B 





0140 


0E6C 





3205 



OC 

BSI 

DC 

B 

T32E9 BSI 
DC 
DC 
LD 
B 

T32EA LD 
STO 
BSI 
DC 
DC 
BSI 
DC 
B 

* 

T32EB BSI 
DC 
DC 



T32 7 

2 TLPER-TO 
T3204 
T3208 

2 EROUT-TB 

/0148 

NO I NT 
2 HI206-TB 

*+l 
2 H&106-TB 

#+1 
2 EROUT-TB 

*-» 

/3219 
2 TLPER-TB 

T32 04 

T32EN 

2 EROUT-TB 
/0140 
/320S 



BR. ADR. TO ALLOW SCOPE LOOP 
CHECK LOOP-ON-ERR OPTION 
LOOP ADDR 
CONTINUE 

PRINT 

NO I/R RCVD MSG 

STATUS IN SCSXC/ABORT RTN 

ERR STAT IN SCSXO (SIO) 

PRINT 

MSG 19 

CHECK LOOP-ON-ERR OPTION 

LOOP ADDR 

CONTINUE 

PRINT 

C0NTR0L-1RST LN & NO HALT 

MSG 05 



GO TO NEXT ROUTINE IN SEQUENCE 



0E6D 42E2 

0E6E C2C1 

0E6F 1 4C18 0EA9 

0E71 42DC 

0E72 0007 

0E79 00 17 

0E8A 0017 

0E9B 0007 

0EA2 FFFF 



0EA3 000 1 
0EA4 601F 
0EA5 1 OBFD 



T32ENBS1 
LD 
BZ 
BSI 

TTL32 PRNT 

* 

PRNT 
PRNT 
PRNT 
DC 



2 FREDV-TO FREE CHANNEL 
2 TRTNN-TB GET RTN SWS 

T3301 GO TO NEXT RTN IN SEQ 
2 CNTRL-TB GO TO CONTROL RTN 

. SECT 3.RT 2- . 

•CHKS CHNL SEL SW DOES NOT RTRN TO . 
•NEUTRAL WHEN END STATUS ON INTF-8-. 
. WAS UNIT CHK.. 
/FFFF 



*ILLEGAL COMMAND FOR UNIT CHECK 



0EA6 0006 
0EA7 20B4 
0EA8 1 OBFD 



CC321 DC 
DC 

OC 



DC 
DC 
DC 



1 BYTE COUNT 

/60*256+SFILM FLAGS AND OP CODE 
CYHDB ADDRESS 



6 BYTE COUNT 

FLSLI*256+/B4 FLAGS AND OP CODE 
CYHDB ADORESS 



0EA9 42 DC 



* * 
*************************************************** 

* SECTION END 

* 

T3301 BSI 2 CNTRL-TB GO TO CONTROL RTN 

*************************************************** 

* * 
*************************************************** 
« 

* SECTION PREFACE 
* 

SECTION NUMBER 



OEAA 





0004 




T40PR 


OC 


/0004 


OEAB 





0008 




* 
T40NT 


DC 


8 


OEAC 





C2C0 




LO 


2 TSCTN-TB 


OEAD 


1 


4C18 


0EB7 


* 


BZ 


T40EN 


OEAF 





C2C1 




LO 


2 TRTNN-TB 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 
1800-2841 TWO CHANNEL SWITCH FUNCTION TEST 



OEBO 
0EB2 
0EB3 
0EB5 
0EB6 
0EB7 



4C18 0EC9 

90F8 

4C30 0A62 

S0F5 



7012 

4200 
0EB8 1 OEBE 
0EB9 1 740 1 0857 
OEBB 1000 
OEBC 4C80 012E 

OEBE 0009 
0EC7 O FFOO 
0EC8 FFFF 



0EC9 

0EC9 I 7401 0815 

OECB 1 4C18 OEOO 

OECD 9297 

OECE » 4C20 OFCE 

OEOO C283 

0EO1 O 1O0A 

0ED2 1 4C10 0ED6 

0ED4 4200 

0EO5 1 OF IS 

0E06 O 42E5 



BZ T4101 BR IF RUN ALL RTNS 

S T40PR+1 TEST FOR VALID 

BP TCNER BR IF INVALID RTN NUMBER 

A T40PR+1 RESTORE RTN NUMBER 
' MDX T4101 GO TO FIRST RTN 
T40EN BSI 2 TLGMS-TB PRINT END OF TEST MSG 

DC T40ER 

MDX L PSCNT.l BUMP PASS CNTR 

NOP IN CASE OF SKIP 

BSC I END GO TO MONITOR END 
* 
T40ER PRNT . ** END OF DFT **. 

DC /FFOO 

DC /FFFF 

*************************************************** 

* 
*************************************************** 
* 

*************************************************** 
* * 

*************************************************** 
T4101 EOU * 

MDX L TRIDtl 

BZ T4102 

S 2 Kl-TB 

BNZ T4201 



TEST ENTRY POINT 

BUMP RTN ID 

BR IF TEST NUMBER ZERO 

DECREMENT BY ONE 

BR IF NOT THIS TEST 



0ED7 
0ED8 
0ED9 
OEDA 
OEDB 
OEDB 
OEDC 
OEDD 
OEDF 
0EE1 
0£E2 
0EE3 
0EE4 
0EE6 
0EE7 
0EE9 
OEEA 
OEEB 
OEEC 
OEEC 
OEED 
OEEE 
OEFO 



4200 
0F48 
4212 
4209 



C286 

D2D6 

1 6700 

1 6F00 

42EB 

1 0B18 

C23B 

1 4C10 
1001 
4C20 
A200 
0F8B 
4212 



C2B6 
D2D6 
6700 



1 6F00 



OEFO 
157B 



OEFF 
OEFF 



0F07 
1576 



T4102 LO 2 TSWO-TB GET OPTION SWS 

SLA OTTLE PRINT TITLES 

BNN T4103 BR IF NOT SET 

BSI 2 TLGMS-TB GO TO PRINT ROUTINE 

DC TTL41 MESSAGE ADDRESS 

* 

T4103 BSI 2 GETDV-TB GET CHANNEL FOR RTN 

*************************************************** 

* ; * 
*************************************************** 

* * 

* SECTION 4 ROUTINE 1 * 

* CHECK THAT INTERFACE 'A 'CAN BE DISABLED/ENABLED * 

* WITH CLOCK-OUT DOWN 

* 
*************************************************** 

* * 
*************************************************** 
T4104 BSI £ TLGMS-TB PRINT OPRTR MSG.REO.TO 

DC 0P4U *DISABLE CHNL'A" 

BSI Z DELAY-TB WAIT FOR 30 SECONDS 

BSI 2 MODDA-TB GET SEL.CHNL. -CHANL A- 

T4105 EOU * 

LD 2 H4000-TB SET-UP FOR RTRN ON ERROR 

STO 2 SIOSW-TB * 

LDX L3 T41E1 SET-UP TIMEOUT 

STX L3 WTADR * 

T4106 BSI 2 SIO-TB 00 SEEK 

SEEKO * 

2 SCSXO-TB GET CHANL STATUS 

T41E2 UNIT NOT OPERATIONAL 

1 IS U.N.O. ALdNE 

T41E2 ERROR NOT 

2 TLGMS-TB PRINT OPRTR MSG.REO.TO 

0P412 *ENABLE CHNL 'A*. 
2 DELAY-TB WAIT FOR 30 SECONDS 



DC 

LD 

BNN 

SLA 

BNZ 

T4107 BSI 
DC 
BSI 

T4108 EOU 
LD 



2 H4000-TB SET-UP FOR RfRN.ON ERROR 

STO '2 SIOSW-TB * 

LDX L3 T41E3 SET-UP TIMEOUT 

STX L3 WTADR * 
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01317700 

81317710 

81317720 

81317730 

81317740 

81317750 

81317760 

81317770 

81317780 

81317790 

81317800 

81317810 

81317820 

81317830 

81317840 

81317850 

81317860 

81317870 

81317880 

81317890 

81317900 

81317910 

81317920 

81317930 

81317940 

81317950 

81317960 

81317970 

81317980 

81317990 

81318000 

81318010 

81318020 

813180 30 

81318040 

81318050 

81318060 

81318070 

81318080 

81318090 

81318100 

81318110 

81318120 

81318130 

81318140 

81318150 

81318160 

81318170 

3 1 3 1 8 1 80 

81318190 

81318200 

81318210 

81318220 

81318230 

81318240 

81318250 

81318260 

81318270 

81318280 

81318290 

81318300 

81318310 

81318320 

81318330 

81318340 

81318350 

81318360 

81318370 



DATE 
EC NO. 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 
1600-204 1 TWO CHANNEL SWITCH FUNCTION TEST 



DATE 
EC NO. 



0EF2 
0EF3 
06 F 4 
0EF5 
0EF7 
0EF8 
0EF9 
OEFA 
OEFC 
OEFO 
OEFE 
OEFF 
OF 00 
0F01 
OF 02 
0F03 
OF 04 
0F05 
OF 06 
0F07 
OF 08 
0F09 
OFOA 
OFOB 
OFOC 
OFOD 
OFOE 
OF OF 



42EB 
0B18 
C2 3B 
4C28 0F09 



C23C 
G2AB 

F2A4 

1 4C20 0F09 
7013 

C2B4 
700 1 
C2B9 
D00 1 
42DF 
0000 
4120 
4203 
OEDB 
70E2 
C2B4 
7001 
C2B9 
000 1 
42 DF 
0000 
4121 
4203 
OEEC 



T4109 BSI 
DC 
LD 
BN 
LD 
AND 
hGR 
BNZ 
B 

T41E1 LD 
8 

T41E2 LD 
STO 
BSI 
DC 
DC 
BSI 
DC 
B 

T41E3 LD 
B 

T41E4 LD 
STO 
BSI 
DC 
DC 
BSI 
DC 



SIO-TB DO SEEK 

SEEKO * 

SCSXO-TB GET CHNL. STATUS 

T41E4 OPERATIONAL ERROR NOT 

SCSX0+1-TB GET UNIT STATUS 

HOOFF-TS MASK-OFF UNIT ADDR. 

CHK.FOR DEV/CHNL END 

ERROR NOT 
GO TO END RTN. 
ERR- ENDING STAT. NOT RCVO 



H000C-TB 
T41E4 
T41EN 
H2106-TB 

* + l 
H8106-TB 

* + l 

EROUT-TB 
*-* 
/4120 
TLPER-TB 
T4105 
T4107 
H2106-TB 
*+l 
H8106-TB 

* + l 

EROUT-TB 
*-* 
/4121 
TLPER-TB 
T4108 



ERR- INCORRECT STATUS RCVD 



PRINT ERROR MSG. 20 



LOOP ON ERROR 

LOOP ON ERROR ADDRESS 
CONTINUATION ADDR. 

ERR- ENDING STAT. NOT RCVO 

ERR- INCORRECT STATUS RCVD 
PRINT ERROR MSG. 21 



LOOP ON ERROR 
LOOP ON ERROR ADDRESS 



0F10 42E2 

OF 11 C2C1 

0F12 1 4C18 OFCE 

OF 14 42DC 
0F15 0007 



TTL41 



0F1C 
OF 2D 
0F3E 
0F47 
0F48 
0F59 
0F62 
OF 63 
0F73 
0F74 
0F84 
OF 8 A 

0F8B 
0F9C 
0FA5 
0FA6 
0FB6 
0FB7 
0FC7 
OFCO 



0017 
00 17 
0009 
FFFF 
0017 
0009 
OOFF 
00 16 
OOFF 
0016 
0006 
FFFF 

00 17 
0009 
OOFF 
0016 
OOFF 
0016 
0006 
FFFF 



GO TO NEXT ROUTINE IN SEQUENCE 

BSI 2 FREDV-TB FREE CHANNEL 

LD 2 TRTNN-TB GET RTN SWS 

BZ T4201 GO TO NEXT RTN IN SEO 

BSI 2 CNTRL-TB GO TO CONTROL RTN 

PRNT . SECT 4.RT 1- . 

PRNT .CHKS THAT INTF-A- IS OSBLD WHEN SW. 

PRNT .. OSBLD. CHNL SEL. SW. NEUTRAL. AN. 

PRNT .D CLOCK OUT DOWN. . 

DC /FFFF 
0P411 PRNT . 1 - PLACE 2841 ENABLE SW ON I NTF . 

PRNT .-A- TO — DISABLE — . 

DC /OOFF 

PRNT . 2 - STOP CPU WITHIN 30 SECONDS-. 

DC /OOFF 

PRNT . 3 - CONTINUE PROG AFTER THIS IS. 

PRNT . PERFORMED- . 

DC /FFFF 
* 
0P412 PRNT . 1 - PLACE 2841 ENABLE SW ON INTF . 

PRNT .-A- TO — ENABLE — • 

DC /OOFF 

PRNT . 2 - STOP CPU WITHIN 30 SECONDS-. 

DC /OOFF 

PRNT . 3 - CONTINUE PROG AFTER THIS IS. 

PRNT . PERFORMED- . 

DC /FFFF 
ft************************************************** 
* * 

*************************************************** 

TEST ENTRY POINT 
BUMP RTN ID 

BR IF TEST NUMBER ZERO 
DECREMENT BY ONE 
BR IF NOT THIS TEST 

GET OPTION SWS 



OFCE 









T4201 


EOU 


* 


OFCE 


1 


7401 


0815 




MDX 


L TRID.l 


OFOO 


1 


4C18 


0F05 




BZ 


T4202 


0FD2 





9297 






S 


2 Kl-TB 


0FD3 


1 


4C20 


1003 


* 
T4202 


BNZ 


T4301 


0FD5 





C283 




LD 


2 TSWO-TB 



14N0V69 
431319 



30JAN70 
431319A 
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ieM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1600 SYSTEM 
1800-2841 TWO CHANNEL SWITCH FUNCTION TEST 



DATE 
EC NO. 



OF06 100A 

0F07 1 4C10 OFDIj 

0FD9 4200 

0FOA 1 10 1 A 

0FDB 42E5 



OF DC 

0FDD 

0FDE 

0FDF 

0FE0 

QFE0 

0FE1 

0FE2 

0FE4 

0FE6 

0FE7 

0FEB 

0FE« 

0FEB 

0FEC 

0FEE 

0FEF 

0FF0 

0FF1 

OFF I 

0FF2 

0FF3 

0FF5 

0FF7 

0FF8 

0FF9 

0FFA 

0FFC 

0FFD 

0FFE 

OFFF 

1001 

1002 

1003 

1004 

1005 

1006 

1007 

1008 

1009 

100A 

100B 

100C 

1000 

100E 

100F 

1010 

1011 

1012 

1013 

1014 



4200 
104D 
4212 
420C 



C2B6 
D206 
1 6700 
1 6F00 
42EB 
0818 
C23B 
4C10 
1001 
4C20 
4200 
1090 
4212 



1002 
157B 



1004 
1004 



C2B6 
0206 
6700 
6F00 
42E8 
0918 
C23B 
4C28 
C23C 
E2A3 
F2A4 
4C20 
7013 
C284 
7001 
C2S9 
D001 
42DF 
0000 
4220 
4203 
0FE0 
7 0E2 
C2B4 
7 001 
C2B9 
D001 
42DF 
0000 
4221 
4203 
0FF1 



100C 
157B 



100E 



SLA 


OTTLE 


BNN 


T4203 


BSI 


2 TLGMS-TB 


DC 


TTL42 


BSI 


2 GETDV-TB 



PRINT TITLES 
BR IF NOT SET 
GO TO PRINT ROUTINE 
MESSAGE ADDRESS 

T4203 BSI 2 GETDV-TB GET CHANNEL FOR RTN 

»4 ******************************** ***************** 

« • * 

*************************************************** 

* * 

* SECTION 4 ROUTINE 2 * 

* CHECK THAT INTERFACE'B'CAN BE DISABLED/ENABLED * 

* WITH CLOCK-OUT DOWN 

* * 
*************************************************** 

* * 
*************************************************** 



T4204 BSI 
DC 
BSI 
BSI 
T4205 EQU 
LO 
STO 
LDX 
STX 
T4206 BSI 
DC 
LD 
BNN 
SLA 
BNZ 
T4207 BSI 
DC 
BSI 
T4208 E0U 
LD 
STO 
LDX 
STX 
T4209 BSI 
DC 
LD 
BN 
LD 
AND 
EOR 
BNZ 
B 
T42E1 LD 

B 
T42E2 LD 
STO 
BSI 
DC 
DC 
BSI 
DC 
B 
T42E3 LD 

B 
T42E4 LD 
STO 
BSI 
0C 
DC 
SSI 
DC 



2 

2 

2 
2 

L3 

L3 

2 



14N0V69 
431319 



30JAN70 
431319A 



TLGMS-TB 
0P421 
OELAY-TB 
M0DDB-TB 

H4000-TB 

SI0SW-TB 

T42E1 

WTADR 

SIO-TB 

SEEK0 

SCSX0-TB 

T42E2 

1 

T42E2 

TLGMS-TB 

0P422 

DELAY-TB 

* 

H4000-TB 

SIOSW-TB 

T42E3 

WTADR 

SIO-TB 

SEEK0 

SCSX0-TB 

T42E4 



PRINT DPRTR MSG.RE0.T0 
•DISABLE CHNL'B* 

WAIT FOR 30 SEC0N0S 
GET SEL.CHNL. -CHANL B- 

SET-UP FOR RTRN ON ERROR 
* 

SET-UP TIMEOUT 
* 

DO SEEK 
* 

GET CHANL STATUS 
UNIT NOT OPERATIONAL 
IS U.N.O. ALONE 
ERROR NOT 

PRINT OPRTR MSG.REQ.T0 
♦ENABLE CHNL'B*. 
WAIT FOR 30 SECONDS 

SET-UP FOR RTRN. ON ERROR 

* 

SET-UP TIMEOUT 



DO SEEK 

* i 

GET CHNL. STATUS 

OPERATIONAL ERR IF NOT 

SCSX0+1-TB GET UNIT STATUS 

H00FF-TB MASK-OFF UNIT ADOR . 

CHK.FOR DEV/CHNL END 

ERROR NOT 

GO TO END RJN. 

ERR- ENDING. STAT. NOT RCVD 



H000C-TB 

T42E4 

T42EN 

H2106-TB 

*+l 

H8106-TB 

*+l 

EROUT-TB 

*-* 

/4220 

TLPER-TB 

T4205 

T4207 

H2106-T8 

*+l 

H8106-TB 

»+l 

6ROUT-TB 

*-* 

/4221 

TLPER-TB 

T4208 



ERR- INCORRECT STATUS RCVD 
PRINT ERROR MSG.20 



LOOP ON ERROR 

LOOP ON ERROR ADDRESS 
CONTINUATION ADDR. 

ERR- ENDING STAT. NOT RCVD 

ERR- INCORRECT STATUS RCVD 
PR I NT ERROR ' MSG .21 



LOOP ON ERROR 
LOOP ON ERROR ADDRESS 
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81319060 

81319070 

81319080 

81319090 

81319100 

813191 10 

81319120 

81319130 

81319140 

81319150 
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81319170 

81319180 

81319190 

81319200 

81319210 

81319220 

81319230 

81319240 

81319250 

81319260 

81319270 

81319280 

81319290 

81319300 

81319310 

81319320 

81319330 

81319340 

81319350 

81319360 

81319370 

81319380 

81319390 

81319400 

81319410 

81319420 

81319430 

81319440 

81319450 

81319460 

81319470 

81319480 

81319490 

81319500 

81319510 

81319520 

81319530 

81319540 

81319550 

81319560 

81319570 

81319580 

81319590 

81319600 

81319610 

81319620 

81319630 

81319640 

81319650 

81319660 

81319670 

81319680 

81319690 

81319700 

81319710 

81319720 

81319730 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 180.0 SYSTEM 
1800-2841 TWO CHANNEL SWITCH FUNCTION TEST 



DATE 
EC NO. 



GO TO NEXT ROUTINE IN SEQUENCE 



1015 42E2 

1016 C2C1 

1017 1 4C18 10D3 
1019 42DC 
101A 0007 



1021 




0017 


1032 




0017 


1043 




0009 


104C 





FFFF 


104D 




0017 


10SE 




0009 


1067 





OOFF 


1068 




0016 


1078 





OOFF 


1079 




0016 


1089 




0006 


108F 





FFFF 


1090 




0017 


10A1 




0009 


10AA 





OOFF 


10AB 




0016 


10BB 





OOFF 


10BC 




0016 


10CC 




0006 


10D2 





FFFF 



T42EN BSI 
LD 
BZ 
BSI 

TTL42 PRNT 

PRNT 
PRNT 
PRNT 
DC 
0P421 PRNT 
PRNT 
DC 

PRNT 
DC 

PRNT 
PRNT 
DC 



2 FREDV-TB FREE CHANNEL 
2 TRTNN-TB GET RTN SWS 

T4301 GO TO NEXT RTN IN SEQ 

2 CNTRL-TB GO TO CONTROL RTN 

. SECT 4.HT 2- . 

.CHKS THAT INTF-B- IS OSBLD WHEN SW. 

.. DSBLD. CHNL SEL. SW. NEUTRAL. AN. 

.D CLOCK OUT DOWN. . 

/FFFF 

. 1 - PLACE 2841 ENABLE SW ON INTF . 

.-B- TO — DISABLE — . 

/OOFF 

. 2 - STOP CPU WITHIN 30 SECONDS-. 

/OOFF 

. 3 - CONTINUE PROG AFTER THIS IS. 

. PERFORMED. . 

/FFFF 



0P422 PRNT 
PRNT 
DC 

PRNT 
DC 

PRNT 
PRNT 
DC 



10D3 

10D3 1 7401 0815 

10D5 1 4C18 10DA 

10D7 9297 

10D8 1 4C20 11AE 

10DA C283 

10DB O 100 A 

10DC 1 4C10 10E0 

10DE 4200 

10DF 1 1121 

10E0 42E5 



T4301 


EQU 




* 




MDX 


L 


TRID.l 




BZ 




T4302 




S 


2 


Kl-TB 




BNZ 




T4401 


* 








T4302 


LD 


2 


TSWO-TB 




SLA 




OTTLE 




BNN 




T4303 




BSI 


2 


TLGMS-T 




DC 




TTL43 



10E1 





4209 




10E2 





4200 




10E3 


1 


1154 




10E4 





4212 




10E5 









10ES 





C2B6 




10E6 





D2D6 




10E7 


1 


6700 


1109 


10E9 


1 


6F00 


157B 


I0EB 





42EB 





. 1 - PLACE 2841 ENABLE SW ON INTF . 

,-B- TO — ENABLE — . 

/OOFF 

. 2 - STOP CPU WITHIN 30 SECONDS-. 

/OOFF 

. 3 - CONTINUE PROG AFTER THIS IS. 

. PERFORMED- . 

/FFFF 

*************************************************** 
» * 

*************************************************** 

TEST ENTRY POINT 
BUMP RTN ID 
BR IF TEST NUMBER ZERO 
DECREMENT BY ONE 
BR IF NOT THIS TEST 

GET OPTION SWS 
PRINT TITLES 
BR IF NOT SET 
TO PRINT ROUTINE 
MESSAGE ADDRESS 
* 

T4303 BSI 2 GETDV-TB GET CHANNEL FOR RTN 
*************************************************** 

* * 
*************************************************** 

* * 

* SECTION 4. ROUTINE 3 

» CHECK THAT INTERFACE 'A' CANNOT BE DISABLED/ 

* ENABLED WITH CLOCK-OUT UP 

* * 
*************************************************** 

* * 
*************************************************** 

BSI 2 MODDA-TB GET SEL.CHNL. -CHANL A- 

T4304 BSI 2 TLGMS-TB PRINT OPRTR MSG.REQ.TO 

DC 0P431 *DISABLE CHNL'A* 

BSI 2 DELAY-TB WAIT FOR 30 SECONDS 

T4305 EQU * 

LD 2 H4 000-TB SET-UP FOR RTRN ON ERROR 

STO 2 SIOSW-TB * ' 

LDX L3 T43E1 SET-UP TIMEOUT 

STX L3 WTADR * 

BSI 2 SIO-TB DO SEEK 



14N0V69 
431319 



30JAN70 

431319A 



PART NO, 
PAGE 



81319740 

81319750 

81319760 

81319770 

81319780 

81319790 

81319800 

81319810 

81319820 

81319830 

81319840 

81319850 

81319860 

81319870 

81319880 

81319890 

81319900 

81319910 

81319920 

81319930 

81319940 

81319950 

81319960 

81319970 

81319980 

81319990 

81320000 

81320010 

81320020 

81320030 

81320040 

81320050 

81320060 

81320070 

81320080 

81320090 

81320100 

81320110 

81320120 

81320130 

81320140 

81320150 

81320160 

81320170 

81320180 

81320190 

81320200 

81320210 

81320220 

81320230 

81320240 

81320250 

81320260 

81320270 

81320280 

81320290 

81320300 

81320310 

81320320 

81320330 

81320340 

81320350 

81320360 

81320370 

81320380 

81320390 

81320400 

81320410 



PROG 10 
PAGE 



2279486 
ISA 



081 3-0 
ISA 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 
1800-2841 TWO CHANNEL SWITCH FUNCTION TEST 



10EC 


I a I a 




10ED C23B 




10EE 


1 4Ci8 1109 


10F0 


D C23C 




10F1 


E2A8 




10F2 


F2A4 




10F3 


1 4C20 


10B 


10FS 


4200 




10F6 


1 1 181 




10F7 


4212 




10F8 







10F8 


C286 




10F9 


0206 




10FA 


1 6700 


1113 


10FC 


1 6F00 


157B 


10FE 


42EB 




10FF 


1 0B18 




1100 


C2 3B 




1 101 


1 4C28 


111S 


1103 


C23C 




1 104 


E2AB 




1105 


F2A4 




1106 


1 4C20 


HIS 


1108 


7013 




1109 


C2B4 




110A 


7001 




HOB 


C2B9 




HOC 


D001 




1100 


420F 




HOE 


0000 




110F 


4320 




1 110 


4203 




1111 


1 10E5 




1112 


7 0E2 




1113 


C2B4 




1114 


7001 




1115 


C2B9 




1116 


0001 




1117 


420F 




1118 


0000 




1119 


4321 




111A 


4203 




111B 


1 10F8 





DC 
LD 
BN 
LD 

AND • 
E0R 
BNZ 
T4307 SSI 
OC 
BSI 
T4308 EQU 
LD 
STO 
LDX 
STX 
BSI 
DC 
L0 
BN 
LD 
AND 
E0R 
BNZ 
B 



SEEKO * 

SCSXO-TB GET CHANL STATUS 
T43E1 OPERATIONAL ERR 
SCSX0+1-TB FETCH UNIT STATUS 



IF NOT. 



H00FF-TB 

H0OOC-TB 

T43E2 

TLGMS-TB 

0P432 

DELAY-TB 



2 H4000-TB 
2 SI0SW-TB 
L3 T43E3 
L3 WTADR 
2 SI0-TB 

SEEK0 

2 SCSX0-TB 

T43E4 



MASK OFF UNIT ADOR 
CH END. DEV END 
ERR IF NOT 
PRINT 0PRTR MSG.REQ.T0 
*ENABLE CHNL 'A 1 
WAIT FOR 30 SECONDS 

seT _UP FOR RTRN.0N ERROR 

* 

SET-UP TIMEOUT 

* 

DO SEEK 



GET CHNL. STATUS 
OPERATIONAL ERROR NOT 
SCSX0+1-TB GET UNIT STATUS 
H00FF-TB MASK-OFF UNIT ADDR. 
H000C-TB CHK.F0R DEV/CHNL END 
T43E4 ERROR NOT 
T43EN GO TO END RTN. 



* 
T4361 

T43E2 



T43E3 
T43E4 



LD 

B 

LD 

STO 

BSI 

DC 

DC 

BSI 

DC 

B 

LD 

B 

LD 

STO 

BSI 

OC 

DC 

BSI 

DC 



2 H2106-TB 

»+l 
2 H8106-TB 

*+l 
2 ER0UT-TB 

*-* 

/4320 
2 TLPER-T8 

T4305 

T4307 
2 H2106-TB 

*+l 
2 H8106-TB 

*+l 
2 ER0UT-TB 

»-* 

/4321 
2 TLPER-TB 

T4308 



ERR- ENDING STAT. NOT RCVD 
ERR- INCORRECT STATUS RCVO 
PRINT ERROR MSG.20 

LOOP ON ERROR 
LOOP ON ERROR ADDRESS 
CONTINUE 
ERR- ENDING STAT. NOT RCVO 

ERR- INCORRECT STATUS RCVD 
PRINT ERROR MSG.21 



LOOP ON ERROR 
LOOP ON ERRQ.R ADDRESS 



111C 42E2 

HID C2C1 

HIE 1 4C18 11AE 

1120 42DC 

H21 0007 



1128 




0017 


1139 




0017 


1 14A 




0009 


1153 





FFFF 


1154 




0017 


1165 




0009 


116E 





00FF 


116F 




0017 


1180 





FFFF 


1181 




0017 


1192 




0009 


119B 





00FF 


119C 




0017 



* 
* 
* 
» 
T43EN 



TTL43 

* 



OP431 



0P432 



GO TO NEXT ROUTINE IN SEQUENCE 



BSI 
LD 
BZ 
BSI 
PR NT 

PRNT 

PR NT 

PRNT 

DC 

PRNT 

PRNT 

OC 

PRNT 

DC 

PRNT 
PRNT 
DC 
PRNT 



2 FREDV-TB FREE CHANNEL 

2 TRTNN-TB GET RTN SWS 

T4401 GO TO NEXT RTN IN SEO 

2 CNTRL-TB GO TO CONTROL RTN 

. SECT 4.RT 3- . 

.CHKS THAT 1NTF-A- IS NOT DSBLD WHE. 

.N SW DSBLD. CHNL SEL..SW. NEUTRAL., 

. AND CLOCK OUT UP.. 

/FFFF , 

. 1 - PLACE 2841 ENABLE SW ON I NTF 

.-A- TO — DISABLE — . 

/00FF 

. 2 - PGM WILL WAIT FOR 30 SECONDS. 

/FFFF 

. 1 - PLACE 2841 ENABLE SW ON 1NTF 

.-A- TO —ENABLE . 

/00FF 

. 2 - PGM WILL WAIT FOR 30 SECONDS. 



PART NO. 2279456 
PAGE 16 



01320420 

81320430 

81320440 

81320450 

81320460 

81320470 

81320480 

81320490 

81320500 

81320510 

81320520 

81320530 

81320540 

81320550 

81320560 

81320570 

81320580 

81320590 

81320600 

81320610 

81320620 

81320630 

81320640 

81320650 

81320660 

81320670 

81320680 

81320690 

81320700 

81320710 

81320720 

81320730 

81320740 

81320750 

81320760 

81320770 

81320780 

81320790 

81320800 

81320810 

81320820 

81320830 

81320840 

81320850 

81320860 

81320870 

81320880 

81320890 

81320900 

81320910 

81320920 

81320930 

81320940 

81320950 

81320960 

81320970 

81320980 

81320990 

81321000 

81321010 

81321020 

81321030 

81321040 

81321050 

81321060 

81321070 

81321080 

61321090 



DATE 
EC NO. 



14N0V69 
431319 



30JAN70 
431319A 



PROG 
PAGE 



0813-0 
16 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 



PART NO. 2Z794S6 
PAGE l6A 



G © 



i o 
I 
j o 

! © 



1600-2841 TWO CHANNEL SWITCH 
HAD FFFF 



1 1AE 

11AE 1 7401 0815 

11B0 1 4C18 11B5 

11B2 9297 

1163 1 4C20 1289 

UBS O C283 
11B6 100A 
11B7 1 4C10 11BB 
11B9 4200 
11BA 1 11FC 



FUNCTION TEST 

DC 



/FFFF 



o 
o 
o 






T4401 eou 
MDX 

BZ 

s 

BNZ 

T4402 LD 

SLA 
BNN 
BSI 
DC 



* 

TRID.l 

T4402 

Kl-TB 

T4S01 

TSW0-TB 

OTTLE 

T4403 



TEST ENTRY POINT 

BUMP RTN ID 

BR IF TEST NUMBER ZERO 

DECREMENT BY ONE 

BR IF NOT THIS TEST 

GET OPTION SWS 
PRINT TITLES 
BR IF NOT SET 



2 TLGMS-TB GO TO PRINT ROUTINE 
MESSAGE ADDRESS 



TTL44 



11BB O 42E5 



' .„, „<;, p GETDV-T8 GET CHANNEL FOR RTN 

1*************************************************1 

* SECTION 4. ROUTINE 4 

* CHECK THAT INTERFRCE >B- CANNOT BE DISABLED/ 
, ENABLED WITH CLOCK-OUT UP 

l„**»*****«**************************************l 

l*,*********************************r***::*?.***** 



HBC 

11BD 

1 1BE 

11BF 

1 ICO 

11C0 

11C1 

11C2 

1 1C4 

11C6 

1 1C7 

11C8 

11C9 

11CB 

HCC 

11CD 

1 ICE 

HDO 

1101 

11D2 

11D3 

1103 

1 104 

11DS 

1107 

11D9 

1 IDA 

11DB 

HOC 

11DE 

HDF 

11E0 

11E1 

11E3 

11E4 

lies 

1 1E6 
UE7 
11E8 



420C 
4200 
122F 
4212 



C2B6 

D2D6 
1 6700 11E4 
1 6F0O 157B 

42EB 

1 0B18 
C23B 

4C28 11E4 

C23C . 

E2A6 

F2A4 

4C20 11E6 

4200 
1 125C 
4212 




1 
1 



1 0B18 

C23B 

4C28 11F0 

C23C 

E2AB 

F2A4 

4C20 11F0 

7013 

C2B4 

7001 

C2B9 

0001 

42 OF 



C2B6 
D2D6 

6700 11EE 
6F00 157B 
42EB 



BSI 
T4404 BSI 
DC 
BSI 
T4405 EQU 
LD 
STO 
LDX 
STX 
BSI 
DC 
LD 
BN 
LD 
AND 
EOR 
BNZ 
T4407 BSI 
DC 
BSI 
T4408 EQU 
LD 
STO 
LDX 
STX 
BSI 
DC 
LD 
BN 
LD 
AND 
EOR 
BNZ 
B 
T44E1 LD 

B 
T44E2 LD 
STO 
BSI 



2 MODOB-TB 
2 TLGMS-TB 

0P441 
2 DELAY-TB 



2 H4000-TB 
2 SIOSW-TB 
L3 T44E1 
L3 WTADR 
2 SIO-TB 

SEEKO 

2 SCSXO-TB 

T44E1 



GET SEL CHNL -CHNL B- 
PRINT OPRTR MSG REQ TO 
*DISABLE CHNL • B 1 
WAIT FOR 30 SECONDS 

SE T-UP FOR RTRN ON ERROR 
* 
SETUP TIMEOUT ADDR 



DO SEEK 

* 

GET CHANL STATUS 
^ OPERATIONAL ERR IF NOT. 

SCSX0+1-TB FETCH UNIT STATUS 
H00FF _TB MASK OFF UNIT ADDR 
H000C-TB CH END. DEV END 
T44E2 ERR IF NOT 
TLGMS-TB PRINT OPR MSG REQ TO 
0P442 * ENABLE CHNL >B« 
DELAY-TB WAIT FOR 30 SECONDS 



2 H4000-TB 
2 SIOSW-TB 
L3 T44E3 
L3 WTADR 
2 SIO-TB 

SEEKO 

2 SCSXO-TB 

T44E4 



SET _ UP FOR RTRN. ON ERROR 
* 

SETUP TIMEOUT ADDR 
* 
DO SEEK 



GET CHNL. STATUS 
OPERATIONAL ERR IF NOT 
SCSX0+1-TB GET UNIT STATUS 
HOOFF-TB MASK-OFF UNIT ADOR. 
CHK.FOR DEV/CHNL END 
E.RR IF NOT 
GO TO END RTN. 
ERR- ENDING STAT. NOT RCVO 



H000C-TB 

T44E4 

T44EN 

H2 1 06-TB 

* + l 

H81 06-TB 

»+l 

EROUT-TB 



ERR- INCORRECT STATUS RCVD 
PRINT ERROR MSG.20 



8132 

8132 

8132 

8132 

8132 

8132 

8132 

8132 

8132 

8132 

8132 

8132 

8132 

8132 

8132 

8132 

8132 

8132 

8132 

8132 

8132 

8132 

8132 

8132 

8132 

8132 

8132 

8132 

8132 

8132 

8132 

8132 

8132 

8132 

8132 

8132 

8132 

8132 

8132 

8132 

8132 

8132 

8132 

8132 

8132 

8132 

8132 

8132 

8132 

8132 

8132 

8132 

8132 

8132 

8132 

8132 

8132 

8132 

8132 

8132 

8132 

8132 

8132 

8132 

8132 

8132 

8132 

8132 



1100 

11 10 

1 120 

1 130 

1 140 

1 150 

1160 

1 170 

1180 

1190 

1200 

1210 

1220 

1230 

1240 

1250 

1260 

1270 

1280 

1290 

1300 

1310 

1320 

1330 

1340 

1350 

1360 

1370 

1360 

1390 

1400 

1410 

1420 

1430 

1 44 

1450 

1460 

1470 

1480 

1490 

1500 

1510 

1520 

1530 

1S40 

1550 

1560 

1570 

1580 

1590 

1600 

1610 

1620 

1630 

1640 

1650 

1660 

1670 

1680 

1690 

1700 

1710 

1720 

1730 

1740 

17S0 

1760 

1770 



DATE 
EC NO. 



14N0V69 
431319 



30JAN70 
431319A 



PROG ID 
PAGE 



0813-0 
16A 
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ISM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 



PART NO. 2379456 
PAGE 17 



1800-2841 TWO CHANNEL SWITCH FUNCTION TEST 



o 
o 
o 
o 
o 
© 

i ° 
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i 
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I ° 

"i 

1 

| G 
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j O 

i o 
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1 o 
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i 


O 
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JO 
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! ° 
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© 
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11E9 





0000 


11EA 





4420 


1 1EB 





4203 


UEC 


1 


11 CO 


1160 





7CE2 


1 1EE 





C2B4 


11EF 





7001 


UFO 





C2B9 


11F1 





D00 1 


11F2 





42 OF 


11F3 





0000 


J 1F4 





4421 


11F5 





4203 


1 1F6 


1 


1103 



DC 

DC 

BSI 

DC 

B 

* 

T44E3 LD 
B 

T44E4 LO 
STO 
BSI 
DC 
DC 
BSI 
DC 



*-* 

/4420 

TLPER-TB 

TA40S 

T4407 

H2106-TB 
» + l 

H8106-TB 
* + l 

EROUT-TB 
*-* 
/4421 
: TLPER-TB 
T4408 



81321780 
81321790 
81321600 
81321810 
81321820 
81321830 
81321840 
81321850 

ERR- INCORRECT STATUS RCVD 81321860 

81321870 
PRINT ERROR MSG.21 



LOOP ON ERROR 
LOOP ON ERROR ADDRESS 
CONTINUE 

ERR- ENDING STAT. NOT RCVD 



LOOP ON ERROR 
LOOP ON ERROR ADDRESS 



GO TO NEXT ROUTINE IN SEQUENCE 



11F7 42E2 

1JF8 C2C1 

11F9 1 4C18 1289 

I1FB 42DC 

HFC 0007 

1203 0017 

1214 0017 

1225 0O09 

122E O FFFF 

122F 00 17 
1240 C009 
1249 OOFF 
124A 00J7 
12SB O FFFF 

125C 00 17 
126D 0009 

1276 O OOFF 

1277 0017 
1288 FFFF 



1289 

1289 1 7401 0815 

128B 1 4C18 1290 

1280 9297 

128E 1 4C20 1306 



T44EN BSI 
LD 
BZ 
BSI 

TTL44 PRNT 

* 

PRNT 
PRNT 
PRNT 
DC 



2 FREDV-TB FREE CHANNEL 

2 TRTNN-TB GET RTN SWS 

T4501 GO TO NEXT RTN IN SEQ 

2 CNTRL-T8 GO TO CONTROL RTN 

. SECT 4.RT 4- . 

.CHKS THAT INTF-B- IS NOT DSBLD WHE. 

.N SW DSBLD. CHNL SEL. SW. NEUTRAL.. 

. AND CLOCK OUT UP.. 
/FFFF 

0P441 PRNT . 1 - PLACE 2841 ENABLE SW ON INTF . 

PRNT .-8- TO — DISABLE — . 

DC /OOFF 

PRNT . 2 - PGM WILL WAIT FOR 30 SECONDS. 

DC /FFFF 
* 

0P442 PRNT . 1 - PLACE 2841 ENABLE SW ON INTF . 

PRNT .-B- TO ENABLE — . 

DC /OOFF 

PRNT . 2 - PGM WILL WAIT FOR 30 SECONDS. 

DC /FFFF 

* 

» 

*************************************************** 

* * 

*************************************************** 



1290 
1291 
1292 
1294 
1295 



C283 
1O0A 

4C10 1296 
4200 
12D3 



TAS01 



T4502 



EOU 

MDX 

BZ 

S 

BNZ 

LD 

SLA 

BNN 

BSI 

DC 



TEST ENTRY POINT 
TRIO.l BUMP RTN 10 
T4502 BR IF TEST NUMBER ZERO 
Kl-TB DECREMENT BY ONE 
T4601 BR IF NOT THIS TEST 

TSWO-TB GET OPTION SWS 
OTTLE PRINT TITLES 
T4503 BR IF NOT SET 

TLGMS-TB GO TO PRINT RpUTINE 
TTL45 MESSAGE ADDRESS 



1296 42E5 



81321880 

81321890 

81321900 

81321910 

81321920 

81321930 

81321940 

61321950 

81321960 

81321970 

81321980 

81321990 

81322000 

81322010 

81322020 

81322030 

81322040 

81322050 

81322060 

81322070 

81322080 

81322090 

81322100 

81322110 

81322120 

81322130 

81322140 

81322150 

81322160 

81322170 

81322180 

81322190 

81322200 

81322210 

81322220 

81322230 

81322240 

813222S0 

81322260 

81322270 

81322280 

81322290 

81322300 

81322310 

81322320 

81322330 

81322340 

81322350 



T4503 BSI 2 GETOV-TB GET CHANNEL FOR RTN 
*************************************************** 81322360 

* 81322370 

*************************************************** 

* 

* SECTION 4 ROUTINE 5 , 

* CHECK THAT INTF NOT OISBLD WHEN SWITCH SELECTED 

* TO 'A', SW IS DISBLO. AND CLOCK OUT DOWN 



DATE 
EC NO. 



14N0V69 
431319 



30JAN70 

431319A 



81322380 
81322390 
81322400 
81322410 
81322420 
a 81322430 

*************************************************** 81322440 

* 81322450 



PROG ID 
PAGE 



0813-0 
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*************************************************** 



1297 
1298 
1298 
129A 
129C 
129D 
129E 
129F 
12A0 
12A1 
12A2 
12A4 
12A5 
12A6 

12A7 
12A7 
12A8 
12A9 
12AB 
12AD 
12AE 
12AF 
12S0 
12B2 
12B3 
12B4 
12B5 
12B7 
12B8 
12B9 
12BA 
12BB 
12BC 
12B0 
12BE 
12BF 
12C0 
12C1 
12C2 
12C3 
12C4 

12C5 
12C6 
12C7 
12C8 
12C9 
12CA 
12CB 
12CC 
12CD 



DATE 
EC NO. 



4209 







1 6700 12BB 

1 6F0O 157B 

C2B6 

D2D6 

42EB 

0DC5 

C23C 
10OE 
1 4C10 12BD 

4200 

1 0F48 
4212 



12C5 
157B 



C2B6 
D2D6 
6700 
6F00 
42EB 
0BI8 
C23B 
4C28 12C7 



C23C 
E2AB 
F2A4 
4C20 
4200 
0F8B 
4212 
7013 
C2B4 
7001 
C2B9 
D001 
42DF 
0000 
4524 
4203 
1 1298 
70DF 



12C7 



BSI 
T4S04 EOU 
LDX 
STX 
LD 
STO 
BSI 
DC 
LD 
SLA 
BNN 
T4505 BSI 
OC 
BSI 



EQU 

LD 
STO 
LDX 
STX 

BSI 

DC 

LD 

BN 

LD 

AND 

EOR 

BNZ 

BSI 

DC 

BSI 

B 

LD 

B 

LD 

STO 

BSI 

DC 

DC 

BSI 

DC 

B 



2 MODDA-TB GET SEL CHNL -CHNL A 

SET-UP ERROR ADDR FOR 

* TIMEOUT 
SET-UP WAIT BUT RETURN 

* ON ERROR 
GO EXECUTE 
♦INVALID COMMAND CHAIN 



L3 T45E1 
L3 WTADR 

2 H4000-TB 

2 SIOSW-TB 

2 SIO-TB 
CC311 

2 SCSX0+1-TB GET UNIT STATUS 



UNCHK 

T45E2 

TLGMS- 

0P4S1 

DELAY-TB 



-TB 



2 H4000-TB 
2 SIOSW-TB 
L3 T45E3 
L3 WTADR 
2 SIO-TB 

SEEKO 

2 SCSXO-TB 

T45E4 



UNIT CHECK 
ERROR NOT 

WAIT FOR 30 SECONDS 
*FOR OPRTR TO 

* DISABLE INTF 'A' AND 

* STOP/START CPU 

SET-UP RETRN ON ERROR AND 

* WAIT FOR ENDING STATUS 
SET-UP TIMEOUT ADDR 



GO XEO 

*SEEK 

GET CHNL STATUS 

♦ ERROR IF UNIT NOT OPRTNL 
SCSX0+1-TB GET UNIT STATUS 
HOOFF-TB MASK-OFF UNIT ADDR 

DEV/CHNL END 

ERROR NOT 

PRINT OPRTR MSG.REO TO 

•ENABLE INTF* A' 6 STOP/STRT 

WAIT 30 SECONDS 
GO TO END RTN. 
ERR- ENDING STAT. NOT RCVD 



T45E2 



C2B4 
7001 
C2B9 
D00 1 
42DF 
0000 
4525 
4203 
12A7 



T45E3 LD 
B 

T45E4 LD 
STO 
BSI 
DC 
DC 
BSI 
DC 



H000C-TB 

T45E4 

TLGMS-TB 

0P452 

DELAY-TB 

T45EN 

H2106-TB 

*+l 

H8106-TB 

*+l 

EROUT-TB 

*-* 

/4S24 

TLPER-TB 

T4504 

T4S05 

H2106-TB 

* + l 

H8106-TB 

*+l 

EROUT-TB 

*-* 

/4S25 

TLPER-TB 

T4506 



ERR- INCORRECT STATUS RCVD 

PRINT ERROR MSG.N0.24 

SRXX 

LOOP ON ERROR 

LOOP ON ERROR ADDRESS 
CONTINUATION ADDR. 

ERR- ENOING STAT. NOT RCVD 

ERR- INCORRECT STATUS RCVD 

PRINT ERROR MSG.NO.2S 

SRXX 

LOOP ON ERROR 
LOOP ON ERROR ADDRESS 



GO TO NEXT ROUTINE IN SEQUENCE 



12CE 42E2 

12CF C2C1 

1200 1 4C18 1306 

12D2 42DC 

12D3 0007 

12DA 0017 

12EB 0017 

12FC 0009 

1305 FFFF 



T45EN BSI 
LD 
BZ 
BSI 

TTL45 PRNT 

* 

PRNT 
PRNT 
PRNT 
DC 



2 FREDV-TB FREE CHANNEL 
2 TRTNN-TB GET RTN SWS 

T4601 GO TO NEXT RTN IN SEQ 
2 CNTRL-TB GO TO CONTROL RTN 

. SECT 4.RT 5- . 

.CHKS THAT INTF-A- IS NOT OSBLD WHE. 
.N SW DSBLD. CHNL SW SEL. TO -A-. A. 
•NO CLOCK OUT DOWN.. 
/FFFF 



PART NO. 2279456 
PAGE 17A 



81322460 

81322470 

81322480 

81322490 

81322500 

81322510 

81322520 

81322 530 

81322540 

81322550 

81322560 

81322570 

81322580 

81322590 

81322600 

81322610 

81322620 

81322630 

81322640 

81322650 

81322660 

81322670 

81322680 

81322690 

81322700 

81322710 

81322720 

81322730 

81322740 

81322750 

81322760 

81322770 

81322780 

81322790 

81322800 

81322810 

81322820 

81322830 

81322840 

81322850 

81322860 

81322870 

81322880 

81322890 

81322900 

81322910 

81322920 

81322930 

81322940 

81322950 

81322960 

81322970 

81322980 

81322990 

81323000 

81323010 

8132 3020 

81323030 

81323040 

81323050 

81323060 

81323070 

81323080 

81323090 

81323100 

81323110 

81323120 

81323130 



14N0V69 
431319 



30JAN70 
431319A 
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1800-2841 TWO CHANNEL SWITCH FUNCTION TEST 
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DATE 
EC N0> 



0F48 
0F88 



0P451 EQU 



0P41 1 



OP4 52 EQU 



GP412 



81323140 
81323150 
81323160 
81323170 
81323180 

* * 81323190 

************* ********2* ***************** 2****2***** ai 3232 00 



********************* 2***********2**********2**2*** 



1306 









T4601 


EQU 




* 


1306 


1 


7401 


0815 




M0X 


L 


TRID.l 


1308 


1 


4C18 


1300 




BZ 




T4602 


130A 





9297 






S 


2 


Kl-TB 


130B 


1 


4C20 


1383 


* 
T4602 


BNZ 




T4701 


1300 





C233 




LD 


2 


TSW0-TB 


130E 





100A 






SLA 




OTTLE 


130F 


1 


4C10 


1313 




BNN 




T4603 


1311 





4200 






8SI 


2 


TLGMS-TB 


1312 


1 


1350 




* 


DC 




TTL46 


1313 





42ES 




T4603 


BSI 


2 


GETDV-TB 



TEST ENTRY POINT 

BUMP RTN ID 

BR IF TEST NUMBER ZERO 

DECREMENT BY ONE 

BR IF NOT THIS TEST 



81323210 
81323220 
8132 3230 
81323240 
81323250 
81323260 
8132 3270 
81323280 
8132 3290 
81323300 
81323310 
81323320 
81323330 
81323340 

* * 81323350 
••*•**»********»***** ************* #»**** )> »*»»#»**^ ij , 813233 60 

* 81323370 

* SECTION 4 ROUTINE 6 

* CHECK THAT INTF NOT 0ISBLD WHEN SWITCH SELECTED 
» TO 'B'. SW IS DIS8LD. AND CLOCK OUT DOWN. 



GET OPTION SWS 
PRINT TITLES 
BR IF NOT SET 
D TO PRINT ROUTINE 
MESSAGE ADDRESS 

GET CHANNEL FOR RTN 

**************** i********************************:,* 



***************************************#********** * 
* * 

***************************2********************2** 

GET SEL CHNL -CHNL B 



SET-UP ERROR ADDR FOR 

* TIMEOUT ' 

SET-UP WAIT BUT RETURN 

* ON ERROR 
GO EXECUTE 

♦INVALID COMMAND CHAIN 
B GET UNIT STATUS 
UNIT CHECK 
ERROR NOT 

WAIT FOR 30 SECONDS 
•FOR 0PRTR TO 

* DISABLE INTF 'B« AND 

* STOP/START CPU 



1314 420C 






BSI 


2 M0DDB-TB 


1315 




T4604 


EQU 


* 


1315 1 6700 


1338 




LDX 


L3 T46E1 


1317 1 6F00 


157B 




STX 


L3"WTADR 


1319 C286 






L0 


2 H4000-TB 


131A D2D6 






ST0 


2 SI0SW-TB 


131B 42EB 






BSI 


2 SI0-TB 


13 1C 1 0DC5 






DC 


CC311 


131D C23C 






LD 


2 SCSX0+1- 


131E 100E 






SLA 


UNCHK 


131F 1 4C10 


133A 




BNN 


T46E2 


1321 4200 




T4605 


BSI 


2 TLGMS-TB 


1322 1 1040 






DC 


0P461 


1323 4212 




* 
T4606 


BSI 


2 DELAY-TB 


1324 




EQU 


* 


1324 C2S6 






LD 


2 H4000-TB 


1325 0206 






STO 


2 SI0SW-TB 


1326 1 6700 


1342 




LDX 


L3 T4 6E3 


1328 I 6F00 


157B 




STX 


L3 WTADR 


132A 42EB 






BSI 


2 SI0-TB 


1328 1 0B18 






DC 


SEEK0 


132C C23B 






LD 


2 SCSXO-TB 


1320 1 4C28 


1344 




BN 


T46E4 


132F C23C 






LD 


2 SCSX0+1-T 


1330 E2AB 






AND 


2 H00FF-TB 


1331 F2A4 






E0R 


2 HOOOC-TB 


1332 1 4C20 


12C7 




BNZ 


T45E4 


1334 4200 






BSI 


2, TLGMS-TB 


1335 1 10'iO 






DC 


0P462 


1336 4212 






BSI 


2 DELAY-TB 


1337 7013 






B 


T46EN 


1338 C2B4 




T46E1 


LD 


2 H2106-TB 


1339 700 1 






B 


*+l 


133A C2B9 




T46E2 


LD 


2 H8106-TB 


133B 000 1 






STO 


* + l 



SET-UP RETRN ON ERROR AND 
* WAIT FOR EN0ING STATUS 
SET-UP TIMEOUT ADDR 



81323380 

81323390 

81323400 

81323410 

81323420 

81323430 

81323440 

81323450 

81323460 

81323470 

81323480 

81323490 

81323500 

81323510 

81323520 

81323530 

81323540 

81323550 

81323560 

81323570 

81323580 

81323590 

81323600 

81323610 

81323620 

81323630 

81323640 

81323650 

81323660 

81323670 

81323680 

81323690 

81323700 

81323710 

81323720 

81323730 

81323740 



14NOV69 
431319 



30JAN70 
431319A 



GO XEQ „ 

•SEEK 

GET CHNL STATUS 

*ERR0R IF UNIT NOT OPRTNL 
3 GET UNIT STATUS 

MASK-OFF UNIT A0DR 

DEV/CHNL END 

ERROR NOT 

PRINT OPRTR MSG. REQ TO 

•ENABLE INTF'B' STOP/STRT 81323750 

WAIT 30 SECONDS 81323760 

GO TO END RTN. 81323770 

ERR- ENDING SjTAT.NOT RCVO 81323780 

81323790 
ERR- INCORRECT STATUS RCVD 81323800 

81323810 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 
1600-2841 TWO CHANNEL SWITCH FUNCTION TEST 



PART NO. 2279456 
PAGE ' 1BA 



DATE 
EC NO. 



133C 





42 OF 




BSI 


2 


ER0UT-T8 


133D 





0000 




DC 




*~* 


133E 





4624 




DC 




Z4624 


133F 





4203 




BSI 


2 


TLPER-TB 


1340 


1 


1315 




DC 




T4604 


134 1 





7 0DF 


* 
T46E3 


a 




T4605 


1342 





C2B4 


LD 


2 


H2106-TB 


1343 





700 1 




B 




* + l 


1344 





C2B9 


T46E4 


LD 


2 


H8I06-TB 


1345 





D00 1 




STO 




* + l 


1346 





42DF 




BSI 


2 


ER0UT-TB 


1347 





0000 




DC 




*-• 


1348 





4625 




DC 




Z4625 


1349 





4203 




BSI 


2 


TLPER-TB 


134A 


1 


1324 




DC 




T4606 



PRINT ERROR MSG. NO. 24 



SRXX 

LOOP ON ERROR 

LOOP ON ERROR ADDRESS 
CONTINUATION ADDR. 

ERR- ENDING STAT. NOT RCVD 



SRXX 

LOOP ON ERROR 
LOOP ON ERROR A0DRESS 



GO TO NEXT ROUTINE IN SEQUENCE 



134B 42E2 

134C C2C1 

I34D 1 4C18 1383 

134F 42DC 

1350 0007 

13S7 0017 

1368 0017 

1379 0009 

1382 FFFF 

104D 



1383 

1383 1 7401 0815 

1385 1 4C18 138A 

1387 9297 

1388 1 4C20 1426 

138A C283 
138B 100A 
138C 1 4C10 1390 
138E 4200 
138F 1 1305 

1390 42E5 



81323820 
81323830 
81323840 
81323850 
81323860 
81323870 
81323880 
81323890 
81323900 
ERR- INCORRECT STATUS RCVD 81323910 

6132 3920 
PRINT ERROR MSG. NO. 25 81323930 

81323940 
81323950 
8132 3960 
81323970 
81323980 
81323990 
81324000 
81324010 
8132 4020 
81324030 
81324040 
81324050 
81324060 
81324070 
81324080 
81324090 
81324100 
81324110 
81324120 
81324130 
81324140 

* 81324150 
*******2********* 2**********2************2********* 81324160 

* * 81324170 

************ ******2********************2 *** ******** 81324180 



T46EN BSI 
LD 
BZ 
BSI 

TTL46 PRNT 

» 

PRNT 
PRNT 
PRNT 
DC 

* 

0P461 EQU 

* 

0P462 EQU 



FREDV-TB 
TRTNN-TB 
T4701 
CNTRL-TB 



FREE CHANNEL 
GET RTN SWS 

GO TO NEXT RTN IN SEQ 
GO TO CONTROL RTN 



. SECT 4.RT 6- . 

•CHKS THAT INTF-B- IS NOT DSBLD WHE. 
•N SW DSBLD. CHNL SW SEL. TO -B-, A. 
•ND CLOCK OUT DOWN.. 
/FFFF 

0P421 

0P422 



T4701 EQU 
M0X 
BZ 
S 
BNZ 

» 

T4702 LD 
SLA 
BNN 
BSI 
DC 

* 

T4703 BSI 



TRID.l 
T4702 
Kl-TB 
T4801 



TEST ENTRY POINT 

BUMP RTN ID 

BR IF TEST NUMBER ZERO 

DECREMENT BY ONE 

BR IF NOT THIS TEST 



TSW0-TB 

OTTLE 

T4703 



GET OPTION SWS 
PRINT TITLES 
BR IF NOT SET 
TLGMS-TB GO TO PRINT ROUTINE 
TTL47 MESSAGE ADDRESS 



14N0V69 
431319 



30JAN70 

431319A 



81324190 
81324200 
81324210 
81324220 
81324230 
81324240 
81324250 
81324260 
81324270 
81324280 
81324290 
81324300 
GETDV-TB GET CHANNEL FOR RTN 81324310 

*********************************2*22*****2*S****** 81324320 

* * 81324330 
****************** 22**********************2***2**** 81324340 

* 81324350 

* SECTION 4 ROUTINE 7 81324360 

* CHKS INTERFACE 'A> IS DISABLED WHEN DISABLED/ 81324370 

* ENABLED WITH CLOCK OUT UP. 81324380 

* 81324390 
***************»*******************2*22*******2**** 81324400 

* * 81324410 
********************9************2******2********** 81324420 

81324430 

REQ. OPRTR. TO DISABLE INTF 81324440 

*-A- STOP/START CPU 81324450 

WAIT 30 SECONDS 81324460 

REQ. OPRTR. TO ENABLE INTF-A 813244 70 

• NO START STOP 81324480 

WAIT 30 SECONDS 81324490 



PROG 10 
PAGE 



1391 





4200 


T4704 


BSI 


2 


TLGMS-TB 


1392 


1 


OF 48 




DC 




0P471 


1393 





4212 




BSI 


2 


DELAY-TB 


1394 





4200 




BSI 


2 


TLGMS-TB 


1395 


1 


1181 




DC 




0P472 


1396 





4212 




BSI 


2 


DELAY-TB 
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18M MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 
1800-2841 TWO CHANNEL SWITCH FUNCTION TEST 
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DATE 
EC NO. 



1397 4209 






BSI 


2 MODDA-TB 


GET SEL.CHNL. CHANNEL-A 


- 81324500 


1398 




T470S EOU 


* 




81324510 


1398 C236 






LD 


2 H4 000-TB 


SETUP FOR WAIT BUT 


81324520 


1399 02D6 






STO 


2 SIOSW-TB 


*RTRN ON ERROR 


81 324530 


139A 1 6700 


13B0 




LOX 


L3 T47E1 


SETUP ERROR ADDR. FOR 


81324540 


139C 1 6F00 


157B 




STX 


L3 WTADR 


*N0 END STATUS RCVD. 


81324550 


139E 42E6 






BSI 


2 SIO-TB 


EXECUTE SEEK 


81324560 


139F 1 0618 






DC 


SEEKO 


CCW ADDR. 


81324570 


13A0 C23B 






LD 


2 SCSXO-TB 


GET CHANNEL STATUS 


81324580 


13A1 1 4C10 


13BF 




BNN 


T47E2 


ERROR NO 'UNIT NOT OPRTNL' 


81324590 


13A3 1001 






SLA 


1 


CHECK IF U.N.O. ALONE 


81324600 


13A4 1 4C20 


13BF 




BNZ 


T47E2 


ERROR NOT 


81324610 


13A6 4200 




T4706 BSI 


2 TLGMS-TB 


REO OPRTR TO START/STOP CP 81324620 


13A7 1 1405 






DC 


0P4 73 


•THE CPU 


81324630 


13A8 4212 






BSI 


2 DELAY-TB 




81324640 


13A9 




T4707 EOU 


* 




81324650 


13A9 C2B6 






LD 


2 H4000-TB 


SETUP FOR WAIT AND RETURN 


81324660 


13AA 02D6 






STO 


2 SIOSW-TB 


*0N ERROR 


81324670 


13AB 1 6700 


13C7 




LOX 


L3 T4 7E3 


SETUP ERROR ADDR. FOR 


81324680 


13A0 I 6F00 


1S7B 




STX 


L3 WTADR 


*N0 END STAT. RCVD. 


81324690 


13AF 42EB 






BSI 


2 SIO-TB 


EXECUTE SEEK 


81324700 


13B0 1 0818 






DC 


SEEKO 


CCW ADDR. 


81324710 


13B1 C23C 






LD 


2 SCSXO+1-TB 


GET UNIT STATUS 


81324720 


13B2 E2AB 






AND 


2 HOOFF-TB 


MUST BE DEV/CHNL END 


81324730 


13B3 F2A4 






EOR 


2 HOOOC-TB 


* 


81324740 


13B4 1 4C20 


13C9 




BNZ 


T47E4 


ERROR NOT 


81324750 


13B6 C23B 






LD 


2 SCSXO-TB 


GET CHNL STATUS 


81324760 


1387 1 4C28 


13C9 




BN 


T47E4 


ERROR IF UNIT NOT OPRTNL. 


81324770 


13B9 1001 






SLA 


1 


ERROR IF NOT 


81324780 


138A 1 4C10 


13C9 




BNN 


T47E4 


* UNIT STATUS PENDING 


81324790 


J3BC 7013 




* 


B 


T47EN 


GO TO END RT,N. 


81324800 
81324810 


13B0 C2B4 




T47E1 


LD 


2 H2106-TB 


ERR- ENDING STAT. NOT RCVD 


81324820 


13BE 700 1 






B 


*+l 




81324830 


138F C2B9 




T47E2 


LD 


2 H8106-TB 


ERR- INCORRE.CT STATUS RCVD 


81324840 


13C0 D001 






STO 


* + l 


f 


81324850 


13C1 420F 






BSI 


2 EROUT-TB 


PRINT ERROR MSG. NO. 26 


81324 860 


13C2 0000 






DC 


*-* 




81324870 


13C3 4726 






DC 


/4726 


SRXX 


81324880 


13C4 4203 






BSI 


2 TLPER-T8 


LOOP ON ERROR 


81324890 


13CS I 1398 






DC 


T4705 


LOOP ON ERROR ADDRESS 


81324900 


13C6 70DF 




* 


B 


T4706 


CONTINUE- 


81324910 
81324920 


13C7 C2B4 




T47E3 


LD 


2 H2106-TB 


ERR- ENDING STAT. NOT RCVD 


81324930 


13C8 7001 






B 


, *+> 




81324940 


13C9 C2B9 




T47E4 


LD 


2 H8106-T8 


ERR- INCORRECT STATUS RCVD 


81324950 


13CA 001 






STO 


*+l 




81324960 


13CB 42DF 






BSI 


2 EROUT-TB 


PRINT ERROR' MSG. NO. 27 


81324970 


13CC 0000 






DC 


*-* 




81324980 


13CD 4727 






DC 


• 4727 


SRXX 


81324990 


13CE 4203 






BSI 


2 TLPER-TB 


LOOP ON ERROR 


81325000 


13CF 1 13A9 




* 
* 


DC 


T4707 


LOOP ON ERROR ADDRESS 


81325010 
8132 5020 
8132 5030 






v 


GO TO 


NEXT ROUTINE 


IN SEQUENCE' 


8132 5040 






* 








81325050 


13D0 42E2 




T47EN 


BSI 


2 FREDV-TB 


FREE CHANNEL 


81325060 


1301 C2C1 






LD 


2 TRTNN-TB 


GET RTN SWS 


8132 5070 


1302 1 4C18 


426 




BZ 


T4801 


GO TO NEXf RTN IN SEQ 


81325080 


13D4 420C 






BSI 


2 CNTRL-TB 


GO TO CONTROL RTN 


81325090 


13D5 0007 




TTL47 

* 


PR NT 


. SECT 4.R1 


7- . 


81325100 
813251 10 


13DC 0017 






PR NT 


• CHKS INTF- 


A- REMAINS DSBLD WHEN SW. 


81325120 


13E0 0017 






PRNT 


•-A- GOES FROM DSBL TO ENBL WITH CL. 


81325130 


13FE 0006 






PRNT 


•OCK OUT UP. . 


81325140 


1404 FFFF 






DC 


? - /FFFF 


* 


81325150 


0F48 




0P471 


EOU 


0P4U 


'. 


81325160 



14N0V69 
431319 



30JAN70 
431319A 



61325170 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 
1800-2841 TWO CHANNEL SWITCH FUNCTION TEST 



PART NO. 2279456 
PAGE 19A 



DATE 
EC NO. 



1181 

1405 0013 

1417 OOFF 

1418 0013 
1425 FFFF 



0P472 


EOU 


OP432 


0P473 


PRNT 


. 1 - 




DC 


/OOFF 




PRNT 


. 2 - 




DC 


/FFFF 



1 - STOP THE CPU WITHIN 
OFF 

2 - CONTINUE THE PROGRAM 



81325180 

81325190 
30 SECONDS. 81325200 
81325210 
81325220 
813252 30 

* 81325240 
************* ************************************** 8132 52 50 

* * 81325260 
********* ************************* **********33 t< ,., t<[ 813252 70 



1426 









T4801 


EOU 




* 


1426 


1 


7401 


0815 




.v.DX 


L 


TRID.l 


1428 


1 


4C18 


142D 




BZ 




T4802 


142A 





9297 






S 


2 


Kl-TB 


142B 


1 


4C20 


14A8 


* 
T4802 


BNZ 




T4901 


142D 





C283 




LD 


2 


TSWO-TB 


142E 





100A 






SLA 




OTTLE 


142F 


1 


4C10 


1433 




BNN 




T4803 


1431 





4200 






BSI 


2 


TLGMS-T 


1432 


1 


1478 






DC 




TTL48 


1433 





42E5 




T4803 


BSI 


2 


GETOV-T 



TEST ENTRY POINT 

BUMP RTN ID 

BR IF TEST NUMBER ZERO 

DECREMENT BY ONE 

BR IF NOT THIS TEST 

GET OPTION SWS 
PRINT TITLES 
BR IF NOT SET 
TLGMS-TB GO TO PRINT ROUTINE 
MESSAGE ADDRESS 



1434 

1435 

1436 

1437 

1438 

1439 

143A 

143B 

143B 

143C 

143D 

143F 

1441 

1442 

1443 

1444 

1446 

1447 

1449 

144A 

144B 

144C 

144C 

1440 

144E 

1450 

1452 

1453 

1454 

1455 

1456 

14S7 

1459 



4200 

1 104D 
4212 
4200 
125C 
4212 
420C 






1 







1 
1 



1 0B18 

C23B 

1 4C10 1462 

1001 

1 4C20 1462 

4200 

1 1405 
4212 



81325280 
8132 52 90 
81325300 
81325310 
8132 5320 
8132 5330 
8132 5340 
8132 S350 
81325360 
8132 5370 
81325380 
81325390 
GET CHANNEL FOR RTN 81325400 

************* *************** t**************,,,;,,^,,,,,,,, 81325 4 10 

* * 81325420 

************************* **** ***** ***************** 81325430 

8132 544 
81325450 
8132 5460 
8132 54 70 

* 81325480 
**************** *********************** ***»* t<1<1 » 44 , 81325490 

* * 81325500 

******** ******** ***************** ****************** 8132 5510 

81325520 
REO. OPRTR. TO DISABLE INTF 81325530 
*-B- STOP/START CPU 81325540 

WAIT 30 SECONDS 81325550 

REQ. OPRTR. TO ENABLE INTF-B 81325560 



* SECTION 4 ROUTINE 8 

* CHKS INTERFACE 'B« IS DISABLED WHEN DISABLED/ 

* ENABLED WITH CLOCK OUT UP. 



C2B6 
D2D6 

6700 1460 
6F00 1578 

42EB 



C2B6 
D2D6 

6700 146A 
6F00 157B 
42EB 
0B18 
C23C 
E2AB 

F2A4 

1 4C20 146C 
C23B 



T4804 BSI 
DC 
BSI 
BSI 
DC 
BSI 
BSI 

T4805 EQU 
LD 
STO 
LDX 
STX 
BSI 
OC 
LD 
BNN 
SLA 
BNZ 

T4806 BSI 
DC 
BSI 

T4807 EQU 
LD 
STO 
LDX 
STX 
BSI 
DC 
LD 
AND 
EOR 
BNZ 
LD 



TLGMS-TB 

0P481 

DELAY-TB 

TLGMS-TB 

0P482 

DELAY-TB 

MODDB-TB 



* NO START STOP 
WAIT 30 SECONDS 
GET SEL.CHNL. 



CHANNEL-B- 



2 H4000-TB 
2 SIOSW-TB 
L3 T48E1 
L3 WTADR 
2 SIO-TB 

SEEKO 
2 SCSXO-TB 

T48E2 

1 

T48E2 
2 TLGMS-TB 

OP483 
2 DELAY-TB 



SETUP FOR WAIT BUT 

*RTRN ON ERROR 

SETUP ERROR ADDR. FOR 

*NO END STATUS RCVD. 

EXECUTE SEEK 

CCW ADDR. 

GET CHANNEL STATUS 

ERROR NO'UNIT NOT OPRTNL* 

CHECK IF U.N.O. ALONE 

ERROR NOT 



8132 5570 
81325580 
81325590 
81325600 
81325610 
8132 5620 
81325630 
81325640 
81325650 
81325660 
813256 70 
81325680 
81325690 
81325700 



REQ OPRTR TO START/STOP CP 81325710 



*THE CPU 



2 H4000-TB SETUP FOR WAIT AND RETURN 

2 SIOSW-TB *ON ERROR 

L3 T48E3 SETUP ERROR ADDR. FOR 

L3 WTADR *NO END STAT. RCVD. 

2 SIO-TB EXECUTE SEEK 

SEEKO CCW ADDR. 

2 SCSX0+1-TB GET UNIT STATUS 

2 HOOFF-TB MUST BE DEV/CHNL END 

2 HOOOC-TB * 

T48E4 ERROR NOT 

2 SCSXO-TB GET CHNL STATUS 



14N0V69 
431319 



30JAN70 

431319A 



81325720 
81325730 
81325740 
81325750 
81325760 
81325770 
81325780 
81325790 
81325800 
81325810 
81325820 
81325830 
81325840 
81325850 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 
1800-2841 TWO CHANNEL SWITCH FUNCTION TEST 



DATE 
EC NO. 



145A 1 4C23 146C 

145C 100 1 

1450 1 4C10 146C 

14SF 7013 



1460 





C2B4 


1461 





7001 


1462 





C2B9 


1463 





D001 


1464 





42DF 


1465 





0000 


1466 





4826 


1467 





4203 


1468 


1 


143B 


1469 





70DF 


146A 





C264 


146B 





7001 


146C 





C2B9 


1460 





D001 


1466 





42 DF 


146F 





0000 


1470 





4827 


1471 





4203 


1472 


1 


144C 



1473 42E2 

1474 C2C1 

1475 1 4C18 14A8 

1477 42UC 

1478 0007 

147F 0017 

1490 0017 

14A1 0006 

14A7 FFFF 

1040 

12SC 

1405 



14A8 420C 



14A9 





DOOF 


14AA 





42E2 


14AS 





C2B0 


14AC 





0204 


14A0 





42E5 


14AE 





COO A 



14N0V69 
431319 



30JAN70 
431319A 





BN 




T48E4 




SLA 




1 




BNN 




T48E4 




B 




T4BEN 


* 








T48E1 


L0 


2 


H2106-TB 




B 




*+l 


T48E2 


LD 


2 


HB106-TB 




STO 




*+l 




BSI 


2 


EROUT-TB 




DC 




#— * 




DC 




/4B26 




BSI 


2 


TLPER-TB 




DC 




T4805 




a 




T4806 


* 








T48E3 


LD 


2 


H2106-TB 




B 




* + l 


T48E4 


LD 


2 


H8106-TB 




STO 




* + l 




BSI 


2 


EROUT-TB 




DC 




*-* 




DC 




/4827 




BSI 


2 


TLPER-TB 




DC 




T4807 



ERROR IF UNIT NOT 0PRTNL. 
ERROR IF NOT 
* UNIT STATUS PENDING 
GO TO END RTN. 

ERR- ENDING STAT. NOT RCVO 

ERR- INCORRECT STATUS RCVD 

PRINT ERROR MSG. NO. 26 

SRXX 

LOOP ON ERROR 

LOOP ON ERROR ADDRESS 

C0NTINUE- 

ERR- ENDING STAT. NOT RCVO 

ERR- INCORRECT STATUS RCVD 

PRINT ERROR MSG. NO. 27 

SRXX 

LOOP ON ERROR 

LOOP ON ERROR ADDRESS 



* GO TO NEXT ROUTINE IN SEQUENCE 
* 

T48EN BSI 2 FREDV-TB FREE CHANNEL 

LD 2 TRTNN-TB GET RTN SWS 

BZ T4901 GO TO NEXT RTN IN SEO 

BSI 2 CNTRL-TB GO TO CONTROL RTN 

TTL48 PRNT . SECT 4,RT 8- . 
* 

PRNT .CHKS INTF-B- REMAINS DSBLD WHEN SW. 

PRNT '.-A- GOES FROM DSBL TO ENBL WITH CL. 

PRNT .OCK OUT UP. • 

DC /FFFF 

0P481 EOU CJP421 
* 

OP482 EOU 0P442 
* 

0P483 EOU 0P473 
* 
*************************************************** 

* * 
********»****#************************************* 

* SECTION END 

* 

T4901 BSI 2 CNTRL-TB GO TO CONTROL RTN 

*************************************************** 

* * 
*************************************************** 
« 

* SUBROUTINE TO GET DEVICE FROM CHANNEL A 
* 

*************************************************** 
« * 

*************************************************** 
* 

MOOEA STO MODSV SAVE ACC 

BSI 2 FREDV-TB FREE SEL CHNL 

LD 2 INTFA-TB GET INTF A ADDR AS SELCTD 

STO 2 DVADR-TB 

BSI 2 GETOV-TB GET SEL CHNL ; 6- BUILD NEW 

LO MODSV I0CCS. RESTORE ACC 



PART NO. 
PAGE 



8132S860 
81325870 
81325880 
81325890 
81325900 
8 132 59 10 
81325920 
8132 5930 
81325940 
81325950 
81325960 
81325970 
8132 5980 
81325990 
8132 6000 
81326010 
81326020 
8132 6030 
8132 6040 
81326050 
81326060 
8132 6070 
813260 80 
81326090 
81326100 
813261 10 
81326120 
81326130 
81326140 
81326150 
81326160 
81326170 
81326180 
81326190 
81326200 
81326210 
8132 6220 
8132 6230 
81326240 
8132 62S0 
81326260 
8132 6270 
81326280 
81326290 
8132 6300 
8132 6310 
8132 6320 
81326330 
8132 6340 
8132 6350 
81326360 
8132 6370 
8132 6380 
8132 6390 
81326400 
81326410 
8132 6420 
81326430 
81326440 
81326450 
81326460 
81326470 
81326480 
81326490 
8132 6500 
81326510 
81326520 
81326530 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 
1800-2841 TWO CHANNEL SWITCH FUNCTION TEST 



14AF 1 4C80 0888 



DATE 
EC NO. 



14B1 D007 

14B2 42E2 

14B3 C2BE 

14B4 D2D4 

14B5 42E5 

14B6 C002 

14B7 1 4C80 088B 

14B9 0000 



B I MODDA RETURN 
* 
*##***********************#************************ 

* * 
a************************************************** 
* 

* SUBROUTINE TO GET DEVICE FROM CHANNEL B 
* 
St******************************************* ******* 

* * 
*******************##*********#*#****************** 



SAVE ACC 

FREE SEL CHNL 

GET INTF B ADDR AS SELCTD 



MODEB 


STO 




MODSV 




BSI 


2 


FREDV-TB 




LD 


2 


INTF8-TB 




STO 


2 


DVADR-TB 




BSI 


2 


GETDV-TB 




LD 




MODSV 


* 
MODSV 


B 


1 


MODDB 


DC 




*-* 



14BA 





1010 




CLSET SLA 




16 


14BB 





D276 




STO 


2 


WATSW-TB 


14BC 





C2BB 




LD 


2 


HF000-TB 


14BD 





1002 




SLA 




2 


14BE 





D206 




STO 


2 


SIOSW-TB 


14BF 


1 


4C80 


088E 


B 


I 


CLRST 



14C1 6B0B 

14C2 6303 

14C3 4200 

14C4 1 080C 

14C5 73FF 

14C6 70FC 

14C7 6700 3A98 

14C9 42EE 

14CA 73FF 

14CB 70FD 

14CC 6700 0000 

14CE 1 4C80 0891 



GET SEL CHNL 6 BUILD NEW 

IOCCS. RESTORE ACC 
RETURN 



ACC SAVE 

* 
*************************************************** 

* * 
ft************************************************** 
* 

* ROUTINE TO CLEAR WATSW AND SET-UP SIOSW FOR 

* IMMEDIATE RETURN EVEN IF ERROR OCCURS 
* 
ft************************************************** 

* * 
*************************************************** 
* 

CLEAR WAIT SWITCH 

SET SIO RTN CONTROL SWTCH 

RETURN TO REQUESTOR 
* 
*************************************************** 

* * 
#**«*#********************************************* 
* 
*************************************************** 

* * 
************#*****#*****#************************** 
* 

* ROUTINE TO DELAY FOR 30 SECONDS BY MONITOR VISITS 

* AND SKIPS FIVE LINES ON LOG DEVICE 
* 
*************************************************** 

* * 
*************************************************** 
* 

DLAYE STX 3 DLYSV+1 SAVE XR3 

LOX 3 3 

BSI 2 TLGMS-TB SKIP 3 LINES 

DC TERM 

MDX 3 -1 

B *-4 

LOX L3 15000 

DLAYL BSI 2 STMLS-TB 

MDX 3 -1 

B DLAYL 

DLYSV LOX L3 *-* 

B I DELAY 
* 



SETUP CTR 
VISIT MONITOR 

LOOP FOR 30 SECS 
RESTORE XR3 
RETURN 



14N0V69 
431319 



30JAN70 
431319A 
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81326550 
81326560 
81326570 
8132 6580 
81326590 
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8132 6640 
813266S0 
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8132 6670 
81326680 
81326690 
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81326710 
81326720 
81326730 
81326740 
81326750 
81326760 
81326770 
81326780 
81326790 
8132 6800 
81326810 
8132 6820 
81326830 
81326840 
81326850 
81326860 
81326870 
81326880 
81326890 
8132 6900 
81326910 
81326920 
81326930 
81326940 
81326950 
81326960 
81326970 
81326980 
81326990 
81327000 
81327010 
8132 7020 
81327030 
8132 7040 
81327050 
8132 7060 
813270 70 
81327080 
81327090 
81327100 
81327110 
81327120 
81327130 
81327140 
81327150 
81327160 
81327170 
81327180 
81327190 
81327200 
81327210 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 
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1800-28*1 TWO CHANNEL SWITCH FUNCTION TEST 



***#********#** 



************************************ 



DATE 
EC NO. 



*************************************************** 



1400 







1400 





42EE 


14D1 





4460 0131 


1403 


1 


1400 


1404 


1 


0814 


14D5 


1 


06F7 


14D6 


1 


080C 


1407 





C2AE 


1408 





EA78 


1409 





EA04 


140A 





D22A 


140B 





EAAC 


14DC 





022E 


1400 





0228 


140E 





D22C 


140F 





C2S0 


14E0 





EA78 


14E1 





1808 


14E2 





1008 


14E3 





829B 


14B4 





023A 


14ES 





8298 


14E6 





C230 


14E7 





8297 


14E8 





0232 


14E9 





8297 


14EA 





0234 


14EB 





8297 


14EC 





0236 


14E0 





8297 


14EE 





0238 


14EF 





0277 


14F0 


1 


4C80 0864 



GTDVE EQU 



BSI 


2 


STMLS-TB 


BSI 


I 


REQDV 


DC 




GTDV1 


DC 




TSCED 


DC 




TSCAC 


DC 




TERM 


LD 


2 


H0400-T6 


OR 


2 


TSCAC-TB 


OR 


2 


DVADR-TB 


STO 


2 


HI0XX+1-T8 


OR 


2 


H0100-TB 


STO 


2 


S10XX+1-TB 



GET OEVICE ROUTINE 



BUSY RETURN 

SEL CHN EOIT 

SEL CHN AREA CODE 

TERMINATOR 

BUILD HALT I/O I0CC 
OR IN AREA CODE 
*** 

*** 

BUILD START I/O IOCC 

• ** 



STO 2 TIOXX+1-TB BUILD TEST I/O IOCC 



SET FOR SENSE IOCC 



STO 


2 


SENSE+1-TB 


LD 


2 


H0700-TB 


OR 


2 


TSCAC-TB 


SRA 




8 


SLA 




8 


A 


2 


K6-TB 


STO 


2 


SCSNS+1-TB 


A 


2 


K2-TB 


STO 


2 


SCSNO+1-TB 


A 


2 


Kl-TB 


STO 


2 


SCSN1+1-TB 


A 


2 


Kl-TB 


STO 


2 


SCSN2+1-TB 


A 


2 


Kl-TB 


STO 


2 


SCSN3+1-TB 


A 


2 


Kl-TB 


STO 


2 


SCSN4+1-TB 


STO 


2 


SCISW-TB 



BUILO SENSE CHANNEL 
» STATUS I0COS 



SET INT SW 



14F2 4480 0132 

14F4 I 0814 

14FS 1 080C 

14F6 1010 

14F7 D277 

14F8 1 4C80 0861 



BSC I GETDV RETURN 
******** **********<^»******** ****** **************** 8132 76S0 
m * 81327660 

j************************************************** 8132 7670 
*************************************************** 8132 7680 
t * 81327690 

*************************************************** 81327700 
± 81327710 

81327720 



PART NO. 2279456 
PAGE 21 



81327220 

8132 7230 

8132 7240 

8132 72 50 

81327260 

8132 7270 

81327280 

81327290 

81327300 

81327310 

81327320 

81327330 

8132 7340 

8132 7350 

81327360 

8132 7370 

81327380 

81327390 

81327400 

81327410 

81327420 

81327430 

81327440 

81327450 

81327460 

81327470 

81327480 

81327490 

81327500 

81327510 

81327520 

81327530 

81327540 

8132 7550 

8132 7560 

8132 7570 

8132 7580 

8132 7590 

81327600 

81327610 

81327620 

81327630 

81327640 



FRDVE 



BSI 

DC 

DC 

SLA 
STO 
BSC 



I 



RELDV 
TSCED 
TERM 

16 

SCISW-TB 

FREDV 



RELEASE DEVICE 
SEL CHN EDIT 
TERMINATOR . 



RESET- 
INTERRUPT SW 
RETURN 



8132 7730 
61327740 
8132 77S0 
81327760 
81327770 
81327780 



,************************************************ 81327790 



*************************************************** 
* 

* CALL *************** 

* * BS,1 2 SIO-TB * 

* * DC CCWADR » 

* ****************** 
* 
*************************************************** 

* * 



14N0V69 
431319 



30JAN70 

431319A 



81327800 
81327810 
81327820 
81327830 
81327840 
81327850 
81327860 
81327870 
81327880 
81327890 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 
1800-2841 TWO CHANNEL SWITCH FUNCTION TEST 



*************************************************** 



DATE 
EC NO. 



14FA 







SIONT 


eou 




* 


ENTRY POINT 


14FA 





6920 




STX 


1 


SI0X1+1 


SAVE REGS 


14FB 





6B21 




STX 


3 


SI0X1+3 


*** 


14FC 


1 


6780 086A 




LDX 


13 


SIO 


GET CALLING ADDRESS 


14FE 


1 


7401 086A 




MDX 


L 


SI0.1 


BUMP FOR RETURN 


1500 





1000 




NOP 








1501 





C300 




LD 


3 





GET CCW ADDRESS 


1502 





D22D 




STO 


2 


SIOXX-TB 


SET FOR XIO 


1503 





D2C5 




STO 


2 


CAWSV-TB 


SAVE FOR POSSIBLE P 


1504 





10A0 


* 

SI 001 


SLT 




32 


CLEAR CSW 


1505 





DA3B 




STD 


2 


SCSXO-TB 


** 


1506 





DA3D 




STD 


2 


SCSX0+2-TB 


e* 


1507 





D275 


# 


STO 


2 


WIOSW-TB 


CLEAR WAIT SW 


1508 





0A2D 


XIO 


2 


SIOXX-TB 


00 THE START I/O 


1509 





0A2F 


* 


XIO 


2 


SCSNO-TB 


GET CHANNEL STATUS 


150A 





D22F 




STO 


2 


SCSNO-TB 


SAVE FOR LATER EXAM 


150B 





7006 




MDX 




SI 003 


GO TEST FOR ERRORS 








* 


LOOP 


ON 


TIO UNTIL 


DEVICE END 


150C 





42FD 


SI 002 


BSI 


2 


TIO-TB 


GO DO A TIO 



15 0D C244 

150E 100B 

150F 1 4C28 150C 

1511 70F2 

1512 C22F 

1513 1007 

1514 1 4C10 1529 



LD 2 SCSX8+1-TB GET UNIT STATUS 

SLA UN8ZY TEST FOR BUSY 

BN SI002 BR IF STILL BUSY 

MDX SIO01 GO DO THE SIO AGAIN 



* 

SI 003 



1516 





C2D6 




1517 


1 


4C28 


1S1A 


1519 





40 4F 




151A 





6500 


0000 


151C 





6700 


0000 


151E 





4206 




1S1F 


1 


1524 




1520 





1010 




1521 





D2D6 




1522 


1 


4C80 


086A 


1524 


1 


74FF 


086A 


1526 





1000 




1527 


1 


4C00 


14FA 



LD 2 SCSNO-TB 

SLA SCABZ 

BNN SI005 

CMD ACCEPTED 

LD 2 SIOSW-TB 

BN SIOX1 



BSI 



WAITT 



GET CHAN STATUS 
TEST FOR BUSY 
BRANCH IF NOT NEG 

GET SIO SW 
BR IF SET 

GO WAIT FOR OE OR UNIT CHK 



ILSIO 



1529 C2D6 
152A 1001 
152B 1 4C28 1S1A 



1520 
152E 



CAC9 
DA61 



152F 1 4400 
1531 D265 





1 



1532 
1533 
1534 
1535 



1090 
D268 
C22F 
4C10 153F 



1537 C299 

1538 42F1 

1539 1090 
153A D25B 
1S3B 42 OF 



LDX 


LI 


*-* 


RESTORE REGS 


LDX 


L3 


*-* 


*** 


BSI 


2 


TLPST-TB 


LOOP SIO 


DC 




ILSIO 


LOOP ADDR 


SLA 




16 


RESET SIO SW 


STO 


2 


SIOSW-TB 


* 


BSC 


I 


SIO 


THEN EXIT 


MDX 


L 


SIO.-l 


RE-ADJ EP FOR PARAM 


NOP 







64K SAFETY 


B 


L 


SIONT 


LOOP THRU SIO AGAIN 


LD 


2 


SIOSW-TB 


GET CNTRL SW 


SLA 




1 


TEST FOR EXIT EVEN II 


BN 




SIOX1 


BR IF SET 


LDD 


2 


TYP2-TB 


•SIO ' 


STD 


2 


STSER+6-TB SET IN MSG 


BSI 


L 


TCVSR 


GET SECT/RTN NUMBERS 


STO 


2 


STSER+10- 


TB 


SLT 




16 




STO 


2 


STSER+13-TB SET IN MSG 


LD 


2 


SCSNO-TB 


GET CHAN STATUS 


BNN 




SIO06 


BR IF NOT OPER IS NO 


NOT 


OPERATIONAL 




LD 


2 


K3-TB 


GET MSG NUMBER 


BSI 


2 


TCVBE-TB 


CONVERT TO PRNT CODE 


SLT 




16 


SAVE ONLY 


STO 


2 


STSER-TB 


SET IN MSG 


BSI 


2 


EROUT-TB 


PRINT ERROR MSG 



PART NO, 22794S6 
PAGE 21A 



81327900 

81327910 

8132 7920 

81327930 

81327940 

81327950 

81327960 

81327970 

81327980 

81327990 

81328000 

81328010 

81328020 

81328030 

81328040 

81328050 

8132 8060 

81328070 

8132 8080 

8132 8090 

81328100 

81328110 

81328120 

81328130 

81328140 

81328150 

81328160 

81328170 

81328180 

81328190 

81328200 

81328210 

81328220 

813282 30 

81328240 

81328250 

81328260 

81328270 

8132 8280 

81328290 

81328300 

81328310 

81328320 

81328330 

8132 8340 

813283S0 

8132 8360 

8132 8370 

8132 8380 

81328390 

8132 8400 

8132 8410 

81328420 

81328430 

8132 844 

81328450 

81328460 

813284 70 

81328480 

81328490 

81328500 

81328510 

81328520 

81328530 

81328540 

81328550 

8132 8S60 

81328570 



14N0V69 
431319 



30JAN70 
431319A 



PROG ID 
PAGE 



OBI 3-0 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 
1800-2841 TWO CHANNEL SWITCH FUNCTION TEST 



PART NO. 2279456 
PAGE 22 



DATE 

EC NO. 



1S3C 





108 






DC 




/0108 


TAGS AND OPTIONS 


01328580 


1530 


1 


oeuA 






DC 




STSER 


MSG ADDRESS 


81326590 


153E 





7024 




* 


MDX 




SIO09 


LOOP 


81320600 
81320610 


153F 





1007 




SI 006 


SUA 




SCAB2 


TEST FOR ADAPTER BUSY 


81328620 


1540 


1 


4C10 


154A 




8NN 




SI007 


BR IF NOT 


81328630 


1542 





C298 






L0 


2 


K2-TB 


SET MSG NUMBER 


81320640 


1543 





42F1 




\ 


BSI 


2 


TCVBE-TB 


CONVERT 


8132 8650 


1S44 





1090 






SLT 




16 


Q ONLY 


81328660 


1545 





D25B 






STO 


2 


STSER-TB 


SET IN MSG 


81328670 


1546 





42 DF 






BSI 


2 


EROUT-TB 


CALL ERROR PRINT RTN 


81328680 


1547 





010C 






DC 




/010C 


MESSAGE TAGS AND OPTIONS 


81328690 


1548 


1 


OS DA 






DC 




STSER 


MSG ADDRESS 


81328700 


1549 





7019 




* 


MDX 




SI009 


* 


81328710 
81328720 


154A 





C22F 




SI007 


LD 


2 


SCSN0-TB 


GET CHAN STATUS 


81328730 


154B 





1001 






SLA 




SCUSP 


UNIT STATUS PENDING 


81328740 


154C 


1 


4C10 


1516 




BNN 




SI004 


BR IF NOT SET 


8132 8750 


154E 





4»E8 






BSI 


2 


GETSN-TB 


ELSE GET SENSE INFO 


81328760 


154F 





CA23 






LOO 


2 


SNWOS-TB 


GET SENSE WORDS 


01328770 


1550 





109F 






SLT 




FSKIN 


TEST FOR SEEK INCOMPLETE 


81328780 


1551 


l 


4C10 


155A 




BNN 




S1008 


BR IF NOT SET 


81328790 


1553 


l 


6780 


08AC 




L0X 


13 


SIOXX 


GET CCW ADDRESS 


81328800 


1555 





C301 


1 




LD 


3 


1 


GET FLAGS AND OP CODE 


81328810 


1666 





F2A7 






E0R 


2 


H0013-TB 


TEST FOR RECALIBRATE 


81328820 


1557 





1006 






SLA 




8 




81328830 


1558 


1 


4C18 


1504 


* 


BZ 




SI001 


RETRY IF SO 


81328840 
81328850 


15S> 





C2A6 




SI 008 


LD 


2 


H0011-TB 


SET ERR NUMBER 


81328860 


15SB 





42F1 






BSI 


2 


TCVBE-TB 


CONVERT 


8132 8870 


155C 





1090 






SLT 




16 


Q ONLY 


81328880 


1550 





025B 






STO 


2 


STSER-TB 


SET IN MSG 


81328890 


155E 





CAC9 






LD0 


2 


TYP2-TB 


GET 'SI0' 


81328900 


155F 





DA61 






STO 


2 


STSER+6-TB 


PUT IN MESSAGE 


81328910 


1560 





420F 






BSI 


2 


EROUT-TB 


CALL MSG RTN , 


81328920 


1561 





010F 






DC 




/010F 


TAGS AND OPTIONS 


8132 8930 


1562 


1 


08DA 




* 


DC 




STSER 


MSG ADDRESS , 


81328940 
8132 8950 


1563 





C283 




SI 009 


LD 


2 


TSW0-TB 


GET SW FNC 


81328960 


1564 





100B 






SLA 




0RTRV 


TEST FOR RETRY SIO 


81328970 


1565 


1 


4C28 


1S0C 


* 


BN 




SI 002 


BR IF YES ,, 


81328980 
81328990 


1567 





42F7 






BSI 


2 


THALT-T8 


GO WAIT FOR OPERATOR 


81329000 


1568 





70A3 






MDX 




SI002 


LOOP 


81329010 










ft************************************************** 


81329020 










» 








* 


81329030 










*************************************************** 


81329040 










* 










81329050 










* 


WAIT 


FOR DEVICE END FROM START 1/0 


81329060 










* 










81329070 


1569 





0000 




WAITT 


DC 




*-* 




81329080 


156A 





C28D 






LD 


2 


TERM-TB 


GET COUNTER FOR LOOP 


81329090 


1568 





D2BF 




* 


STO 


2 


CNT0N-T8 


SET FOR LOOP,; 


81329100 
81329110 


156C 





42FD 




WAITl 

* 


BSI 


2 


TIO-TB 


GO 00 A TEST, 1/0 


81329120 
81329130 


1560 





C244 






LD 


2 


SCSX8+I-TB 


GET UNIT STATUS 


81329140 


156E 





100B 






SLA 




UNBZY 


TEST FOR UNIT BUSY 


81329150 


156F 


1 


4C28 


1575 




BN 




WAIT2 


BR TO WAIT If ON 


81329160 


1571 





1010 






SLA 




16 


ELSE CLEAR TlO SW 


81329170 


1572 





02DA 






STO 


2 


TIOSW-TB 


* 


81329180 


1573 


1 


4C80 


1569 


« 


8SC 


I 


WAITT 


EXIT IF NOT BUSY 


81329190 
81329200 


157S 





42EE 




WAIT2 


BSI 


2 


STMLS-TB 


GO TO MONITOR 


81329210 


1S76 


1 


74FF 


083E 




M0X 


L 


CNTDN.-l 


COUNT TIME 


81329220 


1578 





70F3 






M0X 




WAITl 


LOOP 


81329230 


1579 


1 


4CS0 


157B 




asc 


I 


WTADR 


GO TO TIMEOUT ADDRESS 


81329240 


1578 





0000 




WTADR 


DC 




»-» 


TIMEOUT ADDRESS 


81329250 



14N0V69 
431319 



30JAN70 
431319A 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1600 SYSTEM 
1800-2041 TWO CHANNEL SWITCH FUNCTION TEST 



DATE 
EC NO. 



1S7C 

157C 1010 

157D 0276 

157E D231 

157F 0A2F 

1580 1007 

1581 1 4C10 1594 
1583 0A39 



1584 





42EE 


1585 


1 


7432 08B0 


1587 





70F7 


1588 





0A31 


1589 





D247 


158A 





0A35 


158B 





D248 


156C 





0A37 


158D 





D249 


158E 





0A39 


158F 





D24A 


1590 





42DF 


1591 





110E 


1592 


1 


15A8 


1593 





70E8 


1594 





0A27 



1595 1 6C00 0859 

1597 0A39 

1598 1 4400 0988 
159A 7006 
159B C244 
159C 100A 
159D 1 4C28 157C 

159F 1 4C80 087C 

15A1 42DF 

15A2 HOE 

15 A3 1 15B4 

15A4 0A29 

15A5 4200 

15A6 1 15CS 

15A7 70D4 

15A8 00 11 

15B3 FFFF 

15B4 0016 

15C4 FFFF 

15C5 0015 



« * 



* * 

TI0NT E0U * ENTRY FOR XFER VECTOR 

SLA 16 CLEAR- 

STO 2 WATSW-TB * 

STO 2 SCSN1-TB * LOOP COUNTER 

* WAIT FOR ADAPTER NOT BUSY 

TIO01 XIO 2 SCSNO-TB GET CHAN. STATUS WORD 

TEST FOR ADAPTER BUSY 
BR IF NOT 
ALLOW POLLING 





SLA 




SCABZ 




BNN 




TI002 




XIO 


2 


SCSN5-TB 


* 










BSI 


2 


STMLS-TB 




MDX 


L 


SCSN1 .50 




MDX 




TIO01 


* 










XIO 


2 


SCSN1-TB 




STO 


2 


SCSXC-TB 




XIO 


2 


SCSN3-T8 




STO 


2 


SCSXC+l-TB 




XIO 


2 


SCSN4-TB 




STO 


2 


SCSXC+2-TB 




XIO 


2 


SCSN5-TB 




STO 


2 


SCSXC+3-TB 




BSI 


2 


EROUT-TB 




DC 




/HOE 




DC 




TI0M1 


* 








* 
TI002 


MDX 




TIONT 


XIO 


2 


TIOXX-TB 




STX 


L 


TIOSW 




XIO 


2 


SCSNS-TB 


* 










BSI 


L 


TINTW 




MDX 




TI003 




LO 


2 


SCSX8+1-TB 




SLA 




UNCUE 




BN 




TIONT 



GO TO MONITOR 
COUNT LOOPS 
LOOP UNTIL NOT BUSY 

GET CHANNEL STATUS 

* AND SAVE FOR ERROR 

* MESSAGE 



BSC I TIO 



TAGS AND OPTIONS 
ERROR MSG AOORESS 

LOOP TO TRY AGAIN 

EXECUTE TEST I/O 

SET TIO SW 
RELIEVE POLL 

WAIT FOR INTERRUPT 
BR IF DID NOT OCCUR 
GET UNIT STATUS 
TEST FOR CNTL UNIT END 
RETRY IF YES 

EXIT 



TIO03 BSI 2 EROUT-TB 

DC /HOE TAGS AND OPTIONS 

DC TI0M2 ERROR MSG ADDRESS 

* ISSUE HALT I/O TO CLEAR CHANNEL 

XIO 2 HIOXX-TB 



BSI 
DC 



TI0M1 PRNT 
DC 

* 

TI0M2 PRNT 
DC 

TIOMS PRNT 



2 TLGMS-TB 
TIOMS 



. 02 ADAPTER HUNG BUSY. 
/FFFF 



. 06 CHANNEL HUNG AFTER TEST I/O. 

/FFFF 

. A HALT I/O HAS BEEN ISSUED TO. 



14N0V69 
431319 



30JAN70 
431319A 



PART NO. 
PAGE 



81329260 
81329270 
81329280 
81329290 
81329300 
81329310 
81329320 
81329330 
81329340 
81329350 
81329360 
81329370 
81329380 
81329390 
81329400 
81329410 
81329420 
81329430 
81329440 
81329450 
81329460 
81329470 
81329480 
813294 90 
81329500 
81329510 
81329520 
81329530 
81329540 
81329550 
81329560 
81329S70 
81329580 
81329590 
81329600 
81329610 
81329620 
81329630 
61329640 
81329650 
81329660 
81329670 
81329680 
81329690 
81329700 
81329710 
81329720 
81329730 
81329740 
81329750 
81329760 
81329770 
81329780 
81329790 
81329800 
81329810 
81329820 
81329830 
81329840 
81329850 
81329860 
81329870 
81329880 
81329890 
81329900 
81329910 
81329920 
81329930 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 



1800-2841 TWO CHANNEL SWITCH FUNCTION TEST 



DATE 
EC NO* 



1504 FF00 

1505 0017 
15E6 FFFF 



DC 

PRNT 

DC 



/FF00 

•TRY TO RESET THE CHANNEL CONDITION. 



15E7 





6916 




15E8 





6B17 




15E9 





CA47 




1SEA 





DA4B 




1SE8 





CA49 




15EC 





DA4D 




15ED 





0A2B 




15EE 





0A2F 




15EF 





D22F 




15F0 





■1007 




15F1 


1 


4C10 


1607 


15F3 





0A2F 




15F4 





1007 




I5FS 


1 


4C28 


15F3 



/FFFF 

*************************************************** 

* * 
*************************************************** 

* 
*************************************************** 

* * 
*************************************************** 
* 

* CALL **************** 
« * BSI L GETSN * 

* ******************* 
* 
*************************************************** 

* * 
*************************************************** 
GTSNS STX 1 GTSNX+1 SAVE REGS 

3 GTSNX+3 *** 

2 SCSXC-TB SAVE SNS CHAN STATUS 

2 SCSVS-TB ** 

2 SCSXC+2-TB ** 

2 SCSVS+2-TB 

2 SENSE-TB SENSE I/O 

2 SCSN0-TB GET CHAN STATUS 

2 SCSN0-TB SAVE 
SCABZ 

GTSN2 

SI0 ACCEPTE0- WAIT FOR NOT BUSY 

GTSN1 XI0 2 SCSN0-TB GET CHAN STATUS 

SLA SCABZ TEST FOR BUSY 

8N GTSN1 BR IF SO 



STX 
LDD 
STD 
LDD 
STD 
GTSN0 XIO 
XI0 
STO 
SLA 
BNN 



15F7 0A39 
1SF8 1000 



XIO 
NOP 



2 SCSN5-TB 



ALLOW POLLING 

TO ALLOW INTERRUPT 



15F9 
1SFA 
15FB 
1SFD 
1SFF 
1601 
1602 
1603 
1604 
1605 

1607 
1609 
160A 
160B 
160C 
160D 
160E 
160F 
1610 

1612 
1613 
1614 
1615 
1616 
1617 
1618 



C248 
100E 

4C28 1607 
6500 0000 
6700 0000 
CA4B 
DA47 
CA4D 
DA49 
4C80 0867 



LD 
SLA 
BN 
GTSNX LDX LI *-* 
LDX L3 *-* 



2 SCSXC+1-TB GET UNIT STATUS 
UNCHK 

GTSN2 „ 

RESTORE REGS 
*** 



LDD 3 SCSVS-TB RESTORE SNS CHAN STATUS 

STD 2 SCSXC-TB ** 

LDD 2 SCSVS+2-TB ** 

STD 2 SCSXC+2-TB ** 

BSC 1 ' GETSN EXIT TO CALLER 



4400 
0265 
1090 
D268 
CACB 
0A61 
C247 
1001 



197C 



1 4C10 1619 



GTSN2 BSI 
STO 
SLT 

STO 

L0D 

STD 

LD 

SLA 

BNN 



C2B3 
42FI 

D25B 
420F 
114E 
08DA 
70D4 



1619 C22F 



L TCVSR GET SECTION / RTN NUMBERS 
2 STSER+10-TB STORE IN MSG 

16 TO A 

2 STSER+13-TB 
2 TYP3-TB 'ENS' 
2 STSER+6-TB SET IN MSG 
2 SCSXC-TB GET CHAN STATSUS WORD 

SCUSP TEST FOR UNIT STAT.PNOING 

GTSN3 BR IF NOT 

* UNIT STATUS PENDING 

LD 2 H2100-TB SET MSG NUMBER 
BSI 2 TCVBE-TB CONVERT TO ,EBC 
STO .Z STSER-TB SET IN MSG , 
BSI 2 EROUT-TB PRINT ER0R JllSG 
DC /114E TAGS AND OPTIONS 
DC STSER MESSAGE 
MDX GTSN0 GO TRY AGAIN 

* NOT OPERATIONAL ,, 
GTSN3 LD 2 SCSN0-TB GET CHAN STATUS 
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81329940 

81329950 

81329960 

81329970 

81329980 

81329990 

81330000 

813300 10 

81330020 

81330030 

81330040 

81330050 

81330060 

81330070 

81330080 

81330090 

81330100 

81330110 

81330120 

81330130 

81330140 

81330150 

81330160 

81330170 

81330180 

81330190 

81330200 

81330210 

81330220 

81330230 

81330240 

81330250 

81330260 

81330270 

81330280 

81330290 

81330300 

81330310 

81330 320 

81330330 

81330340 

81330350 

81330360 

81330370 

81330380 

81330390 

81330400 

81330410 

81330420 

81330 430 

81330440 

81330450 

81330460 

81330470 

81330480 

81330490 

81330S00 

81330510 

81330 520 

81330530 

81330S40 

81330550 

81330560 

81330570 

81330580 

81330590 

81330600 

81330610 



14N0V69 
431319 



30JAN70 
431319A 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 
1800-284 1 TWO CHANNEL SWITCH FUNCTION TEST 



PART NO, 2279456 
PAGE 23A 



DATE 
EC NO. 



161A 





1007 


161B 


1 


4C10 1625 


1610 





C2AC 


161E 





82B3 


161F 





42F1 


1620 





D2S8 


1621 





42 DF 


1622 





114C 


1623 


1 


08DA 


1624 





70C8 


1625 





C2AD 


1626 





7 0F7 





SLA 




SCABZ 


TEST FOR ADAPTER BUSY 


81330620 




BNN 




GTSNS 


BR IF NOT 


81330630 


# 


LD 


2 


H01 00-TB 


SET MSG NUMBER TO 22 


81330640 
81330650 


GTSN4 


A 


2 


H21 00-TB 


CREATE PROPER MSG NUMBER 


81330660 




BSI 


2 


TCVBE-TB 


CONVERT 


81330670 




STO 


2 


STSER-TB 


SET IN MSG 


81330680 




BSI 


2 


EROUT-TB 


CALL ERROR MSG RTN 


81330690 




DC 




/114C 


TAGS AND OPTIONS 


81330700 




DC 




STSER 


MSG ADDRESS 


61330710 


* 


MDX 




GTSN0 


GO TRY AGAIN 


81330720 
81330730 


GTSN5 


LD 


2 


H0200-TB 


SET MSG NUMBER TO 23 


81330740 




MDX 




GTSN4 


GO TO COMMON RTN 


81330 750 



*************************************************** 81330 760 

„, * 81330770 

*************************************************** 81330780 

* HALT ROUTINE 81330790 

* SETS BIT 15 IN TSW0 ON AND LOOPS 81330800 

* THRU MONITOR UNTIL BIT IS CLEARED. 81330810 
„ 81330820 
******** t**"** *************************** *********** 81330 830 
„ * 81330840 
*************************************************** 81330 850 

GET OPTION SWS 

TEST FOR HALT ON ERROR 

BR IF NO 



1627 







THLTE 


ECU 




* 


1627 





C283 




LD 


2 


TSWO-TB 


1628 





10OE 




SLA 




OHALT 


1629 


1 


4C10 163A 


* 
THLTG 


BNN 




THLTR 


162B 





C2F7 


LD 


2 


THALT-TB 


162C 





42F1 




BSI 


2 


TCVBE-TB 


162D 





D020 




STO 




THLT2 


162E 





1090 




SLT 




16 


162F 





D01F 




STO 




THLT2+1 


1630 





4200 




BSI 


2 


TLGMS-TB 


1631 


1 


163C 


* 


DC 




THLTM 


1632 





C297 


LD 


2 


Kl-TB 


1633 





EA83 




OR 


2 


TSWO-TB 


1634 





0283 




STO 


2 


TSWO-TB 



1635 42EE 



1636 C283 

1637 1 4C04 1635 



1639 42EE 

163A 1 4C80 0876 



GET CALLING ADDRESS 

CONVERT TO PRNT CODE 

SET IN MSG 

TO A 

SET IN MSG 

GO PRINT MSG 

MESSAGE ADDRESS 

SET BIT 15 



LOOP THRU MONITOR UNTIL READY 

GO TO MONITRR 



THLTL BSI 2 STMLS-TB 
* RETURN HERE 



163C 




0018 


164E 




0002 


1650 





OOFF 


1651 




0014 


165F 





OOFF 


1660 




0011 


166B 





OOFF 


166C 




0012 


1678 





OOFF 


1679 




0012 


168S 





FFFF 



14N0V69 
431319 



30JAN70 
431319A 



81330860 
81330 870 
81330880 
81330890 
81330900 
81330910 
81330920 
81330930 
81330940 
81330950 
81330960 
81330970 
81330980 
81330990 
81331000 
81331010 
81331020 
81331030 
81331040 
81331050 
81331060 
81331070 
81331080 
81331090 
81331100 
81331110 
81331120 
***HALT — 2 CH SW DIAGNOSTIC ADRS • 81331130 

81331140 
81331150 
81331160 
81331170 
81331180 
81331190 
81331200 
81331210 
81331220 
81331230 
81331240 

*************************************************** 81331250 
, * 81331260 

*************************************************** 81331270 
, 81331280 

* SAVE INDEX REGISTERS AND GO TO MONITOR 81331290 



PROG 10 
PAGE 



LD 
BOD 

* 

BSI 

THLTR BSC 

* 

THLTM PRNT 

THLT2 PRNT 
DC 

PRNT 
DC 

PRNT 
DC 

PRNT 
DC 

PRNT 
DC 



1 



TSWO-TB 
THLTL 



STMLS-TB 
THALT 



GET SWITCH WORO 
BR IF STILL ON 



GO TO MONITOR 
RETURN TO CALLER 



/OOFF 

. TO CLEAR HALT SET SWITCHES-. 

/OOFF 

. S/P OOPP PPPP. P=PID. 

/OOFF 

. DES XXXX XXXX XXXX XXXO. 

/OOFF 

. PRESS CONSOLE INTERUPT. 

/FFFF 



0813-0 

23A 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 
1800-2841 TWO CHANNEL SWITCH FUNCTION TEST 



DATE 
EC NO. 



*************************************************** 



1686 









1686 





C2EE 




1687 





002E 




1688 





692E 




1689 





6B2E 




168A 


1 


65 80 


16B9 



*************************************************** 

STMLE EQU * 

GET CALLING AOORS 

PUT IN TEMP SAVE AREA 

PUT REGS IN SAVE AREA 

** 

GET O LOCATION 



LD 2 STMLS-T8 

STO STMSA 

STX 1 STMSA+1 

STX 3 STMSA+2 

LDX II STMPT 



168C C029 

1680 1 D500 16BB 

168F C027 

1690 1 0500 168C 

1692 C025 

1693 1 0500 16B0 

1695 7103 

1696 6922 

1697 C022 

1698 D28C 

1699 4C80 0120 



1698 1 6600 087F 
1690 CO ID 
169E 02EE 

169F C0 1C 

16A0 0016 

16A1 C01B 

16A2 0015 

16A3 61F7 

16A4 1 CS00 16C7 

16A6 1 DE00 16C4 

16A8 7101 

16A9 70FA 

16AA 1 74FD 16B9 
16AC 7006 

16AD 1 6580 16B7 
16AF 1 6730 1669 
16B1 1 4C80 0860 

16B3 C006 
16B4 023C 
1685 70F7 



LD 




STMSA 


GET I REG 


STO 


LI 


STMST 


PUT IN 


LD 




STMSA+1 


GET XR1 


STO 


LI 


STMST+1 


PUT IN 


LD 




STMSA+2 


GET XR3 


STO 


LI 


STMST+2 


PUT IN 


MDX 


1 


+3 


BUMP POINTER 


STX 


1 


STMPT 


SAVE 



LD STMRT 
STO 2 MLSC2-T8 
BSC I START 



SET UP MONITOR RETURN 

* 

GO VISIT MONITOR 



RETURN FROM MONITOR HERE 



STMLX LDX L2 TB 



LD 


STMST 


STO 


2 STMLS-T8 


LD 


STMST+1 


STO 


STMSA+1 


LD 


STMST+2 


STO 


STMSA+2 



LDX 1 -9 

* 

STMLL LD LI STMST+12 

STO LI STMST+9 

MDX I +1 
MDX STMLL 

* 

MDX L STMPT i-3 
MDX STMPS 



SET UP TABLE PNTR 

GET ENTRY L0C 

PUT IN RETURN 

GET XR1 

PUT IN TEMP SAVE 

GET XR2 

PUT IN TEMP SAVE 



MOVE ALL SAVED 

» PARAMETERS UP 3 

* PLACES IN 

* 

DECREMENT POINTER 
IF NOT 0. CONTINUE 

ELSE RESTORE PARAMETERS 



STMSE LDX II STMSA+1 

L0X 13 STMSA+2 * 

BSC I STMLS RETURN 

* GET HERE IF ENTRYS NEED SERVICING 
STMPS LD STMRT SET UP RETURN TO 

STO 2 MLSC2-TB * STMLS ROUTINE 

MDX STMSE EXIT 

* TEMPORARY SAVE AREA 



POINTER 
RE-ENTRY LOCATION 



1666 





0000 


STMSA 


DC 


*-» 


1687 





0000 




DC 


*-* 


1688 





0000 


* 
STMPT 


DC 


*-* 


16B9 





0000 


DC 





16BA 


1 


169B 


STMRT 


DC 


STMLX 



QUEUED SAVE AREA 



168B 0000 


STMST 0C 


»-* 


I 


1 


16BC 0000 


DC 


»-* 


XR1 


1 


16BD 0000 


DC 


*-» 


XR3 


1 



14N0V69 
431319 



30JAN70 

431319A 
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81331300 
81331310 
81331 320 
81331330 
81331340 
81331350 
81331360 
81331370 
81331380 
81331390 
81331400 
81331410 
81331420 
81331430 
81331440 
81331450 
81331460 
81331470 
81331480 
81331490 
81331500 
81331510 
81331520 
81331530 
81331540 
81331550 
81331560 
81331570 
81331580 
81331590 
81331600 
81331610 
81331620 
81331630 
81331640 
81331650 
81331660 
81331670 
81331680 
81331690 
81331700 
81331710 
81331720 
81331730 
81331740 
81331750 
81331760 
81331770 
81331780 
81331790 
81331800 
81331810 
81331820 
81331830 
81331840 
81331850 
81331860 
81331870 
81331880 
81331890 
81331900 
81331910 
81331920 
81331930 
81331940 
81331950 
81331960 
81331970 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 
1800-2841 TWO CHANNEL SWITCH FUNCTION TEST 



16BE 0000 

16BF 0000 

16C0 0000 

16C1 0000 

16C2 0000 

16C3 0000 

16C4 0000 

16C5 0000 

16C6 0000 



DATE 
EC NO. 



DC 


*-* 


I 


2 


DC 


*-* 


XR1 


2 


DC 


*-* 


XR3 


2 


DC 


*-* 






DC 


*-* 






DC 


*-* 






DC 


*-* 






DC 


*-* 






DC 


*-* 







0000 
000 1 
0002 
0003 
0006 
0007 
0009 
000A 
000B 
000C 
000D 
OOOE 
000F 



16C8 




0000 




16C8 




0006 




16CE 




003C 




170A 









170A 





C2D9 




170B 


1 


4C20 


1710 


170D 


1 


6D0O 


17DA 


170F 


1 


6F00 


17DC 


1711 


1 


C480 


085E 


1713 





100A 




1714 


1 


4C10 


171D 


1716 





C2DF 




1717 





D2D9 




1718 





42E8 




1719 





C2D9 




171A 





D2DF 




171B 





1010 




171C 





02 D9 




171D 


1 


6780 


085E 


17 IF 





C300 




1720 





1007 




1721 


1 


4C10 


1725 



*************************************************** 

* * 

******#**********************#***#***************#* 
* 

* CALL ************************** 

* * BSI 2 EROUT-TB * 

* * DC /0127 CNTRL TAGS * 

* * DC /ABCD ERR NUMBER * 

* * (SECT.RT.ER) * 

* ***************************** 
* 
*************************************************** 

* * 
*************************************************** 
* 

* EOUATES FOR ER0UT TAGS 
* 

CSW=SCSX0 
CSW=SCSX4 
CSW=SCSX8 
CSW=SCSXC 
EXIT TO ERAOR 
PRINT A BLANK LINE 
BYPASS HALT LOOP 
GET SENSE BYTES 
BYPASS LINE 1 
PRINT ERROR MSG 
PRINT CAW 

* CSW 

* SNS 
*************************************************** 

* * 

*************************************************** 

ERMSG BSS E 

PRNT . **ER-XXXX . 



0ECX0 


EQU 





0ECX4 


EQU 


1 


0ECX8 


EQU 


2 


0ECXC 


EQU 


3 


OEXIT 


EQU 


6 


OEPBL 


EQU 


7 


0EBYP 


EQU 


9 


OEGSN 


EQU 


10 


0EL1B 


ECU 


1 1 


0EERR 


EQU 


12 


0ECAW 


EQU 


13 


0ECSW 


EQU 


14 


0ESNS 


EQU 


15 



PRINT BSS E 60 

ERTNE EQU * 

LD 2 STKSW-TB 
BNZ ERTN2 

STX LI ERT17+1 

STX L3 ERT17+3 

LD I EROUT 



SLA 

BNN 

LD 

STO 

BSI 

LD 

STO 

SLA 

STO 



OEGSN 

ERTN2 
2 EROUT-TB 
2 STKSW-TB 
2 GETSN-TB 
2 STKSW-TB 
2 EROUT-TB 

16 
2 STKSW-TB 



ERTN2 LDX 13 EROUT 

LD 3 

SLA OEPBL 

BNN ERTN3 



PRINT BUFFER 

ENTRY POINT 

GET RE-ENTRY SWITCH 

BR IF SET 

SAVE REGS 

** 

GET FLAGS 

GET SENSE BYTES 

BR IF NO 
GET RETURN A0DRS 
SET SW 

GET SENSE BYTES 
GET SAVED ADDRESS 
SET FOR RETURN 
CLEAR SWITCH 



SET REG 

GET OPTIONS/FLAGS 
PRINT BLANK LINE FIRST 
BR IF NOT 



14N0V69 
431319 



30JAN70 

431319A 
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81331960 
81331990 
81332000 
81332010 
81332020 
81332030 
81332040 
81332050 
81332060 
81332070 
81332080 
81332090 
81332100 
813321,10 
61332120 
81332130 
81332140 
8 1332 ISO 
81332160 
81332170 
81332180 
81332190 
81332200 
81332210 
81332220 
81332230 
81332240 
81332250 
81332260 
81332270 
81332280 
81332290 
81332300 
81332310 
81332320 
81332330 
81332340 
813323S0 
81332360 
81332370 
81332380 
81332390 
81332400 
81332410 
81332420 
81332430 
81332440 
81332450 
81332460 
81332470 
81332480 
81332490 
81332500 
81332510 
81332520 
81332 530 
81332540 
81332550 
81332560 
81332570 
81332580 
81332590 
81332600 
81332610 
81332620 
81332630 
81332640 
81332650 
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jo 
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1 ° ' 


i 
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3 O 


i ° 


; o 












o 




o 


1° 


1 

1 


i 


! 


; o 
.i 


■! P 


I 


1 

! o 



DATE 
EC NO. 



1723 





4200 






BSI 


2 


TLGMS-T8 


PRINT BLANK LINE 


81332 660 


1724 


1 


oaoc 




* 


DC 




TERM 


/FFFF 


81332670 
81332680 


172S 





C3 




ERTN3 


LD 


3 





GET TAGS 


81332690 


1726 





100B 






SLA 




0EL18 


BYPASS LINE 1 PRINT 


81332 700 


1727 


1 


4C28 


1750 




BN 




ERT10 


BR IF YES 


81332710 


1729 





1C01 






SLA 




OEERR-06L1B ERROR MSG 


61332 720 


172A 


1 


4C10 


1730 


* 


BNN 




ERTN6 


BR IF NOT 


81332730 
81332 740 


172C 





6100 






LDX 


1 





SET COUNT TO ZERO 


81332750 


172D 





C301 






LD 


3 


1 


GET MSG ADDRESS 


81332 760 


172E 





DOO 1 






STO 




ERTN4+1 


SET FOR LOAD INSTRUCTION 


81332770 


172F 





csoo 


0000 


ERTN4 


LD 


LI 


*-* 


GET WORD TO MOVE 


81332760 


1731 





F28D 






EOR 


2 


TERM-TB 


IS IT END OF MSG 


61332790 


1732 


1 


4C18 


1739 




BZ 




ERTN5 


BR YES 


81332 800 


1734 





F230 






EOR 


2 


TERM-TB 


RESTORE DATA WORD 


81332810 


1735 


1 


0500 


16CB 




STO 


LI 


ERMSG+3 


STORE IN TABLE 


81332 820 


1737 





7101 






MOX 


1 


1 


COUNT 


81332830 


1738 





70F6 




* 


MDX 




ERTN4 


LOOP 


81332840 
81332650 


1739 


1 


7500 


16CB 


ERTN5 


MDX 


LI 


ERMSG+3 


POINT TO NEXT WORD 


81332 860 


173B 





1000 






NOP 








81332870 


173C 





7009 




* 


MOX 




ERTN7 




61332880 
81332890 


1730 





C301 




ERTN6 


LD 


3 


1 


GET MSG NUMBER 


81332900 


173E 





42F1 






BSI 


2 


TCVBE-TB 


CONVERT TO 43 COOE 


81332910 


173F 





D08B 






STO 




ERMSG+3 


STORE 


81332920 


1740 





1800 






XCH 






SWAP A-0 


81332930 


1741 





DCuA 






STO 




ERMSG+4 




81332940 


1742 





1010 






SLA 




16 


SET IN TWO BLANKS 


81332950 


1743 





0089 






STO 




ERMSG+5 


** 


81332960 


1744 


1 


65 00 


16CE 


* 


LDX 


LI 


PRINT 


SET POINTER 


61332970 
81332980 


1746 





C204 




ERTN7 


LD 


2 


OVADR-TB 


GET DEVICE ADDRESS 


81332990 


1747 





42F1 






BSI 


2 


TCVBE-TB 


CONVERT TO 43 CODE 


81333000 


1748 





1090 






SLT 




16 


LOW ORDER TWO BYTES ONLY 


81333010 


1749 





D26E 






STO 


2 


UNADR+3-TB 


STORE FOR PRINT 


81333020 


174A 





C2 0F 






LD 


2 


EROUT-TB 


GET CALLING AOORESS 


81333030 


1748 





9297 






S 


2 


Kl-TB 


POINT TO CALLING INSTRUCTN 


81333040 


174C 





42F1 






BSI 


2 


TCVBE-TB 


CONVERT TO HEX 


81333050 


1740 





0272 






STO 


2 


UNA0R+7-TB 




81333060 


174E 





1090 






SLT 




16 




81333070 


174F 





0273 






STO 


2 


UNA0R+8-TB 




81333080 


1750 





6904 






STX 


1 


ERTN8+3 


SAVE REG IN INSTRUCTION 


81333090 


17S1 





6100 




* 


LOX 


1 





SET COUNT 


81333100 
81333110 


17S2 


1 


C500 


08EA 


ERTN8 


LD 


LI 


UNA OR 


GET WORD TO MOVE 
STORE IN NEW LOC'N 


81333120 


1754 





0500 


0000 




STO 


LI 


*-* 


81333130 


1756 





F2SD 






eoR 


2 


TERM-TB 


TEST FOR END OF MSG 


81333140 


1757 


1 


4C18 


175S 




BZ 




ERTN9 


BR IF YES 


81333150 


1759 





7101 






MOX 


1 


1 


BUMP COUNT 


81333160 


175A 





70F7 




* 


MOX 




ERTN8 


LOOP 


81333170 
81333180 


175S 





4200 




ERTN9 


BSI 


2 


TLGMS-TB 


GO PRINT MSG 


81333190 


175C 


1 


16C8 






DC 




ERMSG 


AOORESS OF MESSAGE 


81333200 










* 


— CAW— 


AOORESS 


OF CCW CHAIN -, 


81333210 


1750 





C300 




ERT10 


LO 


3 





GET TAGS 


81333220 


175E 





1000 






SLA 




OECAW 


TEST FOR CAW.CSW.SNS 


81333230 


I75F 


1 


4C18 


1702 




BZ 




ERT15 


BR IF NONE 


81333240 


1761 


1 


65 00 


16CS 




LDX 


LI 


PRINT 


SET POINTER ,T0 AREA 


81333250 


1763 


1 


4C10 


176F 




BNN 




ERT11 


BR IF NO CAW 


813332 60 


176S 





10AO 






SLT 




32 




81333270 


1766 





0900 






STO 


1 







813332 80 


1767 





7102 






MOX 


1 


2 




81333290 


1768 





CACO 






LOO 


2 


PCAW-TB 


GET HEADER 


81333300 


1769 





0900 






STO 


1 





STORE IN AREA 


81333310 


176A 





C2C5 






LO 


2 


CAWSV-TB 


GET CCW ADDRESS FOR SIO 


81333320 


1768 





42F1 






BSI 


2 


TCVBE-TB 


CONVERT TO EpC 


81333330 



14N0V69 
431319 



30JAN70 
431319A 
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OATE 
EC NO. 



176C 





D902 




STO 


1 


2 




STORE IN AREA 




81333340 


176D 





7 104 




MDX 


1 


4 




bUMP POINTER 




81333350 


176E 





1000 




NOP 












81333360 








# 


— CSW — 


CHANNEL 


DSW WORDS 




81333370 


176F 





C300 


ERT11 


LD 


3 







GET TAGS 




81333380 


1 770 





100E 




SLA 




OECSW 




TEST FOR CSW TO BE PRINTED 


81333390 


1771 


1 


4C10 17A1 




BNN 




ERT12 




BR IF NOT 




81333400 


1 773 





C300 




LD 


3 







GET OPTION WORD 




81333410 


1774 


l 


6700 08BA 




LDX 


L3 


SCSXO 




POINT TO CSW SAVE 


AREA 


81333420 


1776 





180C 




SRA 




12 




SAVE BITS 0-3 




81333430 


1777 





100C 




SLA 




12 




**# 




81333440 


1778 





4830 




SKP 




z- 








81333450 


1779 





7304 




MOX 


3 


4 




BUMP TO NEXT SAVE 


AREA 


81333460 


177A 





1001 




SLA 




1 




TEST NEXT BIT 




61333470 


177B 





4830 




SKP 




z- 








81333480 


177C 





7304 




MDX 


3 


4 




BUMP TO NEXT SAVE 


AREA 


81333490 


1770 





1001 




SLA 




1 




TEST NEXT BIT 




81333500 


177E 





4830 




SKP 




Z- 








81333510 


177F 





7304 




MDX 


3 


4 




BUMP TO NEXT SAVE 


AREA 


81333520 


1780 





1001 




SLA 




1 




TEST NEXT BIT 




61333530 


1781 





4830 




SKP 




Z- 








81333540 


1782 





7304 




MDX 


3 


4 




BUMP TO NEXT SAVE 


AREA 


81333SS0 


1783 





CACF 




LDD 


2 


PCSW-TB 


GET 'CSW • 




81333560 


1764 





D902 




STO 


1 


2 




SET IN MSG 




81333570 


1785 





C300 




LD 


3 







GET CHANNEL STATUS 


WORD 


81333580 


1786 





42F1 




BSI 


2 


TCVBE- 


-TB 


CONVERT 




81333590 


1787 





D904 




STD 


1 


4 




STORE 




81333600 


1788 





C301 




LD 


3 


1 




GET UNIT STATUS WORD 


81333610 


1789 





42F1 




BSI 


2 


TCVBE- 


-TB 


CONVERT 




81333620 


178A 





0107 




STO 


1 


7 




STORE 




81333630 


178B 





1090 




SLT 




16 








81333640 


178C 





D108 




STO 


1 


8 




STORE 




813336S0 


170D 





C302 




LD 


3 


2 




GET CSW AOORESS WORD 


81333660 


178E 





42F1 




esi 


2 


TCVBE- 


■TB 


CONVERT 




61333670 


178F 





D90A 




STD 


1 


10 




STORE 




81333680 


1790 





C303 




LD 


3 


3 




GET BYTE COUNT 




81333690 


1791 





42F1 




BSI 


2 


TCVBE-TB 


CONVERT 




81333700 


1792 





D10D 




STO 


1 


13 




STORE 




81333710 


1793 





1090 




SLT 




16 




Q TO A 




81333720 


1794 





010E 




STO 


1 


14 




STORE 




81333730 


1795 





C203 




LD 


2 


SPACE-TB 


GET SPACES 




81333740 


1796 





D100 




STO 


1 







** 




81333750 


1797 





D101 




STO 


1 


1 




** 




81333760 


1798 





D106 




STO 


1 


6 




SET IN BETWEEN 




81333770 


1799 





D109 




STO 


1 


9 




SET IN BETWEEN 




81333780 


179A 





D10C 




STO 


1 


12 




SET IN BETWEEN 




81333790 


179B 





D10F 




STO 


1 


15 








81333800 


179C 





Dill 




STO 


1 


17 




CLEAR NEXT SLOT TOO 


81333810 


1790 





710F 




MDX 


1 


15 




BUMP POINTER 




81333820 


179E 





1000 




NOP 












81333830 


179F 


1 


6780 085E 




LDX 


13 


EROUT 




RESTORE REG 




81333840 








* 


SNS 




GET 


2311 


SENSE INFORMATION 




81333850 


17A1 





C300 


ERT12 


LD 


3 







GET TAGS 




81333860 


17A2 





100F 




SLA 




OESNS 




TEST FOR SNS INFO 




81333870 


17A3 


1 


4C10 17CB 




BNN 




ERT14 




BR IF NO 




81333880 


17 AS 





CADI 




LOD 


2 


PSNS-TB 


GET HEADER WORDS 




81333890 


17A6 





0100 




STO 


1 







STORE 




81333900 


17A7 





1090 




SLT 




16 








61333910 


17A8 





D101 




STO 


1 


1 




STORE 




81333920 


17A9 





7103 




MOX 


1 


3 




BUMP POINTER 




81333930 


17AA 





1000 




NOP 












81333940 


17AB 





C29C 




LD 


2 


K8-TB 








81333950 


17 AC 





D0A8 




STO 




ERTN8+3 


SAVE TEMPORARILY 




81333960 


17 AD 





CA23 




LOD 


2 


SNWDS-T8 


GET SENSE INFO 




81333970 








* 














81333980 


17AE 





18DC 


ERT13 


RTE 




28 




MOVE AROUND 




81333990 


17AF 





DAC7 




STD 


2 


ERTSV- 


TB 


SAVE FOR LOOP 




81334000 


17B0 





108C 




SLT 




12 








81334010 



14N0V69 
431319 



30JAN70 

431319A 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE IBOO SYSTEM 
1800-2841 TWO CHANNEL SWITCH FUNCTION TEST 



DATE 
EC N0« 



17B1 

17b2 

17B3 

17B4 

1705 

17B6 

1787 

17B8 

17B9 

17BA 

17BB 

17BC 

17B0 

17BE 

17BF 

17C0 

17C1 

17C3 

17C4 

17CS 

17C6 

17C7 

17C8 1 

17CA 



1010 
103 1 
1003 
lOdl 
1003 

loai 

1003 
1081 
42F1 
0100 
1090 
0101 
7102 
1000 
C095 
8297 

4C04 17C7 
C2D3 
0100 
7101 
1000 
CAC7 

74FF 1755 
70E3 



17CB C280 

17CC D10O 

17C0 4200 

17CE 1 16CE 

17CF C209 

17D0 1 4C20 17DF 

1702 C300 

1703 1009 

1704 I 4C28 1707 

1706 42F7 

1707 C300 

1708 1006 

1709 6500 0000 
170B 6700 0000 
1700 1 4CA8 17E3 

170F 1 7402 085L 
17E1 1 4C80 085E 
17E3 0000 



SLA 

SLT 

SLA 

SLT 

SLA 

SLT 

SLA 

SLT 

BSI 

ST0 

SLT 

STO 

MDX 

NOP 

LD 

A 

BOO 

LD 

STO 

M0X 

NOP 

LDD 

MDX 

MOX 

* 

ERT14 LD 
STO 
BSI 

oc 

L0 
BNZ 

* 

ERTtS LD 
SLA 
8N 
BSI 

» 

ERT16 L0 
SLA 

ERT17 LDX 
LDX 
BN 

* 

ERT18 MDX 
BSC 

ERADR DC 

********** 

* 

********** 

********** 

* 

********** 



16 

1 

3 

1 

3 

1 

3 

1 
2 TCVBE-TB 
1 

16 
1 1 

1 2 

ERTN8+3 

2 Kl-TB 
*+4 

2 SPACE-TB 
1 
1 1 



CONVERT TO HEX 

STORE IN T8LE 

Q TO A 

STORE 

BUMP POINTER 

FETCH COUNTER 

AOD ONE 

BRANCH IF ODD 

FETCH SPACE CHARACTERS 

PLACE IN PRINT LINE 

ADVANCE PRINT LINE POINTER 



2 ERTSV-TB GET SENSE INFO BACK 

L ERTN8+3.-1 COUNT 

ERT13 LOOP UNTIL FINISHED 

2 TERM-T8 SET /FFFF AT END 

1 ** 

2 TLGMS-TB PRINT MESSAGE 
PRINT 

2 STKSW-TB GET SWITCH 

ERT18 EXIT IF SET 



3 

OEBYP 
ERT16 

2 THALT-TB 

3 
OEXIT 

LI *-* 
L3 *-» 
I ERADR 

L ER0UTt2 
I EROUT 

*-* 



GET TAGS 

BR IF NOT HALT 
WAIT FOR OPERATOR 

GET TAGS 

TEST FOR OTHER EXIT 

RELOAD REGS 

*** 

BR IF YES 

UUMP RETURN BY TWO 

EXIT 

RETURN AODRESS PUT HERE 



:***************************************** 

1 * 

***************************************** 
***************************************** 

« 

***************************************** 











********** 

* 

********** 










17E4 









TLGME 


EOU 


17E4 





C2DS 






LD 


17E5 


1 


4C18 


17E9 




BZ 


17E7 





42EE 






BSI 


17E8 





70FB 




* 
TLGNB 


B 


17E9 





C200 




LD 


17EA 





D205 






STO 


17EB 


1 


D400 


1SCE 




STO 


17E0 


1 


6F00 


laca 




STX 


17EF 


1 


6000 


teCA 




STX 



******** 



********************************* 



***************************************** 

* ENTRY POINT : 

2 LGBSY-T8 GET LOG BUSY SW 

TLGNB BR IF NOT BUSY 
2 STMLS-TB GO VISIT MONITOR 

TLGME ELSE LOOP 

2 TLGMS-TB GET CALLING ADORS 

2 LGBSY-TB SET LOG BUSY SW 
L ; LEXIT+1 SET RETURN ApORS 
L3 TLGX3+1 SAVE REG 
LI TLGX3+3 SAVE REG 
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81334020 

81334030 

81334040 

81334050 

81334060 

81334070 

81334080 

81334090 

81334100 

81334110 

81334120 

81334130 

81334140 

81334150 

81334160 

81334170 

81334180 

81334190 

81334200 

81334210 

81334220 

81334230 

81334240 

81334250 

81334260 

81334270 

813342 80 

81334290 

81334300 

81334310 

81334320 

81334330 

81334340 

81334350 

81334360 

81334370 

81334380 

81334390 

81334400 

81334410 

81334420 

81334430 

1113.14440 

U 1334450 

81334460 

81334470 

813344 80 

81334490 

81334500 

81334S10 

81334520 

81334530 

81334540 

81334550 

81334560 

81334570 

81334580 

81334590 

81334 600 

81334610 

81334620 

81334630 

81334640 

81334650 

81334660 

81334670 

61334680 

81334690 



14N0V69 
431319 



30JAN70 
431319A 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 
1800-2641 TWO CHANNEL SWITCH FUNCTION TEST 



17F1 
17F2 



C283 
1000 



17F3 1 4C28 18C5 

17F5 C294 

17F6 1 4C10 17F9 



17F8 70FF 



17F9 C295 

17FA 1 4C10 1808 

17FC 10 10 

17FD 1 D400 18CF 

17FF C29F 

1600 D231 

1801 42EE 

1802 1 74FF 08B0 

1804 70FC 

1805 42E2 

1806 1 6C0O 18CF 
1808 4480 0131 
180A 1 181F 
180B 1 0813 
180C 1 1893 
1800 1 080C 

180E C2D8 

180F 1 4C04 1816 

1811 C2AC 

1812 1 ECOO 1893 
1B14 0254 
1815 7003 



LD 

SLA 

BN 

LD 

UNN 

*********** 
MOX 

*********** 

* HELEA 

TLG01 LO 
BNN 

* 

SLA 

STO 

LD 

STO 

BSI 

MDX 

MDX 

* 

BSI 
STX 

TLG02 BSI 



2 TSWO-TB GET OPTION SWS 
OBYPR 

TLGEN BR IF BYPASS PRNTOUT 
2 TLGED-TB GET EDIT FOR PRINTER 
TLG01 BR IF NOT SELECTED 
**************************************** 

e-1 TRAP STOP 

**************************************** 
SE SC IN CASE SHARED CHANNEL 
2 TSCEO-TB GET DOEF 

TLG02 BR IF NOT SEL 



1816 
1817 
1818 
1819 
181A 
181Q 



C2AF 
E87B 
0254 
C2B0 
E878 
D256 



111 If, HAv7 

IBID D25A 

181E 7002 

181F 42EE 

1820 70E7 



1821 
1823 
1824 
1825 
1827 
1829 
182B 



6580 18CE 
C100 
0001 

6500 0000 
6000 18D2 
6780 0802 
6B16 



182C C100 
182D F28D 
182E 1 4C18 1834 

1830 C280 

1831 E2B7 

1832 42F1 

1833 DB02 

1834 1010 

1835 0258 
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DATE 
EC NO. 


14N0V69 
431319 


30JAN70 
431319A 



16 

FRESW 

K20-TB 

SCSN1-TB 

STMLS-TB 

SCSN1 .-1 



CLEAR CHANNEL FREED SW 
* 

SET COUNTER FOR DELAY 
** 

GO TO MONITOR 
OECR. COUNTER 
LOOP UNTIL FINISHED 



OC 
DC 
OC 
DC 
* 

LD 
BOD 
* 

LD 
OR 
STO 
MOX 
* 

TLG40 LD 
OR 
STO 
TLGCM LD 
OR 
STO 
OR 
STO 
MDX 
* 

TLG03 BSI 
MDX 
* 

TLG04 LDX 
LD 
STO 
LDX 
STX 
LDX 
STX 
* 

LO 
EOR 
BZ 
* 

LD 
AND 
BSI 
STO 
* 

TLG05 SLA 
STO 



2 FREDV-TB FREE SEL CHNL 

L FRESW SET SC FREED SW 

I REQDV REQUEST DEVICE 

TLG03 BUSY RETURN 

TLGED EDIT FOR PRINTED 

TLGDA AREA CODE GIVEN BACK 

TERM TERMINATOR 

2 T4SSW-T8 GET 43/53 SW 
TLG40 BR IF 43 

2 H0100-TB ELSE BUILD WRITE IOCC 
L TLGDA * 
2 TLGWR+1-TB * 

TLGCM GO TO COMMON ROUTINE 

2 H0500-TB CREATE WRITE IOCC 
TLGDA OH IN AREA CODE 

2 TLGWR+1-TB 

2 H0700-TB CREATE SENSE IOCC 
TLGDA OR IN AREA CODE 

2 TLGSN+l-TB 

i> Kl-TB SET RESET BIT 

2 TLGSH+1-TB *** 

TLG04 GO TO PRINT 



2 STMLS-TB 
TLG02 



LEXIT+1 



*+l 
LI *-* 
LI TLGCH+2 
13 TLGWR 
3 TLGBP+1 



II 

1 



1 

2 TERM-TB 
TLG05 

2 TPID-TB 
2 H7FFF-TB 

2 TCVBE-TB 

3 2 

16 
2 TLGSW-T8 



GO TO MONITOR 
LOOP TO TRY AGAIN 

GET CALLING RTN ADDR 
GET MSG ADDRESS 
SET FOR LOAD INDEX 
LOAD REG 
SAVE IN 'GET CHAR' RTN 
GET WRD COUNT ADDRESS 
SET FOR BUMPING 

GET FIRST DATA ORD 
COMPARE WITH /FFFF 
BR IF YES 

GET PID 

DROP SELECT BIT 
CONVERT TO 1443 CODE 
SET IN MSG 

CLEAR 1ST/2ND CHAR SWITCH 
*** 



PART NO. 
PAGE 



81334700 

81334710 

81334720 

81334730 

81334740 

81334750 

81334760 

81334 770 

81334760 

81334790 

81334800 

81334810 

81334820 

81334830 

61334840 

81334850 

81334860 

81334870 

81334880 

81334890 

81334900 

81334910 

81334920 

81334930 

81334940 

81334950 

81334960 

81334970 

81334980 

81334990 

81335000 

81335010 

81335020 

81335030 

81335040 

81335050 

81335060 

81335070 

81335080 

8133S090 

81335100 

81335110 

fll335120 

01 3301 30 

81335140 

81335150 

81335160 

81335170 

81335180 

81335190 

81335200 

81335210 

81335220 

81335230 

81335240 

81335250 

81335260 

81335270 

8133S280 

81335290 

81335300 

81335310 

81335320 

81335330 

81335340 

81335350 

8133S360 

81335370 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 



1800-2841 TWO CHANCEL SWITCH FUNCTION TEST 



DATE 
EC NO. 



1836 





D2S9 




1837 





D05A 




1S38 





C299 




1839 





D300 




183A 





7301 




183B 


1 


4400 


18D0 


1830 





700F 




183E 





1003 




183F 





EASS 




1840 





0303 




1841 





7401 


0000 


1843 


1 


44C0 


1800 


1845 





7007 




1846 





1888 




1847 





C303 




1848 





1808 




1849 





1088 




184A 





0303 




184B 





730 1 




184C 





70EE 





1840 C2DB 

184E 1 4C04 187A 

1850 C259. 

1851 1 4C18 1B5S 
l8Sa C26C 

1854 D303 

1855 .Q C2AB 

1856 EB03 

1857 O 0303 

1858 1 6500 18EF 
185A 6936 
185B 1010 
185C 0258 

1850 C032 

185E 1 0400 18EE 

I860 7023 



1861 


1 


6580 


1891 


1863 





C2S8 




1864 


1 


4C18" 


1860 


1866 





1010 




1867 





0258 




1868 





C100 




1869 





looa 




186A 





7101 




186B 





6925 




186C 





7005 




I860 





C100 




186E 





180S 




186F 





1003 




1870 


1 


6C00 


0807 



1872 92BC 

1873 1 4C18 18B0 

1875 82BC 

1876 1808 

1877 1 4400 199B 
1879 0074 



STO 

STO 

LD 

STO 

MDX 

BSI 

MDX 

SLA 

OR 

STO 

MDX 

BSI 

MDX 

SRT 

LD 

SRA 

SLT 

STO 

MDX 

MOX 



2 TLGSW+1-TB 
TLGIS 

2 K3-TB 

3 
3 1 



CLEAR INT. SW 

** 

BUMP TO PT TO BUFFER 

TLGCH GET A CHARACTER 

TLG07 COME HERE FOR HEX FF 

8 PUT IN HIGH ORDER BYTE 

TLGSP-TB SET LOW ORDER TO SP 

3 STORE IN BUFFER 

*-*,l BUMP WORD COUNT 

TLGCH GET ANOTHER CHARACTRR 

TLG07 IF CHARACTER IS HEX FF 

8 CHARACTER TO O 

3 GET LAST CHARACTER 

8 BYTE TO LOW POSITION 

8 COMBINED BYTES IN A 

3 STORE IN BUFFER 

1 BUMP SINK 

TLG06 LOOP UNTIL HEX FF 



* TEST FOR 1443. IF YES GO TO XIO 

* IF 1053 DO A CARRIAGE RETURN 
TLG07 LD 2 T45SW-TB GET 43/53 SW 

BOD TLG42 BR IF 1443 

* PUT TERMINATOR IN MESSAGE 

LO 2 TLGSW+1-TB GET 1ST/2ND CHAR SW 
BR IF 2ND CHAR 
ELSE GET TERM 
PUT IN MESSAGE 
TLG08 LD 2 HOOFF-TB GET TERMINATOR 

PUT IN MESSAGE 
* 

SET UP BUFFER POINTER 
SAVE 
CLEAR - 
* 2ND CHAR SW 
•♦CARRIAGE RETURN** 
GET CR CHARACTER 
PUT IN OUTPUT: AREA 
GO PRINT 
>T ROUTINE IF 1053 
RESTORE POINTER 
GET 2ND CHAR SW 
BR IF (CHAR 
ELSE RESET SW 
* 

GET CHARACTERS 
SAVE 2ND CHAR 
BUMP POINTER \ 

SAVE 
GO TO COMMON RTN 

* GET HERE IF PRINTING CHAR 1 
TLG09 LD 10 GET CHARACTERS 

SRA 8 * 

SLA B * 

STX L TLGSW SET 2ND CHAR SW 

* GET HERE IF PRINTING CHARACTER 2 

TEST FOR END 0' LINE 
BR IF YES 

ELSE RESTORE CHARACTER 
RIGHT JUSTIFY" CHAR 
CONVERT TO 1816 CODE 
PUT IN OUTPUT AREA 



BZ 




TLG08 


LD 


2 


HFFOO-TB 


STO 


3 


3 


LD 


2 


HOOFF-TB 


OR 


3 


3 


STO 


3 


3 


LDX 


LI 


TLGBA+1 


STX 


1 


TLGSV 


SLA 




16 


STO 


2 


TLGSW- TB 


START LINE WITH 


LO 




TLGCR 


STO 


L 


TLGBA 


MDX 




TLG43 


COME 


FROM INTERR 


LDX 


11 


TLGSV 


LD 


2 


TLGSW-TB 


BZ 




TLG09 


SLA 




16 


STO 


2 


TLGSW-TB 


LD 


1 





SLA 




8 


MDX 


1 


1 


STX 


1 


TLGSV 


MDX 




TLG10 



S 


2 HFFOO-TB 


BZ 


TLGX2 


A 


2 HFFOO-TB 


SRA 


8 


BSI 


L TCV4S 


STO 


TLGBA 



00 XIO WRITE 



14N0V69 
431319 



30JAN70 
431319A 
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813353 80 
81335390 
8133 54 00 
81335410 
81335420 
81335430 
81335440 
8133 5450 
81335460 
81335470 

813354 80 
81335490 
81335500 
81335510 
81335520 
81335530 
81335540 
81335550 
81335560 
81335570 
8133 5580 
81335590 
81335600 
81335610 
81335620 
81335630 
81335640 
81335650 
81335660 
81335670 
81335680 
81335690 
81335700 
81335710 
81335720 
81335730 
81335740 
81335750 
81335760 
81335770 
81335780 
81335790 
81335800 
81335810 
81335820 
81335830 
81335840 
8133S850 
81335860 
81335870 
81335880 
81335890 
81335900 
81335910 
81335920 
81335930 
81335940 
81335950 
61335960 
81335970 
81335980 
81335990 
81336000 
81336010 
81336020 
81336030 
81336040 
S13360S0 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 
1800-2841 TWO CHANNEL SWITCH FUNCTION TEST 



DATE 
EC NO. 



PRINT A LINE (1443) 
PRINT A CHARACTER (1053) 



187A 





0AS5 




TLG42 


XIO 


2 


TLGSN-TB 


SENSE DSW 


187B 





18D0 






RTE 




16 


A TO Q 


187C 





C2DB 






LD 


2 


T45SW-TB 




187D 





4804 






SKP 




E 


SKP IF 53 


187E 





108A 






SLT 




10 


SHIFT 31 FOR 43 


187F 





1095 






SLT 




21 


SLT 21 FOR 1053/1826 


1880 


1 


4C10 


1884 




BNN 




TLG43 


BR IF REAOY 


1882 





42EE 






BSI 


2 


STMLS-TB 


GO TO MONITOR 


1883 





70F6 




* 
TLG43 


MDX 




TLG42 


LOOP UNTIL READY 


1884 





0A53 




XIO 


2 


TLGWR-TB 




1885 





680C 






STX 




TLGIS 


SET INT SW 


1886 





C28D 






LD 


2 


TERM-TB 


GET /FFFF 


1887 





D257 




TLGH 


STO 


2 


TLGCT-TB 


SET LOOP COUNT 


1888 





42EE 




BSI 


2 


STMLS-TB 


GO TO MONITOR 


1889 





C008 






LD 




TLGIS 


TEST FOR INT 


188A 


1 


4C18 


18AC 




BZ 




TLGXR 


BR IF IT HAPPENED 


188C 


1 


74FF 


08D6 




MDX 


L 


TLGCT.-l 


DECR COUNT 


188E 





70F9 






MDX 




TLG11 


LOOP 



188F 70FF 



1890 





8100 


TLGCR 


DC 


/8100 


1891 





0000 


TLGSV 


DC 


*-* 


1892 





0000 


TLGIS 


DC 





1893 





0000 


TLGOA 


DC 


*-* 


1894 





0000 


TLGIN 


DC 


S-* 


1895 





COFC 




LD 


TLGIS 


1896 





4818 




SKP 


+- 



1897 70FF 



1898 

189A 
189C 
189D 



1 0C00 08D8 
1 4C28 18A0 

1002 

1 4C28 18 AS 



189F 70FF 



*************************************************** 

MOX s-1 TRAP STOP 

*************************************************** 
* 
*************************************************** 

* * 
*************************************************** 
* 

* PRINT INTERRUPT ROUTINE 
* 

CARRI AGE*RETURN 
. SAVE BUFFER POINTER 
INT SW 

AREA CODE PUT HERE BY MON 
INTERRUPT ENTRY POINT 
GET INT SWITCH 
SKIP IF NONZERO 
****** ************************************** ******* 

MDX *-l TRAP STOP 

*************************************************** 
XIO L TLGSR SENSE RESET DSW 
BN TLG12 BR IF XFER COMPLETE 
SLA 2 TEST FOR PRINT COMPLETE 

BN TLG13 BR IF YES 
*************************************************** 

MDX *-l TRAP STOP 

*************************************************** 



SAVE OSW 

GET 43/53 SW 

TEST FOR 1443 

BR IF 1053 

GET DSW (PRINT COMPL) 



CLEAR INT SWITCH 
BSC I TLGIN EXIT INT ROUTINE 

* 
*************************************************** 

* • 
*************************************************** 
* 

* MONITOR COMES HERE FROM INT RTN 



18A0 





18D0 




TLG12 


RTE 




16 


18A1 





C2DB 






LO 


2 


T45SW-TB 


18A2 





F297 






EOR 


2 


Kl-TB 


18A3 


1 


4C20 


18A8 




BNZ 




TLG13 


18A5 





1092 






SLT 




18 


18A6 


1 


4C10 


18AA 


* 
TLG13 


BNN 




TLG13+2 


18A8 





1010 




SLA 




16 


18A9 





DOES 






STO 




TLGIS 
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81336060 
81336070 
81336080 
81336090 
81336100 
813361 10 
81336120 
81336130 
81336140 
813361S0 
81336160 
81336170 
81336180 
81336190 
61336200 
81336210 
81336220 
81336230 
81336240 
813362 50 
81336260 
813362 70 
81336280 
81336290 
81336300 
81336310 
8133632 
81336330 
81336340 
81336350 
81336360 
81336370 
81336380 
81336390 
81336400 
81336410 
81336420 
81336430 
81336440 
81336450 
81336460 
81336470 
81336480 
81336490 
81336500 
81336510 
81336520 
81336530 
81336540 
81336550 
81336560 
81336570 
81336580 
81336590 
81336600 
81336610 
81336620 
81336630 
81336640 
81336650 
81336660 
81336670 
81336680 
81336690 
81336700 
81336710 
81336720 
S1336730 



14N0V69 
431319 



30JAN70 

431319A 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1600 SYSTEM 
1800-2841 TWO CHANNEL SWITCH FUNCTION TEST 



18AC C041 
18A0 1£08 
18AE 1 4C20 1861 



18B0 
18S2 
18B3 
18B4 
18BS 
1SB6 
18B7 
18B8 
18B9 
18BA 
18BB 

18BC 
18BE 
1BBF 

taco 

18C1 
18C2 



6730 08D2 

6B8F 

C299 

0300 

7301 

10A0 

OB01 

0258 

4016 

7001 

7082 

4480 0132 

0813 

080C 

COOE 

4820 

42E5 



18C3 1010 



TLGX2 LDX 13 TLGWR 



TLGXR LD TLGBA GET WORD COUNT 

SRA 8 TEST FOR 1053 CHAR 

3NZ TLGPR BR IF 1053 

GET BUFFER ADDRESS 

3 TLGBP+1 SET PTR TO WORD COUNT 

2 K3-TB SET WRD CNT=3 

3 *** 
3 1 BUMP POINTER 

32 SET PID=BLANKS IN MESSAGE 

3 1 * 

2 TLGSW-TB CLEAR 2ND CHAR SW 

TLGCH GET A CHARACTER 

TLG15 HERE IF HEX /OOFF 

TLG06+3 ELSE LOOP 



o 


18C4 





DOOA 




f , 


18C5 


1 


7401 


18CE 


o. 


18C7 





6700 


0000 


18C9 





6500 


0000 




18CB 





1010 




o 


18CC 





02DS 




18CD 





4C00 


0000 


o 


18CF 





0000 




o 










1 ° 


1800 





0000 




•■ ■ 


1BD1 





6500 


0000 





1803 





C259 




1804 


1 


4C20 


180B 




16D6 


1 


6C00 


081)8 


o 


I 608 





C100 




1809 





1808 






18DA 





7007 




! O 

1 


isos 





1010 






18DC 





0259 




i o ■ 


leoD 





C100 




18DE 





1008 




! 


leoF 





1P08 




o '. 


18E0 





7101 




18E1 





69F0 




o . 


18E2 


1 


4C20 


18ES 


18E4 





C255 






16E5 





F2AB 




o 


18E6 


1 


4C98 


1800 


18E8 





F2AB 






18E9 


1 


7401 


1800 


o 


18EB 
18EE 


1 


4C60 
0000 


18D0 


o 


18EE 





OOOO 




18EF 




0003 




- ; 

o 










_ DATE 14N0V69 30JAN70 
® EC NO. 431319 431319A 


o , 










o 










! o '■■ 










j o ■ i • 











STX 

LD 

STO 

MOX 

SLT 

STD 

STO 

BSI 

MDX 

MDX 

BSI 

DC 

OC 

LD 

BSC 

BSI 

SLA 
STO 



GO RELEASE DEVICE 
ADDRS OF EDIT WRO 



t RELDV 
TLGED 
TERM 

FRESW GET CHNL RELS SW 
Z SKIP IF NOT SET 

2 GETDV-TB ELSE GET CHNL 



16 

FRESW 



RESET- 

* CHNL RELS SW 



* 

TLGEN 

TLGX3 



MDX L LEXIT+1,1 BUMP RETURN BY 1 

LDX L3 *-* RESTORE REG 

LDX LI *-* RESTORE REG 

SLA 16 RESET LOG BUSY SW 

STO 2 LGBSY-TB * , 

LEXIT BSC L *-* EXIT PRINT RTN 



FRESW 



DC CHNL RELEASED SW 

♦a******************************************** 



j********************************************** 
FETCH ONE CHARACTER FROM SOURCE MESSAGE 



* 
TLGCH 



DC *-* ENTRY POINT 

LDX LI *-* SET UP POINTER 

LD 2 TLGSW+l-TB GET 1/2 CHARACTER SW 

BNZ TLG16 BR IF SET 

STX L TLGSW+1 SET SW 

LD 1 GET TWO CHARACTERS 

SRA 8 KEEP HIGH ORpER ONE 

MDX TLG17 GO TO COMMON RTN 



* 
TLG16 



TLG17 
TLG18 



SLA 

STO 

LD 

SLA 

SRA 

MDX 

STX 

BNZ 

LD 

EOR 

BZ 

EOR 

MDX 

BSC 

BSS 

DC 
PR NT 



16 CLEAR 1ST/2ND CHAR SW 

2 TLGSW+l-TB * 



1 

8 

8 
1 1 
1 TLGCH+2 



GET TWO CHARACTERS 
KEEP LOW ORDER ONE 

BUMP SOURCE POINTER 
SAVE 



TLG18 SET TO SPACE IF ZERO 

2 TLGSP-TB *** 

2 HOOFF-TB TEST FOR HEX. FF 

I TLGCH EXIT IF HEX FF 

2 H00FF-T8 RE- INVERT IT ' 

L TLGCH .1 BUMP RETURN ADDRESS 

I TLGCH EXIT THIS RTN 

E 

•-* WORD COUNT FOR PRNT LINE 

XXXX. PID GOES HERE 
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81336740 
81336750 
81336760 
81336770 
81336780 
81336790 
81336800 
81336810 
81336820 
81336830 
81336840 
81336850 
81336860 
81336870 
81336880 
81336890 
81336900 
81336910 
81336920 
81336930 
81336940 
81336950 
81336960 
81336970 
81336980 
81336990 
81337000 
81337010 
81337020 
81337030 
81337040 
81337050 
81337060 
81337070 
81337080 
81337090 
81337100 
81337110 
81337120 
81337130 
81337140 
81337150 
81337160 
81337170 
81337180 
81337190 
81337200 
81337210 
81337220 
81337230 
81337240 
81337250 
81337260 
81337270 
81337280 
81337290 
81337300 
81337310 
81337320 
81337330 
81337340 
81337350 
81337360 
81337370 
81337380 
81337390 
81337400 
81337*10 
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ISM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 
1800-2841 TWO CHANNEL SWITCH FUNCTION TEST 



18F2 0037 



DATE 
EC NO. 



BSS 5S LENGTH OF BUFFER 

*#**#*#**:((**#******:**##***************#************ 

* * 
**####*>?#***:******#************#**************#**** 
assises********************************************* 

* * 
44##************* ********************************** 
* 

* CONVERT HEX WORD TO 1443 CODE 
* 

3^4#4C#4[XC***** *********************** **************** 

* * 

*************************************************** 



1929 









TCVBN 

* 


EQU 




* 




ENTRY POIf 


4T 


1929 





18 DO 




RTE 




16 








192A 





400E 






BSI 




TCV01 




GET NEXT 


CHARACTER 


192B 





1008 






SLA 




8 








192C 





D2C3 






STO 


2 


TCVS1- 


TB 






192D 





400B 






BSI 




TCVOl 




GET NEXT 


CHARACTER 


192E 





EAC3 






OR . 


2 


TCVS1- 


TB 






192F 





D2C3 




* 


STO 


2 


TCVS1- 


TB 






1930 





4008 




• 


BSI 




TCV01 




GET NEXT 


CHARACTER 


1931 





1008 






SLA 




8 








1932 





D2C4 






STO 


2 


TCVS2- 


•TB 






1933 





4005 






BSI 




TCV01 




GET NEXT 


CHARACTER 


1934 





EAC4 






OR 


2 


TCVS2- 


•TB 






1935 





1890 






SRT 




16 








1936 





C2C3 






LD 


2 


TCVS1- 


•TB 






1937 


1 


4C80 


0870 


* 
TCV01 


BSC 


I 


TCVBE 








1939 





0000 




DC 




*-* 




ENTRY 




193A 





1010 






SLA 




16 








193B 





1084 






SLT 




4 








193C 


1 


4C20 


1941 




BNZ 




TCV02 




BR IF NOT ZERO 


193E 





C2A2 






LD 


2 


H000A-TB 


0=/0A 




193F 


1 


4C80 


1939 


* 
TCV02 


BSC 


I 


TCV01 




EXIT 




1941 





9290 




S 


2 


K9-TB 




SUBTRACT 


9 


1942 





4830 






SKP 




Z- 








1943 





82A9 






A 


2 


H0027- 


-TB 


ADO BACK 


A CONSTANT 


1944 





829D 




* 


A 


2 


K9-TB 








1945 


1 


4C80 


1939 


BSC 


I 


TCV01 




EXIT 





1947 I 4CA8 0873 

1949 1890 
194A AAA1 
194B 100C 
194C O OOOD 
1940 O 1004 

194E AAAO 

194F O 1008 

1950 O E809 



j*************************************************** 

* * 
♦♦a************************************************ 
* 

* CONVERT HEX TO DECIMAL. A REG TO A REG 
* 

* *** CALL - BSI 2 TCVHD-TB *** 
##********#***********#**************************** 

* * 
###*****#*****##**************************#******** 
* 

EXIT IF NEG 



MOST SIGNIFICANT DIGIT 
POSITION DIGIT 



THE 


<D BN 


1 


TCVHD 




SRT 




16 




D 


2 


KIOOO-TB 




SLA 




12 




STO 




THEXS 




SLA 




4 


* 










D 


2 


K100-TB 




SLA 




8 




OR 




THEXS 



CLEAR A REG 



NEXT SIGNIFICANT DIGIT 
POSITION DIGIT 



PART NO, 2279456 
PAGE 28A 



81337420 
81337430 
81337440 
81337450 
81337460 
813374 70 
81337480 
81337490 
81337500 
81337510 
81337520 
81337530 
81337540 
81337550 
81337560 
81337570 
81337580 
81337590 
81337600 
81337610 
81337620 
81337630 
81337640 
81337650 
81337660 
81337670 
81337680 
81337690 
81337700 
81337710 
81337720 
81337730 
81337740 
81337750 
81337760 
81337770 
81337780 
81337790 
81337800 
81337810 
81337820 
81337830 
81337840 
813378S0 
81337860 
81337870 
81337880 
81337890 
81337900 
81337910 
81337920 
81337930 
81337940 
81337950 
81337960 
81337970 
81337980 
81337990 
81338000 
81338010 
81338020 
81338030 
81338040 
SI3380S0 
81338060 
81338070 
81338080 
81338090 



14NOV69 
431319 



30JAN70 
431319A 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 
1800-2841 TWO CHANNEL SWITCH FUNCTION TEST 



PART NO. 2279456 



PAGE 



29 



OATE 
EC NO. 



1951 





0008 






ST0 


THEXS 


1952 





1008 




* 


SLA 


8 


1953 





AA9E 




D 


2 K10-TB 


1954 





103C 






SLT 


12 


1955 





180C 






SRA 


12 


1956 





1084 






SLT 


4 


1957 





E802 






OR 


THEXS 


1958 


l 


4C80 


0873 




BSC 


I TCVHD 


19SA 





0000 




THEXS 


DC 






CLEAR A REG 

NEXT SIGNIFICANT DIGIT 
COMBINE LAST TWO DIGITS 

*** 
*** 



TEMP STORAGE 



1958 C283 

19SC 100C 

1950 1 4C28 1963 

195F 1 7401 0882 

1961 1 4CO0 0882 

1963 1 C480 0882 

1965 0001 

1966 4C00 0000 



1968 C283 

1969 1008 
196A 1 4C28 1970 

196C 1 740 1 088S 

196E 1 4C60 0885 

1970 1 C480 0885 

1972 0001 

1973 4C00 0000 

1975 1 74FD 0885 

1977 1 C400 0885 

1979 0001 

197A 4C00 0000 



14N0V69 
431319 



30JAN70 
4313I9A 



81338100 
813381 10 
81338120 
81338130 
81338140 
81338150 
81338160 
81338170 
81338180 
81338190 
81338200 

* 81338210 
V************************************************** 81 338220 

* * 81338230 

•jtHtMttTOttttttMj,,*^,,,,,^,,,,,,,,,,,,^,,^, 81338240 

* 81338250 

************************* »»********»**»*»*»#*****»,(, 813382 60 

* * 81338270 
************************************ t*t ************ 813382 80 

* * 81338290 

* TERLP IS CALLED BY A **BSI 2 TLPER-T3** * 81338300 

* TO TEST THE LOOP ERROR OPTION AND * 81338310 

* BR TO THE LOOP ADDR IF BIT 12 IS SET * 81338320 

* * 81338330 
************* *****************************#*»****#* 81338340 

* * 81338350 

******* **************#**##***##******##*#*******#** 81338360 

* 81338370 

GET OPTION SWS 
TEST LOOP ON ERROR 
YES 



TERLP 


LD 


2 


TSW0-TB 




SLA 




OLPER 


* 


BN 




TER01 




MDX 


L 


TLPER, 1 




BSC 


I 


TLPER 


* 








TER01 


LD 


I 


TLPER 




STO 




TER02+1 


TER02 


BSC 


L 


*-* 



NO. BUMP RETURN 
CONTINUE 

GET LOOP ADDRESS 
PUT IN RETURN 
CONTINUE 



81338380 
81338390 
81338400 
81338410 
81338420 
81338430 
81338440 
81338450 
81338460 
81338470 

* 81338480 
***************** ********************************** 81338490 

* * 81338500 
*********************************** **************** 81338510 

* * 81338520 

* TSTLP IS CALLED BY A **BSI 2 TLPST-TB** » 81338530 

* TO TEST THE LOOP START I/O OPTION * 81338540 
» AND BR TO THE LOOP ADDR IF BIT * 81338550 
» 8 IS SET * 81338560 

* * 81338570 
*************************************************** 81338580 

* » 81338590 

********************* ****************************** 81338600 

* 81338610 

81338620 
81338630 
81338640 
81338650 
81338660 
81338670 
Bl 338680 
81338690 
81338700 
81338710 
81338720 
81338730 
81338740 
8133S7S0 
81338760 

it************************************-************* 81338770 



PROG ID 
PAGE 



TSTLP 


LD 


2 


TSW0-TB 


GET OPTION SWS 




SLA 




OLPST 


TEST LOOP Sid 


* 


BN 




TST01 


YES 




MDX 


L 


TLPST.l 


NO. BUMP RETURN 


* 


BSC 


I 


TLPST 


CONTINUE 


TST01 


LD 


I 


TLPST 


GET LOOP ADDRESS 




STO 




TST02+1 


PUT IN RETURN' 


TST02 


BSC 


L 


»-* 


CONTINUE 



TST03 MDX L TLPST .-3 GO BACK 

LD L TLPST 

STO TST04+1 

TST04 BSC L »-* 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM I^OR THE 1800 SYSTEM 
1800-2841 TWO CHANNEL SWITCH FUNCTION TEST 



PART NO. 2279456 
PAGE 29A 



DATE 
EC NO. 



* 81338780 
MSJittttjttt**?******************^****,,,^^,,,^^ 81338790 

81338800 
81338810 
81338820 

* 81338830 

*************************************************** 81338840 



CALL BSI L TCVSR 

GET AQ = SPACE/SECT/SPACE/RTN 











* 
















* 


81336850 










*************************************************** 


81338860 


197C 





0000 




TCVSR 


DC 




*-* 












81338870 


1970 





6B0A 






STX 


3 


TCVSZ+1 




SAVE REG 








81336880 


197E 


1 


6730 


0815 




LDX 


13 


TRID 




GET ROUTINE NUMBER 








81338890 


1980 


1 


C700 


1988 




LD 


L3 


DIGIT 




GT PRINTABLE CODE 








81336900 


1982 





1890 






SRT 




16 




A TO 








81336910 


1983 


1 


6780 


0800 




LDX 


13 


TSID 




GET SECT NUMBER 








81338920 


1985 


1 


C700 


198A 




LD 


L3 


DIGIT-1 




GET PRINTABLE CODE 








81338930 


1987 





6700 


oooo 


TCVSZ 


LDX 


L3 


*-* 




RESTORE REG 








81338940 


1989 


1 


4C80 


197C 


* 


BSC 


I 


TCVSR 




EXIT 








81338950 
81338960 


198B 




0016 




DIGIT 


PR NT 




.012 


3 


456789ABCD 


E 


F. 




81338970 



********************** ****************************** 81338980 

* * 81338990 
************ *************************************** 81339000 

81339010 
81339020 

* 81339030 
*************************************************** 81339040 

* » B1339050 

^♦.♦♦((.♦♦♦.♦t,,,,,,**,,,,,,,,,,,,,,,,,,,,,,,,,,^^ 81339060 



CONVERT 1443 CODE TO 1816/1053 CODE 



199B 





0000 




TCV45 


DC 




*-* 




81339070 


199C 





6B45 






STX 


3 


TCVSV+1 




81339080 


199D 





D043 






STO 




TCVSV 


SAVE 1443 CHAR 


81339090 


199E 


1 


6700 


19B4 




LDX 


L3 


TCVTB 


SET UP POINTER 


81339100 


19A0 





10AO 






SLT 




32 


CLEAR AQ 


81339110 


19A1 





C300 




TCV03 


LD 


3 





PICK UP NEXT ENTRY IN 


TBL 81339120 


19A2 





18C8 






RTE 




8 


DELETE TR CHAR 


81339130 


19A3 





F03D 






EOR 




TCVSV 


TEST CHAR 


81339140 


19A4 


1 


4C18 


19AD 


* 


BZ 




TCV04 


CHAR COMPARES 


81339150 
81339160 


19A6 





1088 






SLT 




a 


RESTORE Q REG=0 


81339170 


19A7 





E2AB 






AND 


2 


HOOFF-TB 


SET UP TO TEST 


81339180 


19A8 





F2AB 






EOR 


2 


HOOFF-TB 


* FOR TERMINATOR 


81339190 


19A9 


1 


4C18 


19AF 


* 


BZ 




TCVEN 


GO TO END ROUTINE 


81339200 
81339210 


19AB 





7301 






MDX 


3 


1 


INC POINTER 


81339220 


19AC 





70F4 




* 


MDX 




TCV03 


RETURN TO LOOP 


81339230 
81339240 


19AD 





18D0 




TCV04 


XCH 






RESTORE TR CHAR 


813392 50 


19AE 





4818 




* 


SKP 




+— 


EXIT 


81339260 
81339270 


19AF 





C030 




■ ■■ ' •■■ 


•.. 




TCVSP 


SET UP SPACE 


81339280 


I960 


1 


6700 


19E2 




LOX 


L3 


TCVSV+1 


RESTORE XR3 


81339290 


19B2 


1 


4C80 


199B 




BSC 


I 


TCV45 


EXIT 


81339300 



19B4 





313E 


TCVTB DC 


/313E 


19BS 





321A 


DC 


/321A 


19B6 





331E 


OC 


/331E 


19B7 





3432 


DC 


/3432 


19B8 





3536 


DC 


/3S36 


19B9 





3612 


DC 


/3612 


19BA 





3716 


DC 


/3716 


19BB 





3826 


OC 


Z3826 


19BC 





3922 


DC 


/3922 


19BD 





217E 


OC 


/217E 


19BE 





225A 


DC 


/225A 


19BF 





235E 


DC 


/235E 



14N0V69 
431319 



30JAN70 
431319A 



*************************************************** 81339310 

* * 81339320 

************************* ************************** 81339330 

~ AU443. TILT-ROTATE) 61339340 

8 81339350 

c 81339360 

81339370 

E 81339380 

F 81339390 

G 81339400 

H 81339410 

' 81339420 

•> 81339430 

K 81339440 

>- 813394S0 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 
1800-2841 TWO CHANNEL SWITCH FUNCTION TEST 



DATE 
EC NO. 



19C0 





2472 




DC 


/2472 


M 


19C1 





2576 




DC 


/2S76 


N 


19C2 





2652 




DC 


• 2 652 





19C3 





2756 




DC 


/2756 


P 


19C4 





2866 




DC 


/2 866 


Q 


19C5 





2962 




DC 


/2962 


R 


19C6 





129A 




DC 


/129A 


S 


19C7 





139E 




DC 


/139E 


T 


19C8 





14S2 




DC 


/14B2 


U 


19C9 





15B6 




DC 


/15B6 


V 


19CA 





1692 




DC 


/1692 


w 


19CB 





1796 




DC 


/1796 


X 


19CC 





18A6 




DC 


/18A6 


Y 


19C0 





19A2 


* 


DC 


/19A2 


Z 


19CE 





01FC 


DC 


/01FC 


H1443.TILT- 


19CF 





0208 




DC 


/02D8 


2 


1900 





03 DC 




DC 


• 03 DC 


3 


19D1 





04F0 




DC 


/04F0 


4 


1902 





05F4 




DC 


/05F4 


5 


1903 





06D0 




DC 


/06O0 


6 


1904 





07D4 




DC 


/07D4 


7 


1905 





08E4 




DC 


/08E4 


8 


1906 





09E0 




DC 


/09E0 


9 


1907 





0AC4 


* 


DC 


/0AC4 





1908 





0021 


DC 


/0021 


SP( 1443. TILT 


1909 





2C06" 




DC 


/2C06 


• 


190A 





1CFE 




DC 


/1CFE 


( 


19DB 





3CF6 




DC 


/3CF6 


) 


19DC 





uec 




DC 


/11BC 


/ 


1900 





2034 




DC 


/2084 


- 


19DE 





0BC2 




DC 


/0BC2 


s 


190F 





OOFF 


TCVTC 


DC 


/00FF 


TERM 


19E0 





2100 


TCVSP 


DC 


/2100 


SPACE 


19E1 





0000 


TCVSV 


DC 





TEMP STORAGE 


19E2 





0000 




DC 







19E2 







PENO 


ECU 


»-l 


PROGRAM END 


19E4 




09C0 




END 


BG1N 




NO 


STATEMENTS 


FLAGGED IN THE 


ABOVE ASSEMBLY 



14N0V69 
431319 



30JAN70 

431319A 



PART NO. 22794S6 
PAGE 30 



8 1339460 
81339470 
81339480 
81339490 
81339S00 
81339510 
81339520 
81339530 
81339540 
81339550 
81339560 
81339570 
81339580 
81339590 
81339600 
81339610 
81339620 
81339630 
81339640 
81339650 
81339660 
81339670 
81339680 
81339690 
81339 700 
81339710 
81339720 
81339730 
81339740 
81339750 
81339760 
81339770 
81339780 
61339790 
81339800 
81339810 
81339820 
81339830 
81339840 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 
1800-2841 TWO CHANNEL SWITCH FUNCTION TEST 



PART NO. 
PAGE 



2279456 
30A 



DATE 
EC NO. 



BEGIN 

BGIN 

CAWSV 

CCWSN 

CCWTS 

CC311 

CC321 

CLRST 

CLSET 
CNTDN 
CNTRL 

CRCK 

CUU11 

CUU22 

CYHDA 

CYHDB 

DELAY 

DIGIT 

DLAYE 

DLAYL 

DLYSV 

DVADR 

END 

EPA 

ERADR 

ERASE 

ERMSG 

ER0UT 



ERROR 
ERTNE 
ERTN2 
ERTN3 
ERTN4 
ERTN5 
ERTN6 
ERTN7 
ERTN8 
ERTN9 
ERTSV 
ERT10 
ERT11 
ERT12 
ERT13 
ERT14 
ERT1S 
ERT16 
ERT17 
ERT18 
FBRST 
FDRDY 
FECYL 
FgOCY 
FLCCH 
FLDCH 
FLPCI 
FLSKP 
FLSLI 
FN0RC 
FONLN 
FOVRN 



012C 
09C0 
08 44 
0BFA 
0BF7 
0DC5 
0EA3 
088E 

14BA 
083E 
0B5B 

0133 
0A83 
0A85 
0B1B 
0BFD 
0891 

198B 
14C1 
14C9 
14CC 
0853 
012E 
0808 
17E3 
00 11 
16C8 
085E 



0130 
170A 
1710 
1725 
I72F 
1739 
173D 
1746 
1752 
175B 
0846 
17SD 
176F 
17A1 
17AE 
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1 • PURPOSE 



■1*1 INTENT 

THE INTENT OF THIS PROGRAM IS TO FUNCTIONALLY TEST THE 2841 FILE 
CONTROL UNIT OPTIONAL FEATURE. TWO-CHANNEL SWITCH, WITH ANY 2311. 
THE PROGRAM CHECKS THAT THE FILE CONTROL UNIT CAN BE SHARED BY TWO 
CHANNELS* AND ALSO THAT THE INDIVIDUAL ACCESS MECHANISMS CAN BE 

!SK*S I°* A "° HELEASE0 *"«•• * CHANNEL. THE TWO CHANNELS ARE 
ATTACHED TO A SINGLE PROCESSOR. 

I»l?J!?? CR *!J C0 "» ,STS "" WW SECTIONS. THREE SEQUENTIAL AND ONE 
OPTIONAL. THERE ARE A TOTAL OF 13 ROUTINES IN THE FOUR SECTIONS. 

I.I BRIEF DESCRIPTION OF TEST ROUTINES 



I.E. I 



1.8.2 



SECT 1. RTN 1. ' 

m!!L2.?I IN . CHCCKS ™* r *" * CCESS CAM M »«>RESSED VIA BOTH 
INTERFACE -A- AND INTERFACE -B-. 



AN ACCESS IS 



AN ACCESS IS 



SECT 2. RTN 1. 

THIS ROUTINE TESTS THE DEVICE ALLOCATION COMMAND. 

RESERVED TO INTERFACE -A-. THEN RELEASED. 

SECT 2. RTN 2. 

THIS ROUTINE TESTS THE DEVICE ALLOCATION COMMAND. 

RESERVED TO INTERFACE -B-. THEN RELEASED. 

1.2.3 SECT 3. RTN 1. 
THIS ROUTINE TESTS THAT THE CHANNEL SELECTOR SWITCH DOES NOT 
RETURN TO NEUTRAL WHEN THE ENDING STATUS CONTAINS 'UNIT CHECK". 
INTERFACE **A*"» 

SECT 3, RTN 2. 

THIS ROUTINE TESTS THAT THE CHANNEL SELECTION SWITCH DOES NOT 

?f!»?.J? N ? 0TRAL WHeN TME ENDING STATUS CONTAINS -UNIT CHECK', 
INTERFACE "B"* • 

1.2.4 SECT 4, RTN 1. (OPTIONAL) 
THIS ROUTINE TESTS THAT FILE CONTROL INTERFACE -A- CAN BE 
DISABLED WHEN THE SWITCH CONTROLLING INTERFACE -A- IS PLACED IN 
THE -DISABLE- POSITION WHILE CLOCK-OUT IS -DOWN*. P, -* CED ' N 

SECT 4, RTN 2. (OPTIONAL) 

THIS ROUTINE TESTS THAT FILE CONTROL INTERFACE -B- 
DISABLED WHEN THE SWITCH CONTROLLING INTERFACE -B- 
THE 'DISABLE' POSITION WHILE CLOCK-OUT IS »0 OWN • . 

SECT 4, RTN .3. (OPTIONAL) 

THIS ROUTINE TESTS THAT FILE CONTROL INTERFACE -A- IS NOT DISABLED 
WHEN THE SWITCH CONTROLLING INTERFACE -A- IS PLACED IN THE 
•DISABLE- POSITION WHILE CLOCK-OUT IS 'UP'. ^*° IN ™ E 

SECT 4, RTN 4. (OPTIONAL) 

THIS ROUTINE TESTS THAT FILE CONTROL INTERFACE -B- IS NOT DISABLED 
WHEN THE SWITCH CONTROLLING INTERFACE -B- IS PLACED IN THE 
•DISABLE' POSITION WHILE CLOCK-OUT IS 'UP'. 



CAN BE 

IS PLACED IN 
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SECT 4. RTN 5. (OPTIONAL) 

THIS ROUTINE TESTS THAT FILE CONTROL INTERFACE -A- IS NOT DISABLED 
WHEN THE SWITCH CONTROLLING INTERFACE -A- IS PLACED IN THE 
•DISABLE* POSITION WHEN CLOCK-OUT IS 'DOWN* AND THE CHANNEL 
SELECTION SWITCH IS SELECTED TO INTERFACE -A-. 

SECT 4, RTN 6. (OPTIONAL) 

THIS ROUTINE TESTS THAT FILE CONTROL INTERFACE -B- IS NOT DISABLED 
WHEN THE SWITCH CONTROLLING INTERFACE -B- IS PLACED IN THE 
•DISABLE' POSITION WHEN CLOCK-OUT IS "DOWN' AND THE CHANNEL 
SELECTION SWITCH IS SELECTED TO INTERFACE -B-. 

SECT 4, RTN 7. (OPTIONAL) 

THIS ROUTINE TESTS THAT FILE CONTROL INTERFACE - A- REMAINS 
•DISABLED' WHEN THE SWITCH CONTROLLING INTERFACE -A- GOES FROM 
THE 'DISABLE* POSITION TO THE 'ENABLE' POSITION WHEN CLOCK-OUT 
IS 'UP'. 

SECT 4, RTN 8. (OPTIONAL) 

THIS ROUTINE TESTS THAT FILE CONTROL INTERFACE -B- REMAINS 
•DISABLED' WHEN THE SWITCH CONTROLLING INTERFACE -B- GOES FROM 
THE 'DISABLE* POSITION TO THE "ENABLE* POSITION WHEN CLOCK-OUT 
IS *UP*. 

2. REQUIREMENTS 

2.1 PROGRAM 

THIS PROGRAM IS RUN UNDER CONTROL OF THE 1800 D.M. 

THE ROUTINES SHOULD BE EXECUTED IN SEQUENTIAL ORDER FOR 

CORRECT INDICATION. 

2.2 EQUIPMENT 

2841 FILE CONTROL UNIT WITH THE 2-CHANNEL SWITCH FEATURE, 
CONNECTED TO ONE CPU WITH BOTH FILE CONTROL INTERFACES 
ATTACHED TO THE SAME CHANNEL. THE CONTROL UNIT ADDRESS OF 
EACH INTERFACE MUST BE DIFFERENT. 

ONE I/O MONITOR BOX 

ONE 2311 ACCESS MECHANISM. 

ONE HARD COPY OUTPUT DEVICE. 

ONE LOADING DEVICE. 

ONE 2311 DISK PACK WITH STANDARD HOME ADDRESSES. 

3. OPERATING PROCEDURE 

3.1 LOADING 

THE STANDARD LOADING PROCEOURE AS DESCRIBED IN THE DIAGNOSTIC 
MONITOR USE PROCEDURE IS UTILIZED. 

**NOTE** DO NOT INCLUDE DEVICE ADDR ON D.M. EDIT. 

THE 2311 DISK DRIVE ADDRESS IS ENTERED 
IN SWITCH FNCT 2 AFTER **SELECT OPTIONS** 
HAS BEEN PRINTED. SEE SECTION 3.2.2 



3.2 OPERATION 

3.2.1 JUMPER CABLE CONNECTIONS 

***************************************************** 

* . * 

* CABLE CONNECTION FOR SINGLE CPU. ONE CHANNEL * 

* CONNECTION * 
* 



***************************************************** 

WHEN TESTING THE 2-CHANNEL SWITCH FEATURE, THE ONE CPU METHOD OF 
CABLE JUMPERING AT THE 2841 IS REQUIRED. THE TABLE BELOW INDICATES 
THE PROPER JUMPER AND TERMINATOR COMBINATIONS. 



INTF A INTF B 

********************************* 

* * * 
BUS IN * E * A * 

* * * 
********************************* 

* * * 
TAG IN * F * B * 

* * * 
********************************* 

* * * 
BUS OUT * G * C * 

* * * 
********************************* 

* * * 
TAG OUT * H * o * 

* * * 
********************************* 

********************************************************* 

* TERMINATOR OR CHAN * 

* CABLE TO NEXT DEV * 
IF SYS A* BUS OUT CONNECTION G-TO-A BUS IN C * 
* 1 ONLY* TAG OUT CONNECTION H-TO-B TAG IN D 



********************************************************* 
********************************************************* 

* TERMINATOR OR CHAN * 

. ' * CABLE TO NEXT DEV * 

IF SYS B* BUS OUT CONNECTION C-TO-E BUS IN G * 

* 2 ONLY* TAG OUT CONNECTION D-TO-F TAG IN H * 

******************************* ************************** 

USE CABLES P/N 5353920 -24 INCH FIXED LENGTH- B/M 5373074 

THIS PLACES BOTH FILE CONTROL INTERFACES ON THE SAME SELECTOR 
CHANNEL. IT SHOULD BE NOTED THAT THE TWO FILE INTERFACE ADDRESSES 
MUST BE DIFFERENT. FOR EXAMPLE. ASSUME CHANNEL 1 IS TO BE USED 
AND THE CONTROL UNIT ADDRESSES OF THE TWO INTERFACES ARE CHANNEL -A- 
AND CHANNEL -B- . THIS CONNECTION CAN BE MADE WITH THESE INTERFACES. 
HOWEVER. IF BOTH CONTROL UNIT ADDRESSES WERE IDENTICAL, THIS 
CONNECTION CANNOT BE MADE. 
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3.2.2 PROGRAM OPERATION 



1) 



INSTALL CE PACK OR SCRATCH PACK WITH STANDARD HOME ADDRESSES 
ON THE ACCESS TO BE TESTEO . 



2) PROGRAM OPTION SWITCHES SW FNC 0.' (NORMAL RUN. WITH ALL 

SWITCHES. GIVES ERROR PRINTOUTS. CONTINUE ON ERROR. AND BYPASS 
OPTIONAL ROUTINES.) 

NOTE- 'TURN ON* OPTION SWS IMPLIES SETTING THE SPECIFIED 

BITS «ON» IN THE INDICATED SWITCH FUNCTION BY SETTING 
UP THE S/P AND D/E SWS AND PERFORMING A « CONSOLE 
INTERRUPT*. 

THE PROGRAM FUNCTION SWITCHES SHOWN BELOW ARE IN THE MONITOR 
INTERFACE TABLE IN THE PROGRAM LISTING. BITS ARE ZERO WHEN »OFF« AND 
•ONE* WHEN ON. 

2-CHANNEL SWITCH DFT FUNCTION O 
CONTROL FUNCTION 



!i.?? UTINe SELECTI <* SWITCHES- SW FNC I. THIS SWITCH IS USED TO 
StSr..?"!!^* T eXECUT,OM » WE FORMAT OF THE SWITCHES IS OOSR. 
WMSRS •*• IS THE SELECTED SECTION AK> .R. IS THE SELECTED ROUTINE 

-IT! 41 -.™* 1 SECTIOM » "' «-• AU, ROUTINES IN THE SELECTED SECTION 
WILL BE RUN. IF S-0 ALL NORMAL SECTIONS U-3) WILL BE RUN. 



••NOTE 



********************* 

* SENSE/PROGRAM * 

• 01234567 • 

* * 

• 00010011 * 



1. SET FUNCTION 00 IN S/P SWS AND 1 

2. SET PID IN S/P SWS 2-THRU-7. 

3. 3r / DESIRED CONTROL OPTIONS IN O/E 
SWS 8-15. AS SHOWN. 

4. PRESS CONSOLE INTERRUPT. 
*♦♦♦•♦♦*♦************************•*******************************,„ 
* DATA ENTRY SWITCHES DESCRIPTION * 

1 2 3 4 5 6 7 8 9 13 11 12 13 14 15 * 



^flf- 1 ?.* » ECTI °" OR * ROUTINE IS INDIVIDUALLY SPECIFIED. 
THAT SECTION OR ROUTINE WILL BE LOOPED. 

rSu?^ 09 * !^^ !!^^ 8 ,N SECT »°" ♦• * E «- E CT S-4 AND THE DESIRED 

««£ SPEC^IN^^T"* T «rrV L iV OPT,ONAl - ROUT,NES ™ ™AT SECT m. 
•WW SPECIFYING ALL OF SECT 4. IT IS ADVISABLE TO ALSO SFLFfT 

T«1 JE'EfWSSttZ. F?^ ,0N T ° ~«^ "SStSn'S WHEN 
THE SECTION HAS BEEN COMPLETED. SINCE IT WILL BE LOOPEO. 

2-CHANNEL SWITCH DFT FUNCTION I 
--—ROUTINE SELECTION FUNCTION-— 

•********•*•******,** 

* SENSE /PROGRAM * 

* 12 3 4 5 6 7 * 

* • 

* 10 10 11 * 



1. 



1. SET FUNCTION 01 IN S/P SWS AND 

2. SET PID IN S/P SWS 2-THRU-7. 

3. SET DESIRED SECT/RTN CONFIGURATION 
IN D/E SWS 8-11, 12-18. RESPECTIVELY 

- « • » » u o 1 l * 4. DEPRESS CONSOLE INTERRUPT. 

* W .*******,****»„ W ******„^„„^^^^ N ^«*T. 

• DATA ENTRY SWITCHES DESCRIPTION * 



1. » EXIT ERR HALT LOOP * 

1 . . . HALT-ON-ERROR * 

1. • • * . BYPASS ALL PRINTOUTS* 

1 ..... • LOOP-ON-ERROR * 

* 
1......... PRINT RTN TITLES * 

* 

!••■•• LOOP START I/O * 

(TIGHT SCOPE LOOP) • 

••♦♦•♦•♦*********************************»*******************^, Ml 

♦♦NOTE** THE OBJECT OF OPTION SW 8 IS TO PROVIDE A 

SCOPING OR TROUBLE-SHOOTING LOOP THAT 
CONSTANTLY REPEATS A SINGLE SIO PERTAINING 
TO A CCW CHAIN. THE MOST EFFECTIVE WAY TO 
USE THIS SENSE SW IS IN CONJUNCTION 
WITH THE OPTION SW 14 — HALT-ON-ERROR — . 
WHEN AN ERROR MESSAGE IS PRINTED BY A RTN, 
A HALT OCCURS IF THE HALT-ON-ERROR SWITCH 
(SW FNC 0, BIT 14) IS ON. IF DURING THIS 
HALT, SW 8 WERE TURNED ON, THE CHAIN THAT 
CAUSED THE ERROR IS LOOPED WHEN THE PROGRAM 
EXECUTION IS RESUMED. 



12 3 4 6 6 7 



8 9 10 11 12 13 14 is 



R R R, 



S S S S. 



* 

* 

ROUTINE • IN HEX * 

(OsRUN ALL RTNS) * 

SECTION » IN HEX * 

(0=RUN ALL SECTS) * 

* 



, 4 U L»- EV,C6 SE1 - ECT,0 »'» S* fMC 2 IS USED TO SELECT THE DEVICE 

oTtSe S}l\JL m tn'Xr *?"*%** " PLACB> ,N ™ E * LOW-ORDER BITS 
rL.I_f- " S * WT8 ,2 "- 15 >» THE INTERFACE -A- FILE CONTROL 

^ R !f! " "*«"» IN BITS 4-7. THE INTERFACE -B- FILE CONTROL 
ADDRESS IS INSERTED IN BITS 6-1 I . r * 



2-CHANNEL SWITCH DFT FUNCTION 2 
DEVICE SELECTION FUNCTION 

********************* 

♦ SENSE PROGRAM * 

* 01234567 • 

• * 

* * 

♦ 10010 11 • 



. SET FUNCTION 10 IN , S/P SWS • AND 1. 
. SET PID IN S/P SWS 2-THRU-7. 
• SET 2841/2311 ADORESS INTO D/E SWS 
4-15. AS SHOWN. 
- - - - - -r. PRESS CONSOLE INTERRUPT. 

***»*♦***********•**•************************************,, 

* * , , D i T t « NTR : 5 * ITCHES DESCRIPTION * 

* 1 2 3 4 S 6 7 8 9 10 11 12 13 14 IS * 

* ' • 

U U U U. . 2311 UNIT TO BE USED* 

* **».* INTERFACE -B- ADDR * 

* *AA A. INTERFACE -A- ADDR * 

•••***********************************************„ +< , < ,^,^ 1> , >#+!(i * 
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3.3 PROGRAM HALTS. 



1300 *** SELECT OPTIONS *** 

THIS HALT LOOP OCCURS PRIOR TO PROGRAM EXECUTION TO ALLOW 
SETTING OF THE FUNCTION (OPTION) SWITCHES. IF OPTIONS ARE 
DESIRED THEY MUST BE ENTERED BEFORE ENTERING FUNCTION SW 2 
(INTERFACE-OEVICE SELECT), AS PROGRAM EXECUTION BEGINS AT 
THIS TIME. 

1300 ***HALT — 2 CH SW DIAGNOSTIC ADRS AAAA 
— TO CLEAR HALT SET SWITCHES 
S/P OOPP PPPP, P=PID 
DES XXXX XXXX XXXX XXXO 
-PRESS CONSOLE INTERRUPT 

HALT AFTER ERROR, UNLESS BYPASSED, IS A LOOP THAT ALLOWS 
SELECTION AND LOOP EXIT USING THE SAME SWITCH FUNCTION (.NC 0). 
BESIDES THE NORMAL HALT AFTER ERROR DESCRIBED ABOVE, THERE 
ARE SEVERAL ERROR COW IT IONS IN WHICH THE PROGRAM CANNOT 
CONTINUE. (EXAMPLE ACCESS NOT READY, HANG UP BUSY, ETC.) 
THE ERROR MESSAGE WILL IDENTIFY SUCH CONDITIONS. 



* ** NOTE ** A SELECTOR CHANNEL RESET WITH * 

* THE I/O MONITOR BOX IS COMPUL- * 

* SORY WHEN CHANNEL STATUS IS * 

* 'ADAPTER BUSY* OR 'PROGRAM * 

* CHECK'. IT IS ADVISABLE TO * 

* RESET AFTER -ALL- ERRORS. * 



NECESSARY INSTRUCTION TO EXIT THE ERROR HALT LOOP ACCOMPANY 
ENTRY TO THE LOOP VIA A PRINTOUT. WHILE IN THE LOOP VARIOUS 
SWITCH FUNCTION OPTIONS CAN BE ENTERED ALONG WITH BIT 15=0, 
WHICH PROVIDES THE EXIT. BIT 15=0 ALONE WILL RESULT IN A NORMAL 
EXIT, IN MOST CASES THE ROUTINE WILL TERMINATE. 

1) SETTING BIT 12 WILL EXIT TO THE SEQUENCE THAT PRODUCED 
THE ERROR. THIS WILL USUALLY BE THE START OF THE ROUTINE. 

2) SETTING BIT 8 WITH 13 WILL EXIT TO THE FAILING FUNCTION 
AND LOOP ON THE FUNCTION CAUSING THE ERROR WITHOUT ERROR 
PRINTOUTS. (TIGHT SCOPE LOOP) 

3) SETTING BIT 13 WITH 12 WILL EXIT TO THE FAILING SEQUENCE 
AM) LOOP THROUGH THE ROUTINE WITHOUT PRINTING ERRORS OR 
HALTING ON THE ERROR. (LONG SCOPE LOOP) THESE OPTIONS SHOULD 
BE THE MOST USEFUL. SEE TABLE OF OPTIONS FOR OTHER 
APPLICATIONS. 

**NOTE** THIS PROGRAM IS DESIGNED TO BE THE MOST EFFECTIVE 
WHEN RUNNING UNDER HALT-AFTER-ERROR-PRINTOUT MODE. 
IF THE USER WISHES TO RUN IN THIS MODE. SW FUNCTION 0, 
BIT 14 MUST BE 'ON* . 



3.4 PROGRAM TERMINATION. 

1300 **END OF DFT** 

END-OF-OFT MESSAGE IS PRINTED AT COMPLETION OF NORMAL TEST. 
PROGRAM WILL TERMINATE UNLESS MONITOR SW FNC O LOOP PROGRAMS 
OPTION (BIT 11) IS SELECTED. 

PRINTOUTS 

MESSAGE FORMATS 

ERROR MESSAGES 

THE PRIMARY MESSAGE FROM THIS PROGRAM IS AN ERROR NUMBER. THE 
PURPOSE OF THE NUMBER IS TO REFER THE USER TO A DESCRIPTION OF THE 
ERROR CONDITION IN THIS DOCUMENT. (SECT 4.2) THE ERROR DESCRIPTION 
PROVIDES DIAGNOSTIC INFORMATION ABOUT THE ERROR AND SCOPE-LOOP 
OPTIONS. 

ERROR NUMBER FORMAT 

1> SIO, TIO, SENSE I/O ERRORS — 

1300 **ERR- ERROR ON SIO. SECTION S, ROUTINE R. UNIT UU ADRS AAAA 

2) ERROR NUMBER WITH MESSAGE. 

1300 **ER XX MESSAGE UNIT UU ADRS AAAA 

3) NORMAL ERROR NUMBER PRINTOUT. 
1300 **ER SRXX UNIT UU ADRS AAAA 

4) THE SECOND LINE OF AN ERROR PRINTOUT GIVES VARIABLE DATA 

ON MACHINE CONDITIONS. SENSE BYTES WILL USUALLY NOT BE PRINTED. 

CAW KKKK CSW YYYY UUZZ ADRS CNTR SNS B-B B-B B-B B-B 

5) LEGEND OF CHARACTERS- 

S SECTION NUMBER 

R ROUTINE NUMBER 

XX SEQUENTIAL ERROR NUMBER WITHIN EACH ROUTINE 

UU CHANNEL AND DEVICE ADDRESS ADDRESS IN HEX 

AAAA ADDRESS OF ERROR BRANCH t STORE I -REG INSTR 

IN PROGRAM LISTING. 

KKKK CHANNEL ADDRESS WORD FOR THE CCW CHAIN 

ADRS CHANNEL CCW ADDRESS REGISTER 

YYYY CHANNEL STATUS IN HEX 

UUZZ UNIT ADDRESS/UNIT STATUS IN HEX 

CNTR CHANNEL BYTE COUNT REGISTER 

B-B SENSE BYTES IN BINARY 



**NOTE** IF THE SELECTOR CHANNEL AND THE LOG DEVICE SHARE 
A DATA CHANNEL, CAUSING A CONSOLE INTERRUPT MAY 
RESULT IN MONITOR 'WAIT 9*. (3009) 
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4.1 



4.1.1 



OPERATOR MESSAGES 



1300 



1 - 

2 - 

3 - 



-A- TO — DISABLE — 



PLACE 2841 ENABLE SW ON INTF 
STOP CPU WITHIN 30 SECONDS- 
CONTINUE PROGRAM AFTER THIS IS PERFORMED- 



THE INTERFACE -A- SWITCH OF THE FILE CONTROL UNIT IS TO BE PLACED 
IN THE DISABLE POSITION AND THE CPU • STOPPED /STARTED • WITHIN 
30 SECONDS AFTER THE MESSAGE IS PRINTED. 

4.1.2 1300 1 - PLACE 2841 ENABLE SW ON INTF -A- TO — ENABLE— 

2 - STOP CPU WITHIN 30 SECONDS- 

3 - CONTINUE PROG AFTER THIS IS PERFORMED- 

THE INTERFACE -A- SWITCH OF THE FILE CONTROL UNIT IS TO BE 
PLACED IN THE ENABLE POSITION AND THE CPU •STOPPED/STARTED' 
WITHIN 30 SECONDS AFTER MSG IS PRINTED. 



1300 1 - PLACE 2841 ENABLE SW ON INTF 
2 - PGM WILL WAIT FOR 30 SECONDS 



-A- TO 



-DISABLE— 



THE INTERFACE -A- SWITCH OF THE FILE CONTROL UNIT IS TO BE PLACED 
THEN H CONT?NUEf P ° SIT1 ° N - ™ E PR ° GR *M WILL TIME-OUT FOR 30 SECONDS. 



4.1.4 1300 1 - PLACE 2841 ENABLE SW ON INTF -A- 
2 - PGM WILL WAIT FOR 30 SECONDS 

THE INTERFACE 



TO — ENABLE — 



4.1.7 



SWITCH OF THE FILE CONTROL UNIT IS TO BE PLACED 
IN THE ENABLE POSITION. THE PROGRAM WILL TIME-OUT FOR 30 SECONDS, 
THEN CONTINUE. (ASSUMING THAT STEP 1 HAS BEEN PERFORMED.) 



4.1.5 1300 



1 - PLACE 2841 ENABLE SW ON INTF -B 

2 - STOP CPU WITHIN 30 SECONDS- 

3 - CONTINUE PROG AFTER THIS IS PERFORMED- 



TO — DISABLE 



THE INTERFACE -B- SWITCH OF THE FILE CONTROL UNIT IS TO BE PLACED 
IN THE DISABLE POSITION AND THE CPU • STOPPED /STARTE D • WITHIN 
30 SECONDS AFTER THE MSG IS PRINTED. 



4.1.6 1300 



-B- TO 



1 - PLACE 2841 ENABLE SW ON INTF 

2 - STOP CPU WITHIN 30 SECONDS 

3 - CONTINUE PROG AFTER THIS IS PERFORMED 



■ENABLE 



THE INTERFACE -B- SWITCH OF THE FILE CONTROL UNIT IS TO BE PLACED 
IN THE ENABLE POSITION AND THE SPU 'STOPPED /STARTED < WITHIN 
30 SECONDS AFTER THE MSG IS PRINTED. 



1300 



1 - PLACE 2841 ENABLE SW ON INTF 

2 - PGM WILL WAIT FOR 30 SECONDS 



TO — DISABLE- 



THE INTERFACE 
IN THE ENABLE 
THEN CONTINUE. 



B- SWITCH OF THE FILE CONTROL UNIT IS TO BE PLACED 
J!"LT H L!:-?f!. L f POSITION - THE PROGRAM WILL TIME-OUT FOR 30 SECONDS, 



4.1.8 



1300 



PLACE 2841 ENABLE SW ON INTF -B- TO 
PGM WILL WAIT FOR 30 SECONDS 



-ENABLE — 



THE INTERFACE -B- SWITCH OF THE FILE CONTROL UNIT WI TO BE PLACED 
IN THE DISABLE POSITION. THE PROGRAM WILL TIME-OUT FOR 30 SECONDS. 
THEN CONTINUE. 



4.1.9 1300 



1 - STOP THE CPU WITHIN 30 SECONDS. 

2 - CONTINUE THE PROGRAM. 



THE CPU IS TO BE 'STOPPED/STARTED' WITHIN 30 SECONDS AFTER 
THE MESSAGE IS PRINTED. 

4.2 STATUS MESSAGES 

4.2.1 2-DIGIT ERROR NUMBERS (ERXX) 

THESE ERRORS ARE DETECTED AND PRINTED BY THE HOUSEKEEPING 
(COMMON) SUBROUTINES OF THE PROGRAM. 

1300 **ER00 UNEXPECTED INTERRUPT 

AN INTERRUPT OCCURRED ON THE SELECTOR CHANNEL WHILE THIS PROGRAM 
DID NOT -OWN- THE CHANNEL. OR THE INTERRUPT WAS NOT FROM THE UN^T 
UNDER TEST. EXAMINE THE CSW FOR FURTHER INFORMATION. 

1300 **ER02 ADAPTER HUNG BUSY 

AN ADAPTER BUSY CONDITION WAS DETECTED ON THE TEST I/O AT 
THE BEGINNING OF THE START I/O SUBROUTINE. 

•ADAPTER BUSY- INDICATES CHANNEL OR SUB-CHANNEL BUSY. THIS 
INDICATES MISSING DEVICE END ON PREVIOUS OPERATION. CAW 

PM.^Ur ITJJI^ 5 PREVI0USLY ^ECUTED COMMAND CHAIN. RECOMMEND 
PLUGGING DISPLAY PORTION OF CE I/O MONITOR BOX. 

USER SHOULD DO A RESET-RESTART TO CLEAR BUSY CHANNEL. 

1300 **ER06 CHANNEL HUNG AFTER TEST I/O 

THE CAW AND CSW ARE PRINTED WITH THIS MESSAGE. THIS MESSAGE 
INDICATES THAT AN ADAPTER BUSY CONDITION WAS DETECTED BY THE 
TEST I/O ROUTINE AFTER THE TEST I/O WAS ISSUED. 

IF CONTROL UNIT IS HUNG-UP TRY RESET-RESTART. 

1300 **ER21 ERROR ON SNS SECT X, RTN X 

PROGRAM DETECTED UNIT CHECK ON A SENSE I/O IN THE SENSE I/O 
SUBROUTINE. TEST I/O AND START I/O HAVE ALREADY BEEN TESTED. 
SHOULD NOT GET THIS ERROR EXCEPT ON INTERMITTENT FAILURES. THE 
SECTION AND ROUTINE BEING EXECUTED WHEN THE ERROR OCCURED IS 
PRINTED WITH ERROR NUMBER. EXAMINE ACCUMULATED STATUS DATA IN CSW 
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1300 **ER22 ERROR ON SNS SECT X, RTN X 

PROGRAM EXECUTED A SENSE I/O AND RECEIVED A BUSY CONDITION. 
PRINTOUT GIVES SECTION AND ROUTINE BEING EXECUTED WHEN THE 
ERROR OCCURED. 

DETERMINE WHY CONTROL UNIT WENT BUSY. SHOULD BE RELATED TO THE 
ROUTINE BEING EXECUTED. CAW PRINTOUT INDICATES PREVIOUSLY EXECU- 
TED COMMAND CHAIN. 

1) USER SHOULD DO A RESET-RESTART TO CLEAR BUSY CONDITION. 

2) CONTROL UNIT HUNG UP - PROBABLY CAN'T LOOP. 

3) TRY LOOPING IN ROUTINE. 



1300 **ER23 ERROR ON SNS SECT X, RTN X 
NOT OPERATIONAL ON SENSE I/O - 



1300 **ER28 -UNEXPECTED INTRPT NOT RECEIVED- -RTN ABORT 
PENDING- UNIT UU ADRS AAAA 



.THE ABOVE MSG APPEARS ON ONE PRINTER LINEi 



THIS ERROR IS DETECTED AND INDICATED BY ROUTINES 1 AND 2 OF SECTIONS 
2 AND 3. THE PROGRAM HAS FAILED TO RECEIVED AN INTERRUPT AFTER 
WAITING FOR APPROXIMATELY .6 SECONDS. NO STATUS INFORMATION 
WILL ACCOMPANY THIS MESSAGE. HOWEVER. ANOTHER ERROR MESSAGE 
IMMEDIATELY FOLLOWS, WHICH IS REDEFINED AS BEING CAUSED BY 
•EXPECTED I/R NOT RECEIVED'. IT'S ASSOCIATED STATUS INFORMATION, 
IF NOT 'ADAPTER BUSY' OR 'PROGRAM CHECK', HAS PROBABLY BEEN 
RETAINED FROM THE PREVIOUS OPERATION AND IS NOT VALID FOR THE 
CURRENT OPERATION, IN WHICH CASE IT MUST BE DISREGARDED. THE 
CURRENT ROUTINE WILL BE ABORTED WHEN THE PROGRAM CONTINUES. 
IF HALT OPTION RESULTED IN A 'HALT' AFTER THIS ERROR, IT IS 
RECOMMENDED THAT A SELECTOR CHANNEL RESET BE PERFORMED WITH THE 
I/O MONITOR BOX PRIOR TO PROGRAM CONTINUATION. 

NOTE** LOOP ON ERROR AND SCOPE LOOPS ARE NOT AVAILABLE. 



4.3 TITLE MESSAGES 

4.3.1 PROGRAM TITLE MESSAGE 

1300 2 CHNL SW DIAGNOSTIC TEST ON UNITS CUU CUU 
PASS- XX 



4.3.2 ROUTINE TITLE MESSAGES 

TITLE MESSAGES ARE PRINTED PRIOR TO ESECUTION OF EACH ROUTINE 
IF BIT 10 OF SW FNC IS ON. 

EACH MESSAGE LISTED BELOW WILL APPEAR ON ONE PRINTER LINE. 

1300 SECT 1, RTN1 -ADD R D EV FROM INTF-A- AND INTF-B- WITH SEEK CCW. 

1300 SECT 2, RTN1 -RESERVE TO INTF-A-, ADD R ON INTF-B-, 

RELEASE FROM INTF-A-, CLR D EV END FROM INTF-B-. 

1300 SECT 2, RTN2 -RESERVE TO INTF-B-, ADD R ON INTF-A-, 

RELEASE FROM INTF-B- , CLR DEV END FROM INTF-A-. 

1300 SECT 3, RTN1 -CHKS CHNL SEL SW DOES NOT RTRN TO 

NEUTRAL WHEN END STATUS ON INTF-A- WAS UNIT CHK. 

1300 SECT 3, RTN2 -CHKS THAT CHNL SEL SW DOES NOT RTRN TO 

NEUTRAL WHEN END STATUS ON INTF-B- WAS UNIT CHK. 

1300 SECT 4, RTN1 -CHKS THAT INTF-A- IS DSBLD WHEN SW. DSBLD, CHNL 
SEL. SW. NEUTRAL. AND CLOCK OUT DOWN. 

1300 SECT 4, RTN2 -CHKS THAT INTF-B- IS DSBLD WHEN SW . DSBLD, CHNL 
SEL. SW. NEUTRAL, AND CLOCK OUT DOWN. 

1300 SECT 4, RTN3 -CHKS THAT INTF-A- IS NOT DSBLD WHEN SW DSBLD, 
CHNL SEL. SW. NEUTRAL. AND CLOCK OUT UP. 

1300 SECT 4, RTN4 -CHKS THAT INTF-B- IS NOT DSBLD WHEN SW DSBLD, 
CHNL SEL. SW NEUTRAL. AND CLOCK OUT UP. 

1300 SECT 4, RTN5 -CHKS THAT INTF-A- IS NOT SBLD WHEN SW DSBLD, 
CHNL SW SEL. TO -A-, AND CLOCK OUT DOWN. 

1300 SECT 4, RTN6 -CHKS THAT INTF-B- IS NOT DSBLD WHEN SW DSBLD, 
CHNL SW SEL. TO -B-, AND CLOCK OUT DOWN. 

1300 SECT 4, RTN7 -CHKS INTF-A- REMAINS DSBLD WHEN SW -A- 
GOES FROM DSBL TO ENBL WITH CLOCK OUT UP. 

1300 SECT 4, RTN8 -CHKS INTF-B- REMAINS DSBLD WHEN SW -B- 
GOES FROM DSBL TO ENBL WITH CLOCK OUT UP. 
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5. COMMENTS 



**NOTE 



THROUGHOUT THIS SECTION OF THE DOCUMENT THE FILE CONTROL 
INTERFACES ARE REFERRED TO AS INTERFACE -A- AND INTERFACE 
-B-. THIS IS MERELY CONVENIENT TERMINOLOGY USED BY THIS 
DOCUMENT AND DOES NOT NECESSARILY REFER TO THE ACTUAL FILE 
INTERFACES AS LABELED ON THE INTERFACE 'ENABLE/DISABLE' 
SWITCHES. 



THE ERROR NUMBERS ARE OCCASIONALLY REFERRED TO AS SRXX IN THE 
FOLLOWING ROUTINE DESCRIPTIONS. THE MESSAGES ARE DESCRIBED 
INDIVIDUALLY IN THE COMMENTS ON ERROR NUMBERS SECTION. THE • XX • 
PORTION OF THESE MESSAGES MUST NOT BE CONFUSED WITH THE 2-DIGIT 
MESSAGE NUMBERS • XX < , WHICH ARE COMMON TO ALL SECTIONS/ROUTINES. 

EACH ROUTINE ASSUMES THE FILE CONTROL SWITCH IS INITIALLY IN THE 
NEUTRAL POSITION. IF, DUE TO AN ERROR CONDITION. THE CHANNEL OR 
SWITCH •HANGS', IT WILL BE NECESSARY TO PERFORM A SYSTEM 'RESET/ 
START' IN ORDER TO RESTART PROGRAM EXECUTION. 

5.1 COMMENTS BY SECTION, ROUTINE. 

5.1.1 SECTION 1, ROUTINE 1 

PURPOSE 

THE FUNCTION OF THIS ROUTINE IS TO ADDRESS AN ACCESS VIA BOTH CHANNEL 
INTERFACES OF THE FILE CONTROL SWITCH TO MAKE CERTAIN PROPER RESPONSE 
IS RECEIVED. THE ERROR NUMBER ASSOCIATED WITH THIS ROUTINE IS 
SR03 • 

METHOD 

AN ACCESS IS SEEKED TO CYLINDER 0, HEAD VIA EACH FILE CONTROL 
INTERFACE, THEREFORE THE ACCESS IS ADDRESSED TWICE. ERROR 
NUMBER SR03 IS PRINTED IF UNEXPECTED RESULTS ARE RECEIVED. 
UNIT STATUS OF DEVICE END AND CHANNEL END IS EXPECTED. 

5.1.2 SECTION 2, ROUTINE 1 
PURPOSE 

THE DEVICE-ALLOCATION COMMANDS ARE CHECKED BY THIS ROUTINE. AN 
ACCESS IS RESERVED TO FILE CONTROL INTERFACE -A- AND ADDRESSED 
ON INTERFACE -B-. A DEVICE BUSY IS EXPECTED FROM INTERFACE -B-. 
THE ACCESS IS THEN RELEASED FROM INTERFACE -A-. POLLING IS 
RELIEVED AND A DEVICE END STATUS IS EXPECTED FROM THE ACCESS VIA 
INTERFACE -B-. THE ERROR NUMBERS ASSOCIATED WITH ROUTINE ARE 
SR05, SR09, SR10, SR11, SR12, AND SR13. 



METHOD 

AN ACCESS IS RESERVED TO INTERFACE -A-. IF AN ERROR OCCURS WHEN 
ATTEMPTING TO RESERVE THE ACCESS AN ERROR NUMBER SR09 IS PRINTED. 
AFTER THE ACCESS HAS BEEN RESERVED TO INTERFACE -A-, IT IS 
ADDRESSED ON INTERFACE -B- WITH A SENSE COMMAND. THE INITIAL 
STATUS RESPONSE SHOULD BE DEVICE BUSY WHEN THE ACCESS IS ADDRESSED. 

S 1 E 1° R ° CCURS WHILE ™ IS IS PERFORMED. AN ERROR NUMBER 
IS PRINTED. IF NO ERRORS OCCUR. THE PROGRAM TIMES-OUT FOR 

AN P irr^o T no Y c° NE SEC0NC « N0 °THER INTERRUPTS SHOULD OCCUR. IF 
tltrfrffr E AN INTERRUPT AN E« R OR NUMBER SRI2 IS PRINTED, 

INDICATING WHICH UNIT CAUSED THE INTERRUPT. THE ACCESS IS NOW 

T n L Rpf^« R ? M INTERFACE - A -« "* ^ ERROR OCCURS WHEN ATTEMPTING 
TO RELEASE THE ACCESS AN ERROR NUMBER SR10 IS PRINTED. POLLING IS 
RELIEVED AW THE PROGRAM EXPECTS A DEV!CE END INTERRUPT FROM THE 

Cf C ^r,olLi NTERFACE " B "* IF ™ E ACCESS FAILS T ° INTERRUPT. OR 

IF INCORRECT STATUS IS RECEIVED FROM THE ACCESS, AN SR13 ERROR NUMBER 

IS PRINTED. WHEN THIS HAS COMPLETED. A ROUT INE EX I T I S pIrFORMEdT 

5.1.3 SECTION 2, ROUTINE 2 

SAME AS ROUTINE 1 EXCEPT THE FUNCTIONS PERFORMED ON THE INTERFACES 
ARE REVERSED. 

5.1.4 SECTION 3, ROUTINE 1 
PURPOSE 

THIS ROUTINE CHECKS THAT THE CHANNEL SELECTION SWITCH DOES NOT 
RETURN TO NEUTRAL WHEN THE ENDING STATUS CONTAINS UNIT CHECK. 
THE^ASSOCIATED ERROR NUMBERS ARE SR05. SR15, SR16, SR17, SR18. AND 

METHOD 

THE UNIT CHECK ENDING STATUS IS ACCOMPLISHED ON INTERFACE -A- BY 
ISSUING A SET FILE MASK CHAINED TO A DEVICE RESERVE COMMAND. ANY 
UNEXPECTED RESULTS ARE INDICATED WITH ASSOCIATED ERROR NUMBERS OF 
SR15 AND SR05. IF UNEXPECTED RESULTS ARE ENCOUNTERED AT THIS 
TIME THE ROUTINE IS ABORTED. IF NO ERRORS ARE ENCOUNTERED A 
TEST I/O AND A NO-OPERATION ARE PERFORMED TO THE SAVE DEVICE ON 
INTERFACE -A-. THE RESERVATION OF THE SWITCH TO INTERFACE -A- SHOULD 
NOT BE RESET. IF AN ERROR OCCURS ON THE NO-OPERATION IT IS 
INDICATED WITH ERROR NUMBERS OF SR16. AND SR05. IF AN ERROR IS 
ENCOUNTERED THE ROUTINE IS ABORTED. AFTER THIS HAS BEEN SUCCESSFULLY 
^!™fl!? THE FILE C0NTR0L IS ADDRESSED WITH A SENSE COMMAND ON 
INTERFACE -A-. THE RESPONSE SHOULD BE CONTROL UNIT BUSY. IF 
CONTROL UNIT BUSY IS NOT PRESENTED. OR IF ANY OTHER UNUSUAL CONDITION 
IL tl ' AN ERR ° R NUMBER SR18 IS PRINTED. A SENSE COMMAND IS 

NOW PERFORMED ON INTERFACE -A- TO INSURE THAT THE SENSE DATA HAS 
NOT BEEN RESET. THE SENSE DATA SHOULD INDICATE COMMAND REJECT 
A ^, r ?e ALID SEQUENCE * IF A N ERROR IS DETECTED AN ERROR NUMBER 
SR17 IS PRINTED. POLLING IS RELIEVED AND A CONTROL UNIT END 
INTERRUPT SHOULD OCCUR VIA INTERFACE -B-. THE I/O ADDRESS 
ASSOCIATED WITH THE INTERRUPT SHOULD BE THAT OF FILE CONTROL UNIT 
BASE ADDRESS. ANY UNUSUAL CONDITIONS ARE INDICATED BY AN ERROR 

lTpERFORMEr J MESSAGE ' "**" ™ IS HAS BEEN C0MPLETED A ROUTINE EXIT 
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5.1.5 SECTION 3. ROUTINE 2 

?™«?«I! UT,Ne * EXCEPT THE FUNCTIONS PERFORMED ON THE 
INTERFACES ARE REVERSED. 



5.1.6 SECTION 4. ROUTINE 1 



**NOTE»* 



PURPOSE 



THIS SECTION IS OPTIONAL. IF IT IS DESIRED TO RUN 
THIS ENTIRE SECTION, SECTION 4, ROUTINE MUST BE 
SPECIFIED IN SW FNC 1. 



THIS ROUTINE CHECKS THAT FILE CONTROL INTERFACE -A- CAN BE 
on^Tw!?* THE 1NTERFACE "A" SWITCH IS PLACED IN THE DISABLE 
^wfrru °? C WHILE C-OCK-OUT IS DOWN. AND WHILE THE CHANNEL SELECTION 
If! ,1 ™ E NEUTRAL POSITION. THIS ROUTINE IS NORMALLY NOT 

umct » c IS DESIRED T0 RUN THIS ROUTINE, SECTION 4. ROUTINE 1 
tm!I I SPECIFIED IN SW FNC 1. THE ERROR NUMBERS ASSOCIATED WITH 
THIS ROUTINE ARE SR20 AND SR21. 

METHOD 

SWI 1 TCH A Tn nfcfm f N ^ STRUCT10N THE USER TO PLACE INTERFACE -A- 
SWITCH TO DISABLE. STOP. THEN START THE PROCESSOR. CONTINUING 
™L PR0GRAM * THE CHANNEL SELECTION SWITCH IN NEUTRAL, CLOCK-OUT 

;*p,f f iT FACE _A - S " ITCH IN ™ E DISABLE POSITION SHOULD 
DISABLE FILE CONTROL INTERFACE -A-. THE FILE CONTROL UNIT IS 

BE D pROpf G ATV«v ERFACE " A - WI ™ * SEEK C0MMAW ' SELECT-OUT'SHOULD 
BE PROPAGATED BY THE FILE CONTROL WHICH SHOULD CAUSE THE CHANNEL 

IS,^ T UNIT N ° T OPERATIONAL. THIS INDICATES THAT THE INTERFACE -A- 
SWITCH IS FUNCTIONING PROPERLY. UNEXPECTED RESULTS ARE INDICATED BY 
A MESSAGE WITH ERROR NUMBER SR20 . 

A MESSAGE IS THEN GIVEN INSTRUCTING THE USER TO PLACE THE 
INTERFACE -A- SWITCH TO ENABLE. STOP. THEN START THE PROCESSOR. 
' N !f THE PROGRAM. A SEEK IS NOW PERFORMED TO INSURE THAT 
^pJ E rnuL^".If ENAB <-H>. ANY ERRORS DETECTED WHEN EXECUTING THIS 
SEEK COMMAND ARE INDICATED BY AN ERROR NUMBER SR21 PRINTOUT. 
WHEN THIS IS COMPLETED A ROUTINE EXIT IS PERFORMED. 

5.1.7 SECTION 4, ROUTINE 2 

SAVE AS ROUTINE 1 EXCEPT THE OPPOSITE INTERFACE SWITCH IS TESTED. 

5.1.8 SECTION 4, ROUTINE 3 

PURPOSE 

THIS ROUTINE CHECKS THAT FILE CONTROL INTERFACE -A- IS NOT 
°J, SABLED WHEN THE INTERFACE -A- SWITCH IS PLACED IN THE DISABLE 
POSITION WHEN CLOCK-OUT IS UP. THIS ROUTINE IS NORMALLY NOT RUN. 

ROUtIJV E m IRED J° ^ THIS R0UTINE « THE US ER MUST SELECT SECTION 4. 
ROUTINE 3 IN SW FNC 1. THE ERROR NUMBERS ASSOCIATED WITH THIS 
ROUTINE ARE SR22 AND SR23. 



METHOD 

A MESSAGE IS GIVEN INSTRUCTING THE USER TO PLACE THE INTERFACE -A- 
SWITCH TO THE DISABLE POSITION. THE. PROGRAM THEN TIMES-OUT FOR 
30 SECONDS, ALLOWING TIME FOR THE SWITCH TO BE PLACED IN THE DISABLE 
POSITION WITHOUT DROPPING THE CLOCK-OUT LINE. A SEEK COMMAND IS 
GIVEN VIA INTERFACE -A-, WHICH SHOULD BE EXECUTED. ANY ERRORS ARE 
INDICATED BY AN ERROR NUMBER SR22 MESSAGE. 

NEXT, THE USER IS INSTRUCTED TO PLACE INTERFACE -A- SWITCH TO THE 
ENABLE POSITION. THE PROGRAM AGAIN TIMES-OUT' FOR 30 SECONDS, 
ALLOWING TIME FOR THE INTERFACE -A- SWITCH TO BE PLACED IN THE 
ENABLE POSITION WITHOUT DROPPING THE CLOCK-OUT LINE. ANOTHER SEEK 
COMMAND IS INITIATED TO THE DEVICE ON THE SAME INTERFACE -A-, WHICH 
SHOULD ALSO BE EXECUTED IN A NORMAL MANNER. ANY ERROR IS INDICATED 
BY AN ERROR NUMBER SR24 MESSAGE. WHEN THIS IS ACCOMPLISHED A 
ROUTINE EXIT IS PERFORMED. 

5.1.9 SECTION 4, ROUTINE 4 

SAME AS ROUTINE 3 EXCEPT THE OPPOSITE INTERFACE SWITCH IS TESTED. 

5.1.10 SECTION 4, ROUTINE 5 
PURPOSE 

THIS ROUTINE CHECKS THAT FILE CONTROL INTERFACE -A- IS NOT DISABLED 
WHEN THE INTERFACE -A- SWITCH IS PLACED IN THE DISABLE POSITION 
WHEN CLOCK-OUT IS DOWN AND THE CHANNEL SELECTION SWITCH IS SELECTED 
TO THAT INTERFACE. THIS ROUTINE IS NORMALLY NOT RUN. IF IT IS 
DESIRED TO RUN THIS ROUTINE, SECTION 4. ROUTINE 5 MUST BE 
SPECIFIED IN SW FNC 1. THE ERROR NUMBERS ASSOCIATED WITH THIS 
ROUTINE ARE SR24 AND SR25. 

METHOD 

A SET-FILE-MASK COMMAND CHAINED TO A RESERVE COMMAND IS EXECUTED. 
THIS SHOULD CAUSE A UNIT CHECK STATUS TO BE GENERATED. THE UNIT 
CHECK STATUS CAUSES THE SWITCH TO RETAIN ITS SELECTION TO INTERFACE 
-A-. THE USER IS INSTRUCTED TO PLACE THE INTERFACE -A- SWITCH TO 
DISABLE, STOP, THEN START, THE PROCESSOR, CONTINUING THE PROGRAM. 
STOPPING THE PROCESSOR ALLOWS CLOCK-OUT TO DROP WHILE THE INTERFACE 
-A- SWITCH IS IN THE DISABLE POSITION. THE SELECTION TO THIS 
INTERFACE SHOULD BE MAINTAINED BECAUSE THE UNIT CHECK STATUS 
RETAINS THE SELECTION UNTIL A SENSE OR A COMMAND OTHER THAN TEST I/O 
OR NO-OP IS PERFORMED. A SEEK COMMAND IS ISSUED AND IT SHOULD BE 
PERFORMED IN A NORMAL MANNER. THE USER IS NOW INSTRUCTED TO PLACE 
THE INTERFACE -A- SWITCH TO ENABLE, STOP, THEN START THE PROCESSOR, 
CONTINUING THE PROGRAM. WHEN THIS IS ACCOMPLISHED, A ROUTINE EXIT IS 
PERFORMED . 

UNEXPECTED RESULTS FROM THE ILLEGAL COMMAND CHAIN ARE INDICATED 
BY AN ERROR NUMBER SR24 MESSAGE. 

UNEXPECTED RESULTS FROM THE SEEK COMMAND ARE INDICATED BY AN ERROR 
NUMBER SR25 MESSAGE. 



5.1.11 SECTION 4, ROUTINE 6 

SAME AS ROUTINE 5 EXCEPT THE OPPOSITE INTERFACE SWITCH IS TESTED. 
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5.1.12 SECTION 4. ROUTINE 7 
PURPOSE 

THIS ROUTINE CHECKS THAT INTERFACE -A- REMAINS DISABLED WHEN THE 
INTERFACE -A- SWITCH GOES FROM THE DISABLED POSITION TO THE ENABLED 
POSITION WITH CLOCK-OUT UP. THE ERROR NUMBERS ASSOCIATED WITH THIS 
ROUTINE ARE SR26 AND SR27. IS 

METHOD 

THE USER IS INSTRUCTED TO PLACE THE INTERFACE -A- SWITCH TO DISABLE, 
STOP, THEN START THE PROCESSOR, CONTINUING THE PROGRAM. THIS SHOULD 
DISABLE FILE CONTROL INTERFACE -A-. NEXT. THE USER IS INSTRUCTED TO 
PLACE THE INTERFACE -A- SWITCH TO ENABLE. THE PROGRAM I S NOT 
STOPPED. BUT TIMES-OUT FOR 30 SECONDS FOR THE SWITCH TO BE DISABLED. 
THIS DOES NOT ALLOW CLOCK-OUT TO DROP. A SEEK COMMAND IS ISSUED 
BUT SHOULD NOT BE PERFORMED. SELECT-OUT SHOULD BE PROPAGATED BY 
THIS FILE CONTROL INTERFACE, CAUSING A UNIT-NOT-OPERATIONAL TO BE 
SET BY THE CHANNEL. ANY ERRORS DETECTED AT THIS TIME ARE INDICATED 
BY AN ERROR NUMBER SR26 MESSAGE. THE USER IS NEXT INSTRUCTED TO 
STOP. THEN START THE PROCESSOR, CONTINUING THE PROGRAM. THIS SHOULD 
ENABLE FILE INTERFACE -A- BECAUSE INTERFACE -A- SWITCH IS IN THE 
ENABLE POSITION AND CLOCK-OUT IS DOWN. A SEEK COMMAND IS ISSUED 
AT THIS TIME, WHICH SHOULD BE ACCEPTED AND EXECUTED NORMALLY. ANY 
ERRORS ARE INDICATED BY AN ERROR NUMBER SR27 MESSAGE. WHEN THIS IS 
ACCOMPLISHED A ROUTINE EXIT IS PERFORMED. 

■ 
5.1.13 SECTION 4. ROUTINE 8 

SAME AS ROUTINE 7 EXCEPT THE OPPOSITE INTERFACE SWITCH IS TESTED. 



5.2 COMMENTS BY ERROR NUMBERS 

**NOTE** ONLU THE FIRST ERROR NUMBER WITHIN A SERIES SHOULD BE 
RELIED UPON FOR VALID INFORMATION. IN OTHER WORDS, 
ALLOWING THE PROGRAM TO CONTINUE AFTER THE FIRST ERROR 
MAY RESULT IN MEANINGLESS ERROR INDICATIONS. 

**ER28 -EXPECTED INTRPT NOT RCVD RTN ABORT PENDING- 

THE ABOVE MESSAGE MAY PRECEED ERROR MESSAGE NUMBERS 2109, 2110, 
2111, 2113, 2209, 2210, 2211, 2213, 3115, 3116, 3117, 3118, 3119, 
3215, 3216, 3217, OR 3219. IF THIS OCCURS CONSULD THE ERROR 28 
MESSAGE DESCRIPTION. SINCE THE CAUSE OF THE ERROR IS 'REDEFINED- AND 
THE USER OPTIONS ARE NOW DIFFERENT. REFER TO SECTION 4.2.1 OF 
THIS DOCUMENT. 



ERROR 

» 



SRXX 



1103 



2105 



2109 



2110 



211 1 



2112 



21 13 



COMMENTS 



THIS IS AN ERROR DETECTED BY ROUTINE 1 OF SECTION 1. AN 
ERROR WAS ENCOUNTERED ON A SEEK COMMAND TO AN ACCESS. THE 
SEEK COMMAND SHOULD BE EXECUTED WITHOUT ERROR TO CYLINDER 
0, HEAD 0. 

THIS ERROR MESSAGE INDICATES THAT THE ROUTINE IS BEING 
ABNORMALLY TERMINATED BECAUSE OF A PREVIOUSLY-ENCOUNTERED 
ERROR. THE ERROR IN QUESTION IS PRINTED IN THE MESSAGE 
IMMEDIATELY PRECEED ING. THIS MESSAGE WILL NOT APPEAR 
UNLESS THE PROGRAM WAS ALLOWED TO CONTINUE PAST THE 
PRECEED ING ERROR. 

THIS ERROR IS DETECTED BY ROUTINE I OF SECTION 2. A RESERVE 
TO INTERFACE -A- COMMAND WAS GIVEN TO THE DEVICE INDICATED. 
AN ERROR WAS DETECTED. THE PROGRAM EXPECTED A DEVICE STATUS 
OF CHANNEL END ANB DEVICE END. THIS ERROR WILL RESULT IN 
ROUTINE TERMINATION IF THE PGM IS ALLOWED TO CONTINUE. 

THIS ERROR WAS DETECTED BY ROUTINE 1 OF SECTION 2. A DEVICE 
WAS RESERVED TO INTERFACE -A-, ADDRESSED FROM INTERFACE -B-, 
AND RELEASED FROM INTERFACE -A-. AN ERROR WAS DETECTED WHEN 
RELEASING THE INDICATED DEVICE. THE PROGRAM EXPECTED A CSW 
STATUS OF CHANNEL END AND DEVICE END AND SENSE DATA OF ZERO. 

THIS ERROR IS DETECTED BY ROUTINE 1 OF SECTION 2. A DEVICE ' 
WAS RESERVED TO INTERFACE -A-, THEN ADDRESSED FROM INTERFACE 
-B-. THE INITIAL STATUS SHOULD CONTAIN DEVICE BUSY WHEN 
THE ACCESS IS ADDRESSED WITH THE SEEK COMMAND, BUT AN ERROR 
OCCURRED. THE PROGRAM EXPECTED TO FIND A CHANNEL STATUS 
OF UNIT STATUS PENDING AND A DEVICE STATUS OF DEVICE BUSY. 
THIS ERROR WILL RESULT IN ROUTINE TERMINATION IF THE PGM 
IS ALLOWED TO CONTINUE. 

THIS IS AN ERROR DETECTED BY ROUTINE 1 OF SECTION 2. A 
DEVICE WAS RESERVED TO INTERFACE -A-, THEN ADDRESSED VIA 
INTERFACE -B- WITH A SEEK COMMAND, WITH AN INITIAL STATUS 
OF DEVICE BUSY. THE PROGRAM WAITED FOR APPROXIMATELY 
ONE SECOND AND AN INTERRUPT WAS RECEIVED VIA INTERFACE -B-. 
THIS SHOULD NOT HAVE OCCURRED BECAUSE THE ACCESS SHOULD 
HAVE BEEN RESERVED TO INTERFACE -A-. REFER TO THE UN- 
EXPECTED I/R MESSAGE PRECEED ING THIS MESSAGE TO OBTAIN 
CHANNEL STATUS AND UNIT ADDRESS. NO SCOPE LOOP (OPTION SW 8) 
IS AVAILABLE. 

THIS IS AN ERROR DETECTED BY ROUTINE 1 OF SECTION 2. A 
DEVICE WAS RESERVED TO INTERFACE -A-, THEN ADDRESSED VIA 
INTERFACE -B- WITH A SEEK COMMAND, WITH INITIAL STATUS OF 
DEVICE BUSY. THE PROGRAM WAITED FOR APPROXIMATELY ONE 
SECOND AND NO OTHER INTERRUPTS OCCURRED, WHICH IS CORRECT. 
THE ACCESS WAS RELEASED FROM INTERFACE -B- AND POLLING WAS 
RELIEVED. THE PROGRAM EXPECTED A DEVICE END INTERRUPT FROM 
THE ACCESS VIA INTERFACE -B-, BUT THE INTERRUPT RECEIVED FOR 
THE DEVICE IN QUESTION HAD UNEXPECTED DATA IN ITS CSW. 
THE ACTUAL CHANNEL STATUS WORDS AND UNIT ADDRESS OF THE 
ACCESS ARE PRINTED. NO SCOPE LOOP (OPTION SW 8 ) IS 
AVAILABLE. 
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2205 



2209 



2210 



2211 



2212 



2213 



THIS ERROR MESSAGE INDICATES THAT THE ROUTINE IS BEING 
ABNORMALLY TERMINATED BECAUSE OF A PREVIOUSLY-ENCOUNTERED 
ERROR. THE ERROR IN QUESTION IS PRINTED IN THE MESSAGE 
IMMEDIATELY PRECEEDING. THIS MESSAGE WILL NOT APPEAR 
UNLESS THE PROGRAM WAS ALLOWED TO CONTINUE PASSED THE 
PRECEEDING ERROR. 

THIS ERROR IS DETECTED BY ROUTINE 2 OF SECTION 2. A 
RESERVE TO INTERFACE -B- COMMAND WAS GIVEN TO THE DEVICE 
INDICATED. AN ERROR WAS DETECTED. THE PROGRAM EXPECTS 
A DEVICE STATUS OF CHANNEL END AND DEVICE END. THIS 
ERROR WILL RESULT IN ROUTINE TERMINATION IF THE PGM IS 
ALLOWED TO CONTINUE. 

THIS ERROR IS DETECTED BY ROUTINE 2 OF SECTION 2. A DEVICE 
WAS RESERVED TO INTERFACE -B-. ADDRESSED VIA INTERFACE -A- , 
THEN RELEASED FROM INTERFACE -B-. AN ERROR WAS DETECTED 
WHEN RELEASING THE INDICATED DEVICE. THE PROGRAM EXPECTED 
A CSW STATUS OF CHANNEL END AND DEVICE END AND SENSE DATA 
OF ZERO. 

THIS ERROR IS DETECTED BY ROUTINE 2 OF SECTION 2. A 
DEVICE WAS RESERVED TO INTERFACE -B-, ADDRESSED VIA 
INTERFACE -A-, WITH AN EXPECTED INITIAL STATUS OF DEVICE 
BUSY WHEN THE ACCESS IS ADDRESSED WITH THE SEEK COMMAND. 
HOWEVER, WHEN THIS WAS DONE, AN ERROR OCCURRED. THE 
PROGRAM EXPECTED A CHANNEL STATUS OF UNIT STATUS PENDING 
AND A DEVICE STATUS OF DEVICE BUSY. THIS ERROR WILL RESULT 
IN ROUTINE TERMINATION IF PGM IS ALLOWED TO CONTINUE. 

THIS IS AN ERROR DETECTED BY ROUTINE 2 OF SECTION 2. A 
DEVICE WAS RESERVED TO INTERFACE -B-, ADDRESSED VIA 
INTERFACE -A-, WITH AN INITIAL STATUS OF DEVICE BUSY. 
THE PGM WAITED APPROXIMATELY ONE SECOND AND AN INTERRUPT 
WAS RECEIVED VIA INTERFACE -A-. THIS SHOULD NOT HAVE 
OCCURRED BECAUSE THE ACCESS SHOULD BE RESERVED TO INTERFACE 
-B-. REFER TO THE UNEXPECTED I /R MESSAGE PRECEEDING THIS 
MESSAGE TO OBTAIN CHANNEL STATUS AND UNIT ADDRESS. 
NO SCOPE LOOP (OPTION SW8) IS AVAILABLE. 



THIS IS AN ERROR DETECTEO BY ROUT I 
DEVICE WAS RESERVED TO INTERFACE - 
-A-, WITH INITIAL STATUS OF DEVICE 
APPROXIMATELY ONE SECOND AND NO OT 
WHICH IS CORRECT. THE ACCESS WAS 
-B- AND THE PROGRAM WAITED FOR APP 
EXPECTING A DEVICE END INTERRUPT F 
FACE -A-, BUT THE INTERRUPT RECEIV 
QUESTION HAD UNEXPECTED STATUS. T 
WORDS AND UNIT ADDRESS OF THE ACCE 
LOOP (OPTION SW 8) IS AVAILABLE. 



NE 2 OF SECTION 2. A 

B-, ADDRESS VIA INTERFACE 

BUSY. THE PROGRAM WAITED 
HER INTERRUPTS OCCURRED, 
RELEASED FROM INTERFACE 
ROXIMATELY ONE SECOND, 
ROM THE ACCESS VIA INTER- 
ED FROM THE DEVICE IN 
HE ACTUAL CHANNEL STATUS 
SS ARE PRINTED. NO SCOPE 



3105 THIS ERROR MESSAGE INDICATES THAT THE ROUTINE IS BEING AB- 
NORMALLY TERMINATED BECAUSE OF A PREVIOUSLY-ENCOUNTERED 
ERROR. THE ERROR IN QUESTION IS PRINTED IN THE MESSAGE 
IMMEDIATELY PRECEEDING. THIS MESSAGE WILL NOT APPEAR UNLESS 
THE PROGRAM WAS ALLOWED TO CONTINUE PASSED THE PRECEEDING 
ERROR. 

3115 THIS ERROR IS INDICATED BY ROUTINE 1 OF SECTION 3. A SET 
FILE MASK CHAINED TO A DEVICE RESERVE WAS EXECUTED, 
ADDRESSING THE ACCESS VIA INTERFACE -A-. THE PGM EXPECTED 
AN INTERRUPT, STORING A UNIT STATUS WORD CONTAINING UNIT 
CHECK. UNEXPECTED RESULTS WERE ENCOUNTERED. THIS ERROR 
MESSAGE WILL BE FOLLOWED BY ERROR NUMBER SR05 IF PGM IS 
ALLOWED TO CONTINUE, INDICATING ROUTINE IS BEING ABORTED 
BECAUSE OF THIS ERROR. 

3116 THIS ERROR IS INDICATED BY ROUTINE 1 OF SECTION 3. A SET 
FILE MASK CHAINED TO A DEVICE RESERVE WAS EXECUTED, 
ADDRESSING THE ACCESS ON INTERFACE -A-. THIS SHOULD CAUSE 
A UNIT CHECK STATUS TO BE GENERATED. THE PGM RECEIVED THE 
UNIT CHECK ENDING STATUS AND THEN EXECUTED A TEST I/O AND 
A CONTROL NO-OPERATION. NEITHER THE TEST I/O NOR THE 
NO-OP SHOULD RESET THE SENSE DATA OF COMMAND REJECT AND 
INVALID SEQUENCE. UNEXPECTED RESULTS WERE RECEIVED, HOWEVER, 
WHEN THE CONTROL NO-OP WAS EXECUTED. THE PROGRAM EXPECTED 

AN INITIAL STATUS OF CHANNEL END AND DEVICE END, WHICH 
SHOULD STORE STATUS IN THE CSW. THIS ERROR MESSAGE WILL 
BE FOLLOWED BY ERROR NUMBER SR05 MESSAGE IF THE PGM IS 
ALLOWED TO CONTINUE AFTER THIS ERROR, INDICATING THIS 
ROUTINE IS BEING ABORTED BECAUSE OF THIS ERROR. 

3117 THIS ERROR IS INDICATED BY ROUTINE 1 OF SECTION 3. A SET 
FILE MASK CHAINED TO A DEVICE RESERVE WAS EXECUTED, ADDRESS- 
ING THE ACCESS VIA INTERFACE -A-. THIS CAUSES A UNIT CHECK 
STATUS TO BE GENERATED. THE PROGRAM RECEIVED THE UNIT CHECK 
ENDING STATUS AND EXECUTED A TEST I/O AND A CONTROL 
NO-OPERATION TO THE SAME DEVICE. THE FILE CONTROL UNIT 

WAS THEN ADDRESSED VIA INTERFACE -B- , WITH AN INITIAL 
STATUS OF CONTROL UNIT BUSY. OPERATION TO THIS POINT HAS 
BEEN AS EXPECTED. A SENSE COMMAND WAS THEN ISSUED VIA 
INTERFACE -A- TO THE INDICATED DEVICE. UNEXPECTED RESULTS 
WERE ENCOUNTERED AT THIS TIME. THE PROGRAM EXPECTED SENSE 
DATA OF COMMAND REJECT AND INVALID SEQUENCE AND A DEVICE 
STATUS WORD CONTAINING CHANNEL END AND DEVICE END. 

3118 THIS ERROR IS INDICATED BY ROUTINE 1 OF SECTION 3. A SET 
FILE MASK CHAINED TO A DEVICE RESERVE WAS EXECUTED, 
ADDRESSING THE ACCESS VIA INTERFACE -A-. THIS CAUSES A UNIT 
CHECK STATUS TO BE GENERATED. THE PROGRAM RECEIVED THE UNIT 
CHECK ENDING STATUS AND EXECUTED A TEST I/O AND A CONTROL 
NO-OPERATION TO THE SAME DEVICE. THE FILE CONTROL UNIT 

WAS THEN ADDRESSED VIA INTERFACE -B-, EXPECTING TO RECEIVE A 
CONTROL UNIT BUSY INITIAL STATUS. AN ERROR OCCURRED WHEN 
THIS WAS DONE. A SENSE COMMAND IS USED TO ADDRESS THE 
CONTROL UNIT. THE PROGRAM EXPECTED A CHANNEL STATUS WORD 
CONTAINING CONTROL UNIT BUSY STATUS. THE UNEXPECTED RESULTS 
ARE PRINTED IN THE MESSAGE. 
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3215 



3216 



3217 



THIS ERROR IS INDICATED BY ROUTINE 1 OF SECTION 3. A SET 
FILE MASK CHAINED TO A DEVICE RESERVE WAS EXECUTED, ADDRESS- 
ING THE ACCESS VIA INTERFACE -A-. THIS CAUSES A UNIT 
CHECK STATUS TO BE GENERATED. THE PROGRAM RECEIVED THE 
UNIT CHECK ENDING STATUS AND EXECUTED A TEST I/O AND A 
CONTROL NO-OPERATION TO THE SAME DEVICE. THE FILE CONTROL 
UNIT WAS THEN ADDRESSED VIA INTERFACE -B-, RECEIVING A CON- 
TROL UNIT BUSY INITIAL STATUS. A SENSE COMMAND WAS THEN 
ISSUED VIA INTERFACE -A- TO THE SAME DEVICE. THIS SHOULD 
CAUSE THE FILE CONTROL SWITCH TO RETURN TO NEUTRAL. THE 
PROGRAM WAITED FOR APPROXIMATELY ONE SECOND, EXPECTING 
A CONTROL UNIT END INTERRUPT VIA INTERFACE -B-. AN ERROR 
OCCURRED AT THIS POINT. NO SCOPE LOOP (OPTION SW 8) IS 
AVAILABLE. 

THIS ERROR MESSAGE INDICATES THAT THE ROUTINE IS BEING 
ABNORMALLY TERMINATED BECAUSE OF A PREVIOUSLY-ENCOUNTERED 
ERROR. THE ERROR IN QUESTION IS PRINTED IN THE MESSAGE 
IMMEDIATELY PRECEEOING. THIS MESSAGE WILL NOT APPEAR 
UNLESS THE PROGRAM WAS ALLOWED TO CONTINUE PASSED THE 
PRECEEDING ERROR. 



3218 



A SET 



THIS ERROR IS INDICATED BY ROUTINE 2 OF SECTION 3. 
FILE MASK CHAINED TO A DEVICE RESERVE WAS ISSUED, 
ADDRESSING THE ACCESS ON INTERFACE -B-. THE PROGRAM EX- 
PECTED AN INTERRUPT, STORING A UNIT STATUS WORD CONTAINING 
UNIT CHECK. UNEXPECTED RESULTS WERE ENCOUNTERED. THIS 
ERROR MESSAGE WILL BE FOLLOWED BY AN ERROR NUMBER SR05 
MESSAGE IF PGM IS ALLOWED TO CONTINUE, INDICATING THIS 
ROUTINE IS BEING ABORTED BECAUSE OF THIS ERROR. 

THIS ERROR IS INDICATED BY ROUTINE 2 OF SECTION 3. A SET 
FILE MASK CHAINED TO A DEVICE RESERVE WAS ISSUED, 
ADDRESSING THE ACCESS VIA INTERFACE -B-. THIS SHOULD CAUSE 
A UNIT CHECK STSTUS TO BE GENERATED. THE PROGRAM RECEIVED 
THE UNIT CHECK END ING STATUS AND THEN EXECUTED A TEST I/O 
AND A CONTROL NO-OPERATION. NEITHER THE TEST I/O NOR THE 
NO-OP SHOULD RESET THE SENSE DATA OF COMMAND REJECT AND 
INVALID SEQUENCE. UNEXPECTED RESULTS WERE RECEIVED, 
HOWEVER, WHEN THE CONTROL NO-OP WAS EXECUTED. THE PGM 
EXPECTED AN INITIAL STATUS OF CHANNEL END AND DEVICE END, 
WHICH SHOULD STORE STATUS IN THE CSW . THIS ERR MESSAGE WILL 
BE FOLLOWED BY AN ERROR NUMBER SR05 MESSAGE IF THE PGM IS 
IS ALLOWED TO CONTINUE, INDICATING THIS ROUTINE IS BEING 
ABORTED BECAUSE OF THIS ERROR. 

THIS ERROR IS INDICATED BY ROUTINE 2 OF SECTION 3. A SET 
FILE MASK CHAINED TO A DEVICE RESERVE WAS EXECUTED, ADDRESS- 
!^ T ™ E T A n C f S VIA INTERFACE -B-. THIS CAUSES A UNIT CHECK 
STATUS TO BE GENERATED. THE PROGRAM RECEIVED THE UNIT CHECK 
ENDING STATUS AND EXECUTED A TEST I/O AND A CONTROL NO- 
OPERATION TO THE SAME DEVICE. THE FILE CONTROL UNIT WAS 
THEN ADDRESSED VIA INTERFACE -A-, WITH AN INITIAL STATUS 
OF CONTROL UNIT BUSY. OPERATION TO THIS POINT IS AS 
EXPECTED. A SENSE COMMAND WAS THEN ISSUED TO THE INDI- 
CATED DEVICE VIA INTERFACE -B-. UNEXPECTED RESULTS WERE 
ENCOUNTERED AT THIS POINT. THE PROGRAM EXPECTED SENSE 
DATA OF COMMAND REJECT AND INVALID SEQUENCE AND A DEVICE 
STATUS WORD CONTAINING CHANNEL END AND DEVICE END. 
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THIS ERROR IS INDICATED BY ROUTINE 2 OF SECTION 3. A SET 
FILE MASK CHAINED TO A DEVICE RESERVE WAS ISSUED, 
ADDRESSING THE ACCESS ON INTERFACE -B-. THIS CAUSES A 
UNIT CHECK STATUS TO BE GENERATED. THE PROGRAM RECEIVED 
THE UNIT CHECK ENDING STATUS AND EXECUTED A TEST I/O AND 
A CONTROL NO-OPERATION TO THE SAME DEVICE. THE FILE CONTROL 
UNIT WAS THEN ADDRESSED VIA INTERFACE -A-, EXPECTING AN 
INITIAL STATUS OF CONTROL UNIT BUSY. AN ERROR OCCURRED ON 
INTERFACE -A- WHEN THIS WAS DONE. THE CONTROL UNIT WAS 
ADDRESSED WITH A SENSE COMMAND. THE PROGRAM EXPECTED A 
CHANNEL STATUS WORD CONTAINING CONTROL UNIT BUSY. THE 
UNEXPECTED RESULTS ARE PRINTED IN THE MESSAGE. 

THIS ERROR IS INDICATED BY ROUTINE 2 OF SECTION 3. A SET 
FILE MASK CHAINED TO A DEVICE RESERVE WAS EXECUTED, 
ADDRESSING THE ACCESS ON INTERFACE -B-. THIS CAUSES A UNIT 
CHECK STATUS TO BE GENERATED. THE PROGRAM RECEIVED THE 
UNIT CHECK ENDING STATUS AND EXECUTED A TEST I/O AND A 
CONTROL NO-OPERATION TO THE SAME DEVICE. THE FILE CONTROL 
UNIT WAS THEN ADDRESSED VIA INTERFACE -A-, RECEIVING AN 
INITIAL STATUS OF CONTROL UNIT BUSY. A SENSE COMMAND WAS 
THEN ISSUED TO THE SAME DEVICE VIA INTERFACE -B-. THIS 
SHOULD CAUSE THE FILE CONTROL SWITCH TO RETURN TO NEUTRAL. 
THE PROGRAM WAITS FOR APPROXIMATELY ONE SECOND, EXPECTING 
A CONTROL UNIT END INTERRUPT VIA INTERFACE -A-. AN ERROR 
OCCURRED AT THIS POINT. NO SCOPE LOOP (OPTION SW 8) 
IS AVAILABLE. 

THIS ERROR IS INDICATED BY ROUTINE 1 OF SECTION 4. THE 
USER WAS INSTRUCTED TO PLACE THE INTERFACE -A- SWITCH TO 
THE DISABLE POSITION, TO STOP, THEN START THE CPU, CON- 
TINUING THE PROGRAM. THIS SHOULD DISABLE INTERFACE -A- OF 
THE FILE CONTROL UNIT. A SEEK COMMAND WAS ISSUED, ADDRESS- 
ING THE ACCESS VIA INTERFACE -A-, EXPECTING A CHANNEL STATUS 
OF 'UNIT NOT OPERATIONAL'. THIS WOULD INDICATE THE CONTROL 
UNIT WAS PROPAGATING SELECT-OUT. WHICH IS CORRECT OPERATION. 
UNEXPECTED RESULTS WERE ENCOUNTERED ON THE SEEK COMMAND. 

THIS ERROR IS INDICATED BY ROUTINE 1 OF SECTION 4. THE USER 
WAS INSTRUCTED TO PLACE THE INTERFACE -A- SWITCH TO THE 
DISABLE POSITION, TO STOP, THEN START THE CPU, CONTINUING 
THE PROGRAM. THIS SHOULD DISABLE THIS INTERFACE OF THE FILE 
CONTROL UNIT. A SEEK COMMAND WAS ISSUED, ADDRESSING AN 
ACCESS VIA INTERFACE -A-, RECEIVING A CHANNEL STATUS OF 
UNIT NOT OPERATIONAL. THE USER WAS THEN INSTRUCTED TO 
RETURN THE INTERFACE -A- SWITCH TO THE ENABLE POSITION. 
TO STOP, THEN START THE CPU, CONTINUING THE PROGRAM. 
A SEEK COMMAND WAS THEN ISSUED VIA INTERFACE -A-, WHICH 
SHOULD HAVE EXECUTED CORRECTLY. AN ERROR WAS ENCOUNTERED 
AT THIS POINT. 

THIS ERROR IS INDICATED BY ROUTINE 2 OF SECTION 4. THE 
USER WAS INSTRUCTED TO PLACE THE INTERFACE -B- SWITCH TO THE 
DISABLE POSITION, TO STOP, THEN START THE CPU, CONTINUING 
THE PROGRAM. THIS SHOULD DISABLE INTERFACE -B- OF THE 
FILE CONTROL UNIT. A SEEK COMMAND WAS ISSUED, ADDRESSING 
AN ACCESS VIA INTERFACE -B- , EXPECTING A CHANNEL STATUS 
OF UNIT NOT OPERATIONAL. THIS WOULD INDICATE THE CONTROL 
UNIT WAS PROPAGATING SELECT-OUT, WHICH IS CORRECT OPERATION. 
UNEXPECTED RESULTS WERE ENCOUNTERED ON THE SEEK COMMAND. 
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THIS ERROR IS INDICATED BY ROUTINE 2 OF. SECTION 4. THE 
USER WAS INSTRUCTED TO PLACE THE INTERFACE -B- SWITCH TO 
THE DISABLE POSITION, TO STOP, THEN START THE CPU, 
CONTINUING THE PROGRAM. THIS SHOULD DISABLE THIS INTERFACE 
OF THE FILE CONTROL UNIT. A SEEK COMMAND WAS ISSUED, 
ADDRESSING AN ACCESS VIA INTERFACE -B-, RECEIVING A CHANNEL 
STATUS OF UNIT NOT OPERATIONAL. THE USER WAS THEN 
INSTRUCTED TO RETURN THE INTERFACE -B- SWITCH TO THE 
ENABLE POSITION, TO STOP, THEN START THE CPU, CONTINUING 
THE PROGRAM. A SEEK COMMAND WA,S ISSUED VIA INTERFACE -B-, 
WHICH SHOULD BE EXECUTED CORRECTLY. AN ERROR WAS 
ENCOUNTERED AN THIS SEEK COMMAND. 

THIS ERROR IS INDICATED BY ROUTINE 3 OF SECTION 4. THE 
USER WAS INSTRUCTED TO PLACE THE INTERFACE -A- SWITCH TO THE 
DISABLE POSITION. THE PROGRAM TIMES-OUT FOR 30 SECONDS 
FOR THIS TO BE DONE. THEN A SEEK COMMAND WAS ISSUED. THE 
SEEK SHOULD BE PERFORMED EVEN THOUGH THE FILE CONTROL UNIT 
IS 'DISABLED'. BECAUSE CLOCK-OUT WAS UP DURING THIS TIME. 
AN ERROR WAS ENCOUNTERED ON THE SEEK. THE PROGRAM EXPECTS 
A DEVICE STATUS WORD WITH CHANNEL END AND DEVICE END AND 
SENSE DATA OF ZERO. 

THIS ERROR IS INDICATED BY ROUTINE 3 OF SECTION 4. THE 
USER WAS INSTRUCTED TO PLACE THE INTERFACE -A- SWITCH IN 
THE DISABLE POSITION. THE PROGRAM TIMES-OUT FOR 30 SECONDS 
FOR THIS TO BE DONE, THEN A SEEK COMMAND WAS ISSUED. THE 
USER WAS THEN INSTRUCTED TO PLACE THE INTERFACE -A- SWITCH IN 
THE ENABLE POSITION, AN) THE PROGRAM TIMED-OUT FOR 30 
SECONDS FOR THIS TO BE DONE. A SEEK COMMAND WAS THEN 
ISSUED VIA INTERFACE -A- , WHICH SHOULD BE EXECUTED NORMALLY. 
AN ERROR WAS DETECTED ON THE LATTER SEEK. THE UNEXPECTED 
RESULTS RECEIVEO ARE PRINTED IN THE MESSAGE. 

THIS ERROR IS INDICATED BY ROUTINE 4 OF SECTION 4. THE 
USER WAS INSTRUCTED TO PLACE THE INTERFACE -B- SWITCH 
IN THE DISABLE POSITION. THE PROGRAM TIMES-OUT FOR 30 
SECONDS FOR THIS TO BE DONE, THEN A SEEK COMMAND WAS 
ISSUED. THE SEEK SHOULD BE PERFORMED EVEN THOUGH THE FILE 
CONTROL UNIT IS 'DISABLED', BECAUSE CLOCK-OUT WAS UP DURING 
THIS TIME. AN ERROR WAS ENCOUNTERED ON THE SEEK. THE 
PROGRAM EXPECTED A DEVICE STATUS WORD WITH CHANNEL END AND 
DEVICE END AND SENSE DATA OF ZERO. 

THIS ERROR IS INDICATED BY ROUTINE 4 OF SECTION 4. THE 
USER WAS INSTRUCTED TO PLACE THE INTERFACE -B- SWITCH IN 
THE DISABLE POSITION. THE PROGRAM TIMES-OUT FOR 30 SECONDS 
FOR THIS TO BE DONE, THEN A SEEK COMMAND WAS EXECUTED. 
THE USER WAS THEN INSTRUCTED TO PLACE THE INTERFACE -B- 
SWITCH IN THE ENABLE POSITION, AND THE PROGRAM TIMED-OUT 
FOR 30 SECONDS FOR THIS TO BE DONE. A SEEK COMMAND WAS THEN 
ISSUED VIA INTERFACE -B-, WHICH SHOULD BE EXECUTED NORMALLY. 
AN ERROR WAS DETECTED ON THIS LATTER SEEK. THE UNEXPECTED 
RESULTS ARE PRINTED IN THE MESSAGE. 

THIS ERROR IS DETECTED AND INDICATED BY ROUTINE 5 OF SECTION 
4. A SET FILE MASK CHAINED TO A DEVICE RESERVE WAS 
ISSUED, WHICH SHOULD CAUSE A UNIT CHECK TO BE GENERATED. 
UNEXPECTED RESULTS WERE ENCOUNTERED. THE PROGRAM EXPECTS A 
UNIT STATUS WORD CONTAINING UNIT CHECK. 



4525 THIS ERROR IS DETECTED AN) IN) ICATED BY ROUTINE 5 OF SECTION 
4. A SET FILE MASK CHAINED TO A DEVICE RESERVE WAS ISSUED, 
WHICH SHOULD CAUSE UNIT CHECK TO BE GENERATED. THE USER WAS 
INSTRUCTED TO PLACE THE INTERFACE -A- SWITCH TO DISABLE, TO 
STOP, THEN START THE CPU, CONTINUING THE PROGRAM. A 
SEEK COMMAND IS THEN ISSUED, WHICH SHOULD BE EXECUTED 
NORMALLY. AN ERROR WAS ENCOUNTERED ON THIS SEEK COMMAND. 
THE CHANNEL AND ACCESS INVOLVED ARE DISPLAYED IN THE 
MESSAGE. 

4624 THIS ERROR IS DETECTED AND INDICATED BY ROUTINE 6 OF SECTION 
4. A SET FILE MASK CHAINED TO A DEVICE RESERVE WAS ISSUED, 
WHICH SHOULD CAUSE A UNIT CHECK TO BE GENERATED. UNEXPECTED 
RESULTS WERE ENCOUNTERED. THE PROGRAM EXPECTS A UNIT STATUS 
WORD CONTAINING UNIT CHECK. 

4625 THIS ERROR IS DETECTEO AND INDICATED BY ROUTINE 6 OF SECTION 
4. A SET FILE MASK CHAINED TO A DEVICE RESERVE WAS 
ISSUED, WHICH SHOULD CAUSE A UNIT CHECK TO BE GENERATED. 

THE USER WAS THEN INSTRUCTED TO PLACE THE INTERFACE -B- 
SWITCH TO DISABLE, TO STOP, THEN START THE CPU, CONTINUING 
THE PROGRAM. A SEEK COMMAND WAS ISSUED, WHICH SHOULD BE 
EXECUTED NORMALLY. AN ERROR WAS ENCOUNTERED ON THIS SEEK 
COMMAND. THE UNIT INDICATED DEFINES THE CHANNEL AND ACCESS 
INVOLVED . 

4726 THIS ERROR IS DETECTED AND INDICATED BY ROUTINE 7 OF SECTION 
4. THE USER WAS INSTRUCTED TO PLACE THE INTERFACE -A- SWITCH 
TO DISABLE, TO STOP. THEN START THE CPU, CONTINUING THE 
PROGRAM. THE PROGRAM TIMED-OUT FOR 30 SECONDS FOR THIS TO 

BE DONE. THE USER WAS THEN INSTRUCTED TO PLACE THE INTERFACE 
-A- SWITCH TO ENABLE. THE PROGRAM TIMED-OUT FOR 30 SECONDS 
FOR THIS TO BE DONE. A SEEK COMMAND WAS THEN EXECUTED. THE 
PROGRAM EXPECTED A CHANNEL STATUS OF UNIT NOT OPERATIONAL, 
SELECT OUT PROPAGATED BY THE CONTROL UNIT. UNEXPECTED 
RESULTS WERE ENCOUNTERED AT THIS POINT. THE UNEXPECTED DATA 
RECEIVED IS DISPLAYED IN THE MESSAGE. 

4727 THIS ERROR IS DETECTED AND INDICATED BY ROUTINE 7 OF SECTION 
4. THE USER WAS INSTRUCTED TO PLACE THE INTERFACE -A- 
SW1TCH TO DISABLE, TO STOP, THEN START THE CPU, CONTINUING 
THE PROGRAM. THE PROGRAM TIMES-OUT FOR 30 SECONDS FOR THIS 
TO BE DONE. THE USER WAS THEN INSTRUCTED TO PLACE THE 
INTERFACE -A- SWITCH TO ENABLE. THE PROGRAM AGAIN TIMES-OUT 
FOR 30 SECONDS FOR THIS TO BE DONE. A SEEK COMMAND WAS 
EXECUTED, WITH A CHANNEL STATUS OF UNIT NOT OPERATIONAL 
RECEIVED, WHICH IS CORRECT. THE USER WAS THEN INSTRUCTED TO 
STOP, THEN START THE CPU, CONTINUING THE PROGRAM. THIS 
SHOULD ENABLE INTERFACE -A- . A SEEK COMMAND WAS THEN 
ISSUED BUT UNEXPECTED RESULTS WERE ENCOUNTERED AT THIS 
TIME. 

4826 THIS ERROR IS DETECTED AND INDICATED BY ROUTINE 8 OF SECTION 
4. THE USER WAS INSTRUCTED TO PLACE THE INTERFACE -B- 
SWITCH TO DISABLE, TO STOP. THEN START THE CPU, CONTINUING 
THE PROGRAM. THE PROGRAM TIMES-OUT FOR 30 SECONDS FOR THIS 
TO BE DONE. THE USER WAS THEN INSTRUCTED TO PLACE THE 
INTERFACE -B- SWITCH TO ENABLE. THE PROGRAM AGAIN TIMED-OUT 
FOR 30 SECONDS FOR THIS TO BE DONE. A SEEK COMMAND WAS 
EXECUTED. THE PROGRAM EXPECTED A CHANNEL STATUS OF 
UNIT NOT OPERATIONAL. SELECT OUT PROPAGATED BY THE CONTROL 
UNIT, BUT UNEXPECTED RESULTS WERE ENCOUNTERED AT THIS TIME. 
THE UNEXPECTED DATA RECEIVED IS DISPLAYED IN THE MESSAGE. 
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4827 THIS ERROR IS DETECTED AM) INDICATED BY ROUTINE 8 OF SECTION 

s:tTrH E Tn S ™o?„ INSTBUCTED T0 PLACE THE INTERFACE -B- 
SWITCH TO DISABLE. TO STOP. THEN START THE CPU, CONTINUING 

Tn E B = R ^ff M * THE PR0GRAM TIMED-OUT FOR 30 SECONDS FOR THIS 
TO BE DONE. THE USER WAS THEN INSTRUCTED TO PLACE THE 
2^I E ? FACE " B " SW1TCH T0 ENABLE. THE PROGRAM AGAIN TIMES-OUT 

^v^f.T^ EC °^ S F ° R ™ IS T0 BE D0NE * A SEEK COMMAND WAS 
EXECUTED. WITH A CHANNEL STATUS OF UNIT NOT OPERATIONAL 
RECEIVED. WHICH IS CORRECT. THE USER WAS THEN INSTRUCTED TO 
STOP. THEN START THE CPU. CONTINUING THE PROGRAM. THIS 
SHOULD ENABLE INTERFACE -B-. A SEEK COMMAND WAS THEN ISSUED. 
BUT UNEXPECTED RESULTS WERE ENCOUNTERED AT THIS TIME. 

5.3 COMMON SUBROUTINES 

1 ) GET SENSE 

THIS SUBROUTINE IS USED BY MOST ROUTINES TO GET FOUR (4) SENSE 

tll^t °F ACCESS STATUS INFORMATION. AFTER THE SUBROUTINE HAS 

EaTE*S\~ E ST * RT I/0 AMD CHECKED ™ AT THE SENSE COMMAND 

HAS BEEN ACCEPTED. IT WILL WAIT IN A TEST I/O ADAPTER BUSY LOOP 

^L THE * BVTES T ° TR *NSFER. THE PROGRAM WILL HANG-UP IF IT 
FOREVER RECEIVES ADAPTER BUSY. 

2) START I/O 

THIS SUBROUTINE IS USED BY ALL ROUTINES TO START A CHAIN OF 
CCW(S) (CHANNEL COMMAND WORDS). BEFORE THE START I/O IS 
EXECUTED. THE SUBROUTINE PERFORMS A TEST I/O TO CHECK THAT THE 
ACCESS IS AVAILABLE. THE PROCRAM THEN SETS UP THE CAW, 
EXECUTES A START I/O AND CHECKS THAT THE COMMAND WAS ACCEPTED. 
THE 'WAIT' SUBROUTINE IS USED TO WAIT FOR COMPLETION OF THE 
CHAIN OF COMMANDS BEFORE RETURNING TO THE CALLING ROUTINE. 

3) EROUT 

THIS SUBROUTINE IS USED BY ALL ROUTINES TO PRINT OUT AN ERROR 
NUMBER OR ERROR MESSAGE. THE CAW. CSW. AND /OR SENSE INFORMATION. 
THE ROUTINE ALSO PROVIDES FOR PRINTING A BLANK LINE AS A 

RPTmlT'J^ 1 - GET ™ E SENSE BYTES ' ST0P AFTER PANTING ERROR. 
RETURN TO PROGRAM VIA AN OPTIONAL REG. AND OR EXIT TO NEXT 
ROUTINE. 



APPENDIX 



6.1 



6.2 



CHANNEL STATUS WORDS DEVICE AND CHANNEL STATUS BITS LAYOUT IN HEX 
CSW ADRS YYYY UUZZ CNTR 

8000 ... UNIT NOT OPERATIONAL 

4000 ... UNIT STATUS PENDING 

2000 ... PROGRAM CONTROL INTERRUPT 

1000 ... PROGRAM CHECK 

0800 ... DATA CHECK 

0400 ... CONTROL CHECK 

0200 ... INCORRECT LENGTH 

100 . . . ADAPTER BUSY 

80. . . ATTENTION 

40. . . STATUS MODIFIER 

20. . . CONTROL UNIT END 

10. . . BUSY 

08. . . CHANNEL END 

04. . . DEVICE END 

02. . . UNIT CHECK 

01. . . UNIT EXCEPTION 

ADRS = CHANNEL CCW ADDRESS REGISTER 

YYYY = CHANNEL STATUS IN HEX 

UUZZ = UNIT ADDRESS/UNIT STATUS IN HEX 

CNTR = CHANNEL BYTE COUNT REGISTER 

SENSE BYTES RECEIVED ON A SENSE I/O COMMAND 
BIT LAYOUT IN BINARY 



BYTE 0, BIT 



BYTE 1, BIT 



BYTE 2, BIT 



■■ COMMAro REJECT 

INTERVENTION REQUIRED 
BUS OUT PARITY 
EQUIP CHECK 
DATA (BURST) CHECK 
CHANNEL/2841 OVRN 
TRACK CONDITION CHECK 
SEEK CHECK 

DATA CHECK IN COUNT FIELD 

TRACK OVERFLOW 

END OF CYLINDER 

INVALID SEQUENCE 

NO RECORD FOUND 

FILE PROTECTED 

MISSING ADDRESS MARKER 

OVERFLOW INCOMPLETE 

= UNSAFE 

SERDES CHECK 

2841 ALU CHECK 
UNSELECTED FILE STATUS 



BYTE 3, BIT 



= DRIVE READY 

= ON LINE 

= UNSAFE 

= ONLINE 

= END OF CYLINDER 

= SEEK INCOMPLETE 
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FOLLOWING EDIT CARDS ARE RECUIRED BY THIS PROGRAM: 

CARD - MUST CONTAIN 2 EDITS. THE FIRST MUST DEFINE THE LOG DEVICE AND THE SECOND 

END CARD - MUST HAVE FFrF IN COLUMNS 7-10. 

SEE NOTE 2. 

THE DEVICE DEFINITION EDIT FIELD (ODEF) INCLUDES THE FOLLOWING: 

1. THE INTERRUPT LEVEL ASSOCIATED WITH THE DEVICE. 

2. THE ILSW BIT POSITION ASSOCIATED WITH THIS DEVICE. 

3. THE CHANNEL ASSIGNII) 7 THIS DEVICE. 

NOTE 1 - THIS PROGRAM HAS ITS OWN LOG ROUTINE. THE FIRST ENTRY ON THE EDIT CARD 
NOTE 2 - THE SELECTOR CHANNEL EDIT ENTRY FOR THE DIAGNOSTIC MONITOR (DM) SHOULD 

DDEF DDEF 
SEL. 
LOG DEV. CM N. 
NOTE 1 . NOTE 2 . 


MUST DEFINE THE SELECTOR CHANNEL. 

IS ASSOCIATED WITH THE C.E. LOG DEVICE. 
NOT CONTAIN A UNIT ADDRESS FOR A 2311 DISK DRIVE 


OR A 281*1 


CONTROL UNIT. 


i.e. 9000 
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* 
************************************************ - 



********************** 
* 

* 1800 MON 



***************************** 
ITOR INTERFACE 



****************************************** ********* 
* * 

*************************************************** 



12C 







BEGIN 


EQU 


300 


01 2D 







START 


EQU 


BEGIN+1 


12E 







END 


EQU 


START+1 


012F 







LOG 


EQU 


END + 1 


0130 







ERROR 


EQU 


LOG+1 


0131 







REQD V 


EQU 


ERROR+l' 


0132 







R ELD V 


EQU 


REQD V+l 


0133 







CRCK 


EQU 


RELD V+l 


0134 







MA TO 

* 

* 

* 
TPID 


EQU 


CRCK+1 


7FF 






ORG 


*+/07FF 










MONITOR I! 


07FF 





1400 


DC 


/1400 


0800 





OOOl 


TSID 


DC 


1 


0801 





0000 


TSAD 


DC 











* 


EQUATES 


FOR TSWO 


0008 







OLPST 


EQU 


8 


0009 







OSALC 


EQU 


9 


0009 







OPRRS 


EQU 


9 


OOOA 







OTTLE 


EQU 


10 


OOOB 







OR TRY 


EQU 


1 1 


OOOC 







OLPER 


EQU 


12 


OOOD 







OBYPR 


EQU 


13 


OOOE 







OHALT 


EQU 


14 


OOOF 







OCHLT 

* 

TSWO 


EQU 


1 5 


0802 





0000 


DC 





0803 





0000 


TSW1 


DC 





0804 





FFOO 


TSW2 


DC 


/FFOO 


080S 





0000 


TSW3 


DC 





0806 


1 


09AF 


IPA 


DC 


Z IPA 


0807 


1 


09C5 


LPA 


DC 


ZLPA 


0808 


1 


09E2 


EPA 


DC 


ZEPA 


0809 







MLSCF 


EQU 


* 


0809 





0000 


MLSCO 


DC 





080A 





0000 


MLSC1 


DC 





080b 





0000 


MLSCR 


DC 





08 OC 





FFFF 


TERM 


DC 


/FFFF 


oaoD 


1 


15E0 




DC 


PEND 


OBOE 





0000 




DC 





080F 





0000 




DC 





0810 





0000 




DC 





081 1 





0000 




DC 





0812 





0000 




DC 





0813 





0000 


TLGED 


DC 





0814 





0000 


TSCED 


DC 





0815 





0000 


TRID 


DC 






ORIGIN OF PGM 
NTERFACE TABLES 



SECTION ID 

SECTION PREFACE ADDRESS 
SWITCH OPTIONS 
LOOP S10.TI0 
SEEK ALIGNMENT CYLINDER 

PRINT RTN TITLES 

RETRY SIO 

LOOP ERROR 

BYPASS ALL PRINTOUTS 

HALT ON ERROR 

CLEAR ERROR HALT 

SELECT OPTIONS 
SELECT SECT AND RTN 
UNIT ADDRESS 

INIT PRGM ADDRESS 
LOOP PRGM ADDRS 
END PRG ADDRS 
MONITOR CONTROL FIELD 
ENTRY ZERO 

ONE 

TWO 

LAST ADDRS 

WORDS FOR MONITOR USE 



LOG ED IT 

SEL CHANNEL EDIT 

ROUTINE ID 

*************************************************** 

* * 
*************************************************** 
* 

* TABLE OF CONSTANTS 
* 
*************************************************** 

* * 
*************************************************** 



81400020 
81400030 
81400040 
81400050 
81400060 

814000 70 
81400080 
81400090 
81400 100 

814001 110 
81 400 120 
8 1.4 00 130 
81400140 
81400 1 50 
81400 160 
81400170 
81400 180 
81400190 
81 400 200 
81400210 
8:1400 220 
8 1400230 
81 400240 
81400250 
81400260 
81400270 
81400280 
81400290 
81 400300 
81400310 
81400320 
81400330 
81 400340 
81400350 
81 400360 
81400370 
81 400380 
8 1400390 
81 400400 
81400410 
81400420 
81400430 
81 400440 
81400450 
81400460 
81400470 
81400480 
8 1400490 
81 400500 
81400510 
81 400520 
81400530 
81400540 
81400550 
81400560 
81400570 
81 400580 
81400590 
81 400600 
81400610 
81400620 
81400630 
81400640 
81400650 
81400660 
81400670 
81400680 
81400690 



8 7F 







08 16 





0001 


0817 





0002 


08 18 





0Q03 


0819 





0004 


08 1 A. 





0006 


081B 





0007 


08 1C 





0008 


0810 





0009 


08 IE 





OOOA 


8 IF 





0014 


0U20 





0064 


0821 





007F 


0822 





0080 


0823 





01F4 


0824 





03E8 


0825 





OOOA 


0826 





001 1 


0827 





0013 


0828 





0020 


0829 





0027 


082A 





00C6 


082B 





00C8 


082C 





OOFF 


082D 





0100 


082E 





0200 


082F 





0400 


0830 





0500 


083 1 





0700 


0832 





OAOO 


0833 





2000 


0834 





2100 


083b 





3000 


0836 





4000 


0837 





5000 


0838 





7FFF 


0839 





8000 


083A 





FOOO 


083B 





FFOO 


083C 





0000 


083D 





0000 


0B3E 





0000 


083F 





0000 


0840 





0000 


084 1 





0000 


0842 





0000 


0844 




0002 


0846 




0002 


0848 




0002 


084A 




0002 


084C 




0002 


084E 




0002 


0850 




0001 


0851 





0000 


0852 





0000 


0853 





0000 


0854 





0000 


0855 





000 1 


0856 





0000 


0857 





0000 


0858 





0000 


0859 





0000 


0B5A 





0000 


085B 





000 



-.- 








81400700 


TB EQU 


TPID+128 


SO TBL CAN REACH PST TBL 


81 400710 


Kl DC 


1 


CONSTANT ONE 




81400720 


K2 DC 


2 


CONSTANT 




81400730 


K3 DC 


3 


CONSTANT 




81400740 


K4 DC 


4 






81400750 


K6 DC 


6 


CONSTANT 




81400760 


K7 DC 


7 


CONSTANT 




81400770 


K8 DC 


8 


CONSTANT 




81400780 


K9 DC 


9 






81400790 


K 1 DC 


10 






81400800 


K20 DC 


20 






8140081 


K100 DC 


100 






81400820 


K127 DC 


127 


CONSTANT 




81400830 


K128 DC 


128 






8 1400840 


K.500 DC 


500 






81400850 


K1000 DC 


1 000 






81400860 


HOOOA DC 


/OOOA 


CONSTANT 




81400870 


H0Q11 DC 


/0011 






8 1400880 


H00 13 DC 


/0013 


CONSTANT 




81400890 


H0020 OC 


/0020 






8 1400900 


H0027 DC 


/0027 


CONSTANT 




814009 10 


H00C6 DC 


/00C6 






8 14 09 2 


H00C8 DC 


/00C8 






81400930 


HOOFF DC 


/OOFF 


LINE TERMINATOR 


81400940 


H0100 DC 


/Ol 00 


CONSTANT 




81400950 


H0200 DC 


/0200 


CONSTANT 




81400960 


H0400 DC 


/0400 


CONSTANT 




81 400970 


H0500 DC 


/0500 


CONSTANT FOR 


WRITE IOCC 


81400980 


H0700 DC 


/0700 


CONSTANT FOR 


SENSE DSW IOC 


8 1 400990 


HOAOO DC 


/OAOO 






8 1401 000 


H2000 DC 


/2000 






81 40 10 10 


H2100 DC 


/21 00 






81401020 


H3000 DC 


/3000 






81 40 1030 


H4000 DC 


/4000 


CONSTANT 




81401040 


H5000 DC 


/5000 


CONSTANT 




81 40 1050 


H7FFF DC 


/7FFF 






8 1401 060 


H8000 DC 


/8000 






81 40 1070 


HFOOO DC 


/FOOO 






8 1 4 1 80 


HFFOO DC 


/FFOO 






8140 1090 


CNTDN DC 









81401 1 00 


TSCTN DC 


*-* 


SECTION NUMBER 


81 40 1 1 10 


TRTNN DC 


*-* 


ROUTINE NUMBER 


8 1401 120 


TCNSW DC 





ERROR SWITCH 


FOR RTNS 


8140 1 1 30 


TCVS1 DC 
TCVS2 DC 









8 1401 1 40 









8140 1 1 50 


CAWSV DC 


*— * 


CCW ADDRESS SAVE AREA 


8 1401 160 


ERTSV BSS E 


2 


SENSE INFO SAVE 


81 40 1 170 


TYP2 PRNT 


•SIO,. 






8140 1 1 80 


TYP3 PRNT 


•SNS . . 






81 40 1 190 


PCAW PRNT 


• CAW . 






8140 1200 


PCSW PRNT 


.CSW . 






81 401210 


PSNS PRNT 


. SNS. 






81401220 


SPACE PRNT 


• 


SPACES IN 43 


CODE 


81 401230 


DVADR DC 


* — * 


DEVICE ADDRESS TO BE TESTEDH 1 40 1 240 


LGBSY DC 


*-* 


LOG ROUTINE BUSY SWITCH 


81 40 1250 


SIOSW DC 


*-* 


FOR SIO RTN 




8 140 1260 


PASSW DC 


*-* 


USED TO TEST 


FOR ERROR 


81 40 1270 


PSCNT DC 


1 


PASS COUNTER 




81401280 


STK5W DC 





SWITCH FOR RE 


-ENTRANCE 


8140 1290 


TIOSW DC 





TEST 10 SW 




81401300 


T23LC DC 


*-* 


LAST CYLINDER 




81401310 


T23LH DC 


*-* 


LAST HEAD 




81401320 


LPCNT DC 


*-* 


LOOP CNTR 




81 40 1330 


T45SW DC 





0= NOT CALLED 




81401340 


* 




1=14 4 3 




8140 1350 


* 
* 




2=1053/1816 




81401360 








81401370 
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OS5C 
085D 




1 


oooo 

4C0O 


085 F 
0860 




1 


0000 

♦coo 


0862 
0863 




1 


0000 
4 COO 


0865 
0866 




1 


0000 
4C00 


0868 
0869 




1 


0000 
4C00 


086B 
086C 




1 


0000 
4C00 


086E 
086F 




1 


0000 
4C00 


0871 
0872 




1 


0000 
4C00 


0874 
0875 




1 


0000 
4C00 


0877 
0878 




1 


0000 
4C00 


087A 

087B 




1 


0000 
4C00 


087D 
087E 




1 


0000 
4C00 


0880 
0881 




1 


0000 
4C00 


0883 
0884 




1 


0000 
4C00 


0886 





OOOC 



0080 
04 
0020 
0008 
0010 



0000 

0001 

0002 

0003 
0005 



0A20 



12E4 



10CE 



10AC 



11C4 



10D6 



1261 



1527 



1204 



1159 



13BE 



1566 



CNTRL DC 

BSC 
* 
EROUT DC 

BSC 
*- 
FREDV DC 

BSC 
* 
GETDV DC 

BSC 

GETSN DC 
BSC 

* 

SIO DC 

BSC 
* 
STMLS DC 

BSC 
* 
TCVBE DC 

BSC 
* 
TCVHD DC 

BSC 
* 
THALT DC 

BSC 
* 
TIO DC 

BSC 
* 
TLGMS DC 

BSC 
* 
TLPER DC 

BSC 
* 
TLPST DC 

BSC 
* 
HOOOC DC 



TCNTE 



*-* 
ERTNE 



*-* 
FRDVE 



*-* 
GTDVE 



GTSNS 



*-* 
SIONT 



*-* 
STMLE 



TCVBN 



*-* 
THEXD 



THLTE 



*-* 
TIONT 



*-* 
TLGME 



*-* 
TERLP 



*-* 
TSTLP 



/OOOC 



CONTROL ROUTINE 
GO TO ROUTINE 

ERROR PRINTOUT ROUTINE 
GO TO RTN 

RELEASE CHANNEL ROUTINE 
GO TO ROUTINE 

CHANNEL ROUTINE 
GO TO ROUTINE 

GET DEVICE SENSE INFO 
GO TO ROUTINE 

START I/O ROUTINE 
GO TO RTN 

SET MLSCF ROUTINE 
GO TO RTN 

CONVERT HEX TO 1443 
GO TO RTN 

CONVERT HEX TO DEC 
GO TO RTN 

ENTRY POINT 
GO TO RTN 

TEST I/O 
GO TO RTN 

PRINT RTN 
GO TO RTN 

TEST LOOP ON ERROR 
GO TO RTN 

TEST LOOP START I/O 
GO TO RTN 



*************************************************** 

* * 
********************** ***************************** 
* 

* EQUATES AND CONSTANTS FOR CCW'S 

*************************************************** 

* * 
********************** ***************************** 
* 



DATA CHAINING 

COMMAND CHAINING 

SUPPRESS INCORRECT LNG 

SKIP BIT 

PGM CONTROLLED INTERRUPT 



* 


FLAGS 




* 






FLDCH 


EQU 


/SO 


FLCCH 


EQU 


/40 


FLSLI 


EQU 


/20 


FLSKP 


EQU 


/08 


FLPCI 


EQU 


/10 


* 






* 


OP CODES 


* 






OPTIO 


EQU 


/OO 


OPWR 


EQU 


/Ol 


OPRD 


EQU 


/02 


OPNOP 


EQU 


/03 


WRDAT 


EQU 


/OS 



TEST I/O 
WRITE OP CODE 
READ OP CODE 
NO-OP 
WRITE DATA 
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814013&0 
81401390 
8140140O 
81401410 

8140 1420 
81401430 
81401440 
81401450 
81401460 
81401470 
81401480 
81401490 
81401500 
81401510 
81401520 
81401530 
81401540 
81401550 
8140 1560 
81401570 
81401580 
81401590 
81401600 
81401610 
81401620 
81401630 
81401640 
81401650 
81401660 
81401670 
81401680 
81401690 
81401700 
81401710 
81401720 
8140 1730 
81401740 
81401750 
81401760 
81401770 
81401780 
81401790 
81401800 
81401810 
81401820 
81401830 
81401840 
81401850 
81401860 
81401870 
81401880 
81401890 
81401900 
81401910 
81401920 
81401930 
81 401940 
81401950 
81401960 
81401970 
81401980 
81401990 
81402000 
814020 10 
81402020 
81402030 
81402040 
8 1402050 
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0006 





0004 





0007 





0011 





0008 





OOOB 





0013 





0012 





00 1 A 





001E 





0029 





OOOE 





00 OD 





0016 





009A 





0Q1B 





0039 





0049 





0051 





0069 





0071 





0031 





001F 





OOID 





00 19 





0015 






0000 





0001 





0002 





0003 





0004 





0005 





0006 





0007 





0008 






0008 





0009 





OOOA 





OOOB 





OOOC 





OOOD 





OOOE 





OOOF 






RDDAT 


EQU 


/06 


OPSNS 


EQU 


/04 


SEEKC 


EQU 


/07 


ERASE 


EQU 


/II 


OPTIC 


EQU 


/08 


SEEKB 


EQU 


/OB 


RCAL 


EQU 


/I3 


RDCNT 


EQU 


/12 


RDHA 


EQU 


/l A 


RDCKD 


EQU 


/IE 


SRCKE 


EQU 


/29 


RDKD 


EQU 


/OE 


WRKD 


EQU 


/OD 


RDRO 


EQU 


/16 


RDHMT 


EQU 


/9A 


SKHD 


EQU 


/IB 


SRCHA 


EQU 


/39 


SRCKH 


EQU 


/49 


SIDHI 


EQU 


/SI 


SKHE 


EQU 


/69 


SID HE 


EOU 


/71 


SRCID 


EQU 


/31 


SFILM 


EQU 


/IF 


WRCKD 


EQU 


/ID 


WRHA 


EQU 


/l 9 


WRRO 


EQU 


/IS 



READ DATA 

SENSE I/O 

SEEK CYLINDER 

ERASE RECORD 

TRANSFER IN CHANNEL 

SEEK BIN 

RECALIBRATE 

RD COUNT 

READ HOME ADDRESS 

RD COUNT KEY DATA 

SEARCH KEY EQUAL 

RD KEY DATA 

WR KEY DATA 

READ RECORD ZERO 

READ HA MULTI TRACK 

SEEK HEAD 

SEARCH HA 

SEARCH KEY HI 

SEARCH ID HI 

SEARCH KEY HI/EQ 

SEARCH ID HI/EQ 

SEARCH ID 

SET FILE MASK 

WRT CNT.KEY.DATA 

WRITE HA 

WRITE RECORD 



* * * * * * * ■,' * * * * * -r * * 



******* ******: 


**: 


* 






* 
* 


EQUATES 


Fl 


SCUNO 


EQU 





SCUSP 


EQU 


1 


SCPCI 


EQU 


2 


SCPCK 


EQU 


3 


SCDCK 


EQU 


4 


SCICC 


EQU 


5 


SCILG 


EQU 


6 


SCABZ 


EQU 


7 


SCUOP 


EQU 


8 



********************************* 

************************************* 

FOR CHANNEL STATUS D SW ■ S 

UNIT NOT OPERATIONAL 
UNIT STATUS PENDING 
PGM CNTRL INT. 
PGM CHECK 
DATA CHECK 

INTERFACE CNTRL CHECK 
INCORRECT LENGTH INDICATOR 
ADAPTER BUSY 
UNIT OPERATIONAL 

*************************************************** 

* * 
*************************************************** 
*************************************************** 

* * 
*************************************************** 
* 

* EQUATES FOR UNIT STATUS D SW 

UNIT STATUS-ATTENTION 
STATUS MQ3 IFILR 

CONTROL UNIT END 
UNIT BUSY 
CHANNEL END 
DEVICE END 
UNIT CHECK 
UNIT EXCEPTION 
*************************************************** 

* * 
*************************************************** 
* 

* EQUATES FOR 2311 SENSE BYTES 



UNATN 


EQU 


8 


UNSMD 


EQU 


9 


UNCUE 


EQU 


10 


UNBZY 


EQU 


1 I 


UNCHE 


EQU 


12 


UND VE 


EQU 


13 


UNCHK 


EQU 


14 


UNEXC 


EQU 


1 5 



0004 

0005 



FBRST EQU 
FOVRN EQU 



(BURST) DATA CK 
CHANNEL/284 1 OVERRUN 
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81402060 
814O20 70 
81402080 
81402090 
81402100 
81402110 
814021 20 
81 402130 
8 1402140 
81402150 
81402160 
814021 70 
81402180 
81 402190 
8 1402200 
814022 1 
81402220 
81402230 
8 1402240 
81 402250 
81452260 
81 402270 
81402280 
81402290 
8 1402300 
81 40231 
81402320 
81 402330 
81402340 
81 402350 
81402360 
81402370 
8 1402 380 
81402390 
81402400 
81 40241 
81402420 
81402430 
81402440 
81402450 
81402460 
81402470 
81402480 
81402490 
81402500 
8140251 
81402S20 
81402530 
81402540 
81402550 
81402560 
81402570 
81402580 
81402590 
81402600 
81402610 
81402620 
81402630 
81402640 
81402650 
81402660 
81402670 
81402680 
81402690 
81402700 
81 402710 
81402720 
81402730 
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0814- 
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0007 







0009 







OOOA 







OOOC 







0010 







0012 







0015 







00 18 







0019 







001 A 







001D 







001F 







0887 





0001 


0888 





2003 


0889 


1 


088A 



088A 0001 
088B 2013 
088C 1 088D 



088D 0001 

088E 2000 

088F 1 0890 

0890 0000 



0891 





0006 


0892 





0004 


0893 


1 


0894 


0894 




0004 


0894 







0895 







0896 







0897 







0898 


1 


088D 


0899 





0000 


089A 





0000 


089B 





0000 


089C 


1 


0891 


089D 





0000 


08 9E 





0000 


089F 





0000 


08A0 





0000 


08A1 





0000 


08A2 





0000 


08A3 





0000 


08 A4 





0000 


08A5 





0000 


08A6 





0000 


08A7 





0000 


08A8 





0000 


08A9 





0000 


08AA 





0000 


08AB 





0000 


08AC 




0004 


08BO 




0004 


08B4 




0004 


08B8 




0004 


08BC 




0004 


08C0 




0003 


08C4 




0000 


08C4 


1 


14CE 


08C5 





0000 



FSKCK 

FTROV 

FEOCY 

FNORC 

FUNSF 

FSERD 

FUNSL 

FDRDY 

FONLN 

FUNS I 

FECYL 

FSKIN 

* 

* 

NOPCC 



* 
* 
RECAL 



* 
* 
TSCCW 



EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 



DC 
DC 
DC 



DC 
DC 
DC 



DC 
DC 
DC 

TSWDS DC 



SNCCW 

* 

SNWDS 

SNWDO 

SNWD 1 

SNWD2 

SNWD3 

TI OXX 

HIOXX 

SENSE 

SIOXX 

SCSNO 

SCSN1 

SCSN2 

SCSN3 

SCSN4 

SCSN5 

SCSXO 
SCSX4 
SCSX8 
SCSXC 
SCSVS 
HA 



DC 
DC 

DC 

BSS 

EQU 

EQU 

EQU 

EQU 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

BSS 

BSS 

BSS 

BSS 

BSS 

BSS 

BSS 

DC 

DC 



7 

9 

10 

12 

16 

18 

21 

24 

25 

26 

29 

31 



SEEK CK 

END OF CYLINDER 
NO RECORD FOUND 

SERDES CHECK 

DRIVE READY 

UNSAFE 

END OF CYLINDER 

SEEK INCOMPLETE 



1 BYTE COUNT 

/20*256+0PN0P FLAGS AND DP CODE 



1 BYTE COUNT 

/20*256+RCAL FLAGS AND OP CODE 
* ADDRESS 



1 BYTE COUNT 

/20*256+OPT 10 FLAGS AND OP CODE 
TSWDS ADDRESS 



6 BYTE COUNT 

0*256+0PSNS FLAGS AND OP CODE 
SNWDS ADDRESS 



4 

SNWDS 

SNWDS+1 

SNWDS+2 

SNWDS+3 

TSCCW 

*-* 

*-* 

*-* 

SNCCW 

£ — # 

*-* 

*-* 

*-* 

# — * 

«-* 

*-* 

*-* 

*-* 

*-* 

*-* 

*-* 

*-* 

*-* 

*-* 

4 

4 

4 

4 

4 

3 



TLGBA 

#-* 



SENSE BYTES 



TIO CCW 

TO BE FILLED IN 



SENSE 10 W/SUPPRESS POLL 

TO BE FILLED IN 

TO BE FILLED WITH CCW ADDR 

TO BE FILLED IN 

= 08 

= 09 

= OA 

= OB 

= OC 

= 06 

START I/O SAVE AREA 

START I/O SAVE AREA 2 

TIO SAVE AREA 

SENSE I/O SAVE AREA 

SAVE AREA FOR SENSE INFO 



IOAREA ADDRESS 
TO BE FILLED IN 



81402740 

81402750 

81402760 

81402770 

81402780 

81402790 

81402800 

81402810 

81402820 

81402830 

81402840 

81402850 

81402860 

81402870 

81402880 

81402890 

81 402900 

81402910 

81 402920 

81402930 

81402940 

81402950 

81 402960 

81402970 

81402980 

81402990 

81 403000 

81403010 

81403020 

81403030 

81403040 

81403050 

81403060 

81403070 

81403080 

81403090 

81403100 

814031 10 

81403120 

814031 30 

81403140 

814031 50 

81403160 

814031 70 

81 4031 80 

814031 90 

81 403200 

81403210 

81 403220 

81403230 

81403240 

81403250 

8140 3260 

8 14032 70 

81403280 

81403290 

81403300 

81403310 

81403320 

81403330 

81403340 

81403350 

81403360 

81403370 

81403380 

81403390 

81403400 

81403410 



1800 DIAGNOSTIC MAINTENANCE PROGRAM 



08C6 





0000 


8C6 







08C7 





0000 


08C8 





0000 


08C9 





0000 


08CA 





0000 


08CB 





0000 


08CC 




0008 


08D4 




0007 


08DB 





FFFF 


08DC 




0009 


08E5 





FFFF 



TLGSP 


DC 


/OOOO 


TLGSN 


EQU 


TLGSP 




DC 


*-;S 


TLGCT 


DC 





TLGSW 


DC 





TLGSH 


DC 







DC 


*-* 


STSER 


PRNT 


• XX El 




PRNT 


• SECT 




DC 


/FFFF 


UNAD R 


PRNT 


. UNI" 




DC 


/FFFF 



SPACE IN 1443 CODE 
SENSE DSW IOCC 
TO BE FILLED IN 
LOOP COUNT FOR PRNTR INT 
1ST/2ND CHAR SW (1053) 
1ST/2ND CHAR SW (TLGCH) 
SENSE/RESET DSW 



X.RTN X . 
. UNIT XX.ADRS XXXX. 



SELECTOR CHANNEL INT ROUTINE 



08E6 





0000 




W 


IOSW 


DC 




*-* 


08E7 





0000 




WATSW 


DC 




*-* 


08E8 





0000 




SCISW 


DC 




*-# 


08E9 





0000 




T: 


SCAC 


DC 




*-* 


08EA 





0000 




S< 


C I 1 IT 


DC 




*-* 


ObEB 





68FA 








SIX 




WIOSW 


08EC 





6A6D 








SIX 


2 


SC IN7+1 


8ED 





696E 








b 1 X 


1 


SCIM7+3 


08EE 


1 


6600 


087F 






LD X 


L2 


TH 


08F0 





C269 








LD 


2 


SCISW-TB 


08F1 


1 


4C18 


0945 






BZ 




SC IN4 


08F3 





0A21 








X I 


2 


SCSNO-TH 


08F4 





100 1 








SLA 




1 


08F5 


1 


4C10 


09 OF 






bNN 




SC INO 


08F7 





0A25 








XIO 


2 


SCSN2-TB 


08F8 





18D0 








XCH 






08F9 





1010 








SLA 




16 


8FA 





1088 








SLT 




8 


08FB 





F2D2 








EOR 


2 


D VADR-TB 


8FC 


1 


4C18 


0904 






BZ 




SCINC 


08FE 





1092 








SLT 




8+UNCUE 


08FF 


1 


4C10 


0945 






tiNN 




SCIN4 


090 1 





C2D8 








LD 


2 


TIOSW-TB 


0902 


1 


4C18 


0945 






BZ 




SC IN4 


0904 





C2D8 




SCINC 


LD 


2 


TICSW-TB 


090b 


1 


4C18 


090F 






B2 




SCINO 



WAIT FOR USER INTERUPT 
WAIT FOR SYST TIO INT. 
INTERRUPT SWITCH 
SEL.CHAN AREA CODE 

INT. RTN ENTRY 
SET INTERUPT SWITCH 
SAVE REG 

SET UP POINTER TO TBL 
GET INT SWITCH 
BR IF NOT SET 

FETCH CHANNEL STATUS 
TEST FOR USP 
BRANCH IF NOT USP 

GET UNIT STATUS 

SAVE STATUS 

CLEAR A REG 

GET DEVICE ADDRS 

TEST FOR MY DEVICE 

BRANCH IF MINE 

TEST FOR CONTROL UNIT END 

BRANCH IF NOT CU END 

GET TIO SW 

BR IF INT NOT DUE TO TIO 

f-ETCH TIO SW 
BRANCH IF USER TIO 



GET HERE IF INTERRUPT FROM TIO AFTER SIO 
IF STATUS IS NON BUSY THEN PLACE IN SCSXO 
AND SCSX8 



0907 0A25 

0908 100B 

0909 1 4C28 0919 

090B 0A25 

090C EA2E 

090D D22E 

090E 700A 



090F C21B 

09 10 1 4C20 0939 



XIO 

SLA 

BN 

XI o 

OR 

STO 



2 SCSN2-TB FETCH UNIT STATUS 

UNBZY TEST FOR UNIT UK CU BUSY 

SCINX BR TO SET POINTER TO SCSX8 

2 SCSN2-TB FETCH UNIT STATUS 

2 SCSXO+l-TB MERGE WITH OLD STATUS 

2 SCSXO+l-TB * 



SCINX 



BR SET POINTER TO SCSXO 



GET HERE IF TIUSW WAS NOT ON AND TEST 
FOR USER TIO IF SO PLACE STATUS IN SCSX8, 
ELSE GO TEST FOR SENSE OPERATION INTERUPT 



SCINO LD 
BNZ 



2 HIOXX-TB 
SCIN3 



GET HIO SW 
BR IF SET 



81403420 

81 403430 

81403440 

81403450 

81403460 

81403470 

81403480 

81403490 

81403500 

81403510 

81403520 

81403530 

8 1403540 

81403550 

81403560 

8 1 40 35 70 

61403580 

81 403590 

8 1 403600 

8 1 40 36 1 

81403620 

8 1403630 

8 1403640 

81 403650 

81403660 

81 403670 

8 1403680 

81 403690 

81403700 

81 40371 

81403720 

81 403730 

81403740 

81403750 

81403760 

81403770 

81403780 

81403790 

81403800 

81 403810 

81403820 

81 403830 

81403840 

81 403850 

81403860 

8 14 3 8 7 

81403880 

81403890 

81403900 

81 40 39 10 

81403920 

8 1 40 39 30 

81403940 

81 403950 

81403960 

81 403970 

81403980 

81403990 

81404000 

81 4040 1 

81404020 

81 404030 

8 1404040 

81404050 

81404060 

81 404070 

8 1404080 

81 404090 
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DATE 
EC NO . . 



14N0V69 
4313 19 



30JAN70 
431319A 



15SEP71 
431328 



PROG ID 
PAGE 



08 1 4- 

3A 
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0912 0A29 

0913 D229 

0914 C219 

0915 8299 

0916 F229 

0917 1 4C2 09 ID 



0919 1 6700 08B4 
091B 68CB 
091C 702E 



091D C21D 

091E 8299 

091F F229 

0920 1 4C20 0925 

0922 1 6700 08B8 

0924 7026 



0925 C21F 

0926 1 6780 089E 

0928 8299 

0929 D211 
092A F229 
092B 1 4C18 0939 
092D C30 1 
092E 180E 
092F 1 4C20 0936 

0931 C301 

0932 F29D 

0933 1008 

0934 1 4C20 0945 

0936 7303 

0937 C211 

0938 70EF 

0939 1010 
093A D21B 
093B 1 6700 08AC 
093D C30 1 
093E 100D 
093F 1 4C28 094B 

0941 1001 

0942 1 4C28 094B 

0944 7008 

0945 1 6700 0961 
0947 1 6F00 0809 
0949 1 6700 08B0 

094B 1010 

094C D30 1 

094D 0A23 

094E D300 

094F 1001 



XIO 


2 


SCSN4-TB 


STO 


2 


SCSN4-TB 


LD 


2 


TIOXX-TB 


A 


2 


K3-TB 


EOR 


2 


SCSN4-TB 


bNZ 




SCIN1 



ELSE GET CCW ADDRS REG 

SAVE FOR LATER USE 

GET TEST I/O ADDRESS 

ADD THREE 

COMPARE WITH CCW ADRS REG 

BR IF NOT THE SAME 



GET HERE IF USER TIO OR SYSTEM TIO 
FOUND THAT THE UNIT OR CU WAS BUSY 
AFTER A TEST I/O. 



SCINX 



LDX 
STX 

MDX 



scsxa 

WATSW 
SCIN5 



ELSE POINT TO SAVE AREA 
SET TIO INTERRUPT SW 
GO TO COMMON RTN 



* 
* 
SCIN1 



SCIN2 



GET HERE IF NO TEST I/O WAS INDICATED 
BY THE PRIOR ROUTINES 



LD 

A 

EOR 

BNZ 

LDX 

MDX 



2 SENSE-TB 

2 K3-TB 

2 SCSN4-TB 

* + 3 
L3 SCSXC 

SCINS 



GET CCW ADDRESS FOR SENSE 

POINT TO FOLLOWING 

COMPARE 

BR IF NOT 

POINT TO SAVE AREA 

GO TO COMMON RTN 



GET HERE IF SENSE WAS FOUND NOT TO 
BE THE CAUSE OF THE INTERRUPT AND TEST 
FOR START I/U TO BE THE CAUSE, IF NOT 
THEN SET THE INTERRUPT TO THE UNEXPECTED. 



* 

SCI N3 



* 
SCIN4 



SCIN5 



* 
SCIN6 



LD 
LDX 

A 

STO 

EOR 

BZ 

LD 

SRA 

BNZ 

LD 

EOR 

SLA 

BNZ 

MD X 

LD 

MD X 

SLA 

STO 

LD X 

LD 

SLA 

BN 

SLA 

BN 

MDX 

LDX 
STX 
LDX 

SLA 
STO 

XIO 
STO 
SLA 



2 SIOXX-TB 
13 SIOXX 



K3-TB 

TSWDS-TB 

SCSN4-TB 

SCIN3 

1 

14 

* + 5 

1 

K8-TB 

8 

SCIN4 

3 

TSWDS- 

SCIN2 



-TB 



16 

2 HIOXX-TB 
L3 SCSXO 

3 1 
UNO VE 
SCIN5 
UNCHK-UNJ VE 



GET START I/O CCW ADDRESS 
SET IN REG TOO 

POINT TO NEXT ADRS AFTER 

SAVE IN TEMP STORAGE 

COMPARE 

BR IF SAME 

GET OPCODE/FLAGS 

SAVE CIO CHAIN/DATA CHAIN 

BR IF SET 

GET IT AGAIN 

TEST FOR TIC 

SAVE OPCODE ONLY 

BR IF NOT TIC 
POINT TO NEXT CCW IN CHAIN 
GET ADDRESS 
LOOP 

CLEAR HIO SW 

* 

POINT TO SIO SAVE AREA 

GET LAST UNIT STATUS 

TEST FOR DEVICE END 

BR IF SET 



TEST FOR UCHK 



SCIN5 
SCIN6 

L3 SCIN8 
L3 MLSCO 
L3 SCSX4 

16 
3 1 

2 SCSN1-TB 

3 

1 



BR IF SET 

ELSE 'OR' IN STATUS 

SET MLSCF ENTRY FOR RETURN 

*** 

POINT O SAVE AREA 

CLEAR WORD TO ZERO 
FOR OR'ING IN STATUS 

GET CHAN. STATUS 

SAVE 

TEST FOR USP 
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81404100 
814041 10 
814O4120 
81404130 
81404140 
81404150 
81404160 
81404170 
81404180 
81404190 
81404200 
81404210 
81404220 
81404230 
81404240 
81404250 
81 404260 
81404270 
81 404280 
81404290 
81404300 
81404310 
81404320 
81404330 
81404340 
81404350 
81404360 
81404370 
81404380 
81404390 
81404400 
81404410 
81 404420 
81404430 
81 404440 
81404450 
81404460 
81404470 
81 404480 
81404490 
81404500 
81404510 
81404520 
81404530 
81 404540 
81404550 
81 404560 
81404570 
81404580 
81404590 
81 404600 
81404610 
81404620 
81404630 
81404640 
81404650 
81404660 
81404670 
81 404680 
81404690 
81404700 
81404710 
81404720 
81404730 
81404740 
81404750 
81404760 
81404770 
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0950 1 4C10 095F 



0952 0A27 

0953 O EB01 

0954 D30 1 

0955 0A29 

0956 O D302 

0957 0A2B 
0956 D303 



0959 6600 0000 
095B O 6500 0000 



095D 1 4C80 08EA 



# 


BNN 




SCINA 


BRANCH IF NOT ON 




XIO 


2 


SCSN3-TB 


GET UNIT STATUS 




OR 


3 


1 


COMBINE WITH EXISTING 


SCINB 


STU 


3 


1 


SAVE 




XIO 


2 


SCSN4-TB 


GET CCW ADDRESS REG. 




STO 


3 


2 


SAVE 




XIO 


2 


SCSN5-TB 


GET BYTE COUNTER 




STO 


3 


3 


SAVE 


SC1N7 


LDX 


L2 


* — * 


RELOAD REG 2 




LDX 


LI 


*-* 


REG 1 



BSC I SCINT 



EXT INT. RTN 



GET HERE IF USP WAS NOT THE CAUSE OF 
THE INTERRUPT AND SET US TO 0000 



095F 1010 


SCINA SLA 


16 


CLEAR ACC 


0960 70F3 


MD X 


SCINB 


RETURN 



0961 


1 


6600 


087F 


SCIN8 


LDX 


L2 


IB 


0963 





610C 






LDX 


1 


12 


0964 


1 


6700 


08B0 


* 
SCIN9 


LD X 


L3 


SCSX4 


0966 





C300 




LD 


3 





0967 





42F2 






BSI 


2 


TCVBE-TB 


0968 


1 


D500 


0983 




STO 


LI 


SCIM2-1 


096A 





18D0 






XCH 






096B 


1 


D500 


0984 




STO 


I. 1 


SCIM2 


0961) 





7301 






MDX 


3 


1 


96E 





7 1FD 






MD X 


1 


— 3 


096F 





70F6 






MD X 




SC IN9 



RETURN HERE AFTER UNEXPECTED INT 

SET UP TABLE POINTER 

SET UP POINTER 

SET TO CSW SAVE AREA 



GET CHNL STATUS 
CONVERT TO 1443 CODE 
PUT IN MESSAGE 



* 



0970 42FE 

0971 1 0974 

0972 4C80 1 2D 

0974 00 15 

0983 O t-FOO 

0984 0013 
0991 FFFF 



BSI 2 TLGMS-TB 
DC SCIIWS 
BSC I START 



SCI MS PRNT 
DC 

SCIM2 PRNT 
DC 



.** ER 00 UNEXPECTED INTERRUPT. 

/FI-00 

.CSW XXXX, XXXX, XXXX, XXXX. 

/FFFF 



0992 0000 

0993 C28D 

0994 D223 

0995 C268 

0996 1 4C20 09A6 

0998 42EF 

0999 1 74F6 08A2 
99B 7 OF 9 



*************************************************** 

*************************************************** 
* WAIT FOR INTERRUPT 
*************************************************** 



ENTRY POINT 

FETCH TIME OUT CONSTANT 



99C 





0A23 


099D 





D239 


099E 





0A27 


099F 





D23A 


09A0 





0A29 


09A1 





D23B 


09A2 


o 


0A2B 



!,;-,. jj; ^: ; ( < 


* * * * * 


; * * * , 


* ******** ** 


TINTW 


DC 




*— * 




LD 


2 


TERNi- TB 




STO 


2 


SCSM-TB 


TINT2 


LD 


2 


WATSW-TB 




BNZ 




TINT3 




BSI 


2 


STMLS-TB 




MDX 


L 


SCSN1 ,-1 


* 


MD X 




T1NT2 


XIO 


2 


SCSN1-TB 




STO 


2 


SCSXC-TH 




XIO 


2 


SC.SN3-TB 




STO 


2 


SCSXC+1-TB 




XIO 


2 


SCSN4-TH 




STO 


2 


SCSXC+2-TH 




XIO 


2 


SCSN5-TB 



GO VISIT MONITOR 



GET CHANNEL STATUS 

* AND SAVE FOR ERR 

* MESSAGE 
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81404780 
81404790 
8 1404800 
81 404810 
81404820 
81404830 
81404840 
81404850 
81404860 
81404870 
81404880 
81404890 
81404900 
81404910 
81404920 
81 404930 
81404940 
81404950 
81404960 
81404970 
81404980 
81404990 
81405000 
814050 10 
81405020 
81405030 
81405040 
81405050 
814050 60 
81405070 
81405080 
81 405090 
8 1405100 
814051 10 
81405120 
81405130 
81405140 
81405150 
814051 60 
81405170 
81405180 
81 405190 
81405200 
81405210 
81405220 
81 405230 
81405240 
8140 5250 
81405260 
81405270 
81405280 
81405290 
81405300 
81 405310 
81405320 
81 405330 
81405340 
81 405350 
81405360 
8140 5370 
81405380 
81 405390 
81405400 
81405410 
81405420 
81 405430 
81405440 
81405450 
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1800 DIAGNOSTIC MAINTENANCE PROGRAM 

09A3 D23C 

* 
09A4 1 4C80 0992 



09A6 1 7401 0992 

09A8 1010 

09A9 O D268 

09AA 1 4C80 0992 



09C5 
09C6 1 
09C8 1 
09CA 1 
9CC 
09CD 1 
09CF 
0901 1 
09D2 1 
09D3 
0904 1 
0906 
09D8 1 
09D9 1 
09DA 
09DA 
09DB 
09DC 
9DD 
09DE e 
09DF 
09E0 1 



0000 

6700 09F5 

6FO0 080b 

6600 087F 

C294 

4C10 09D3 

4480 0132 

0813 

080C 

C29S 

4C10 9DA 

4480 0132 

0814 

080C 

1010 
D2D7 
D20 4 
D2D3 
C29 7 
D2fc 1 
4C8 09 C 5 



* 
TINT3 



STO 2 SCSXC+3-TB 

BSC I TINTW 

MD X L TINTW .1 
SLA 16 

STO 2 WATSW-TB 

BSC I TINTW 



EXIT RTN 



EXIT RTN 











* 










***** 










* 










***** 










* 


09AC 





4480 


012C 


BGIN 


09AE 


1 


07FF 




***** 

* 

***** 


09AF 





0000 




ZIPA 


09B0 





COFE 






09B1 





D013 






09B2 


1 


66 00 


087F 


* 


09B4 





10 10 






09B5 


1 


D400 


14B0 




09B7 





D2D3 






09B8 





D267 






09B9 





D2D8 






09BA 





D268 






09Bb 





D283 






09BC 





D284 






09BD 





D286 






09BE 


1 


D400 


1 294 




09C0 





C2BC 






09C1 





D285 






09C2 





C297 






09C3 





D2D6 






09C4 





7001 







***************************************** 

***************************************** 

BSI I BEGIN GO TO MONITOR BEGIN R 

DC TPID ADDRESS OF P ID 

***************************************** 

***************** ************************ 
DC *-* ENTRY POINT 

LD ZIPA MOVE RETURN ADDRS 

STO ZLPA * 

LDX L2 TB SET UP POINTER 



SLA 
STO 
STO 
STO 
STO 
STO 
STO 
STO 
STO 
STO 
LD 
STO 
LD 
STO 
MDX 
* * * * * 



16 

FRESW 

LGBSY-TB 

W10SW-TB 

TIOSW-TB 

WATSW-TB 

TSWO-TB 

TSW1-TB 

TSW3-TB 

STMPT 

HFFOO-TB 

TSW2-TB 

Kl-TB 

PSCNT-TB 

ZLPA+1 



RESET- 
RESET CONTROL SWS 
* 



* SW 

* SW 1 

* SW 3 

RESET STMLS POINTER 
FETCH CONSTANT 
PLACE IN SW 2 
FETCH CONSTANT OF 1 
SET PASS COUNT=l 
CONT INUE 
****************** 



* * * ■■ 



* * * * * * * * * * * * * * * * * * * * * * * * * * * * * = 



****** 



ZLPA DC 
LD X 
STX 
LDX 
LD 
BNN 
BSI 
DC 
DC 

ZLPA1 LD 

BNN 
BSI 
DC 
DC 

ZLPA2 EQU 
SLA 
STO 
STO 
STO 
LD 
STO 
BSC 



L3 
L3 

L2 
2 



*-* 

TCNPR 

MLSC2 

TB 

TLGED-TB 

ZLPA1 

RELDV 

TLGED 

TERM 

TSCED-TB 

ZLPA2 

RELDV 

TSCED 

TERM 

* 

16 

STKSW-TB 

SIUSW-TB 

LGBSY-TB 

Kl-TB 

TSID-TB 

ZLPA 



LOUP PGM RTN 
GET MLSCF ADDRESS 
SET IN TBL 
SET UP TBL POINTER 
LOOK AT LOG EDIT 
BR IF RELEASED 
ELSE RELEASE DEVICE 
ADDR OF EDIT WORD 
TERMINATOR 
SEL. CHAN. EDIT 

RELEASE DEVICE 



RESET- 

* STACK SW 

* SIO SW 

* LOG BUSY SW 
FETCH CONSTANT QF 
SET SECTION ID = ! 
EXIT 



*************************************************** 

* 

*************************************************** 



81405460 


81405470 


81405480 


81405490 


81405500 


81405510 


81 405520 


8 1405530 


81405540 


***** 8 1405550 


* 81405560 


***** 81405570 


81405580 


TN 81405590 


81 405600 


***** 81405610 


* 81405620 


***** 81405630 


81405640 


81405650 


81405660 


81405670 


81 405680 


81405690 


81405700 


81405710 


81405720 


81405730 


81 405740 


81405750 


81405760 


8140S770 


81405780 


81405790 


81 405800 


81405810 


81 405820 


81405830 


***** 81405840 


* 81405850 


***** 81405860 


81405870 


81405880 


81405890 


81405900 


81405910 


Ml 405920 


81405930 


81405940 


81405950 


81405960 


8 1405970 


81405980 


81405990 


81406000 


81406010 


81406020 


8 14060 30 


81 406040 


81406050 


81406060 


81406070 


81 406080 


81406090 


81406100 


***** 81406110 


* 81406120 


:***** 81406130 
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09E2 O 0000 

09E3 1 6600 087F 

09E5 O C294 

09E6 1 4C10 09EC 

09E8 4480 0132 

09EA 1 0813 

09EB 1 080C 

09EC O C295 

09ED 1 4C10 09F3 

9EF O 4 48 132 

09F1 1 08 14 

09F2 1 080C 

09F3 1 4C80 09E2 



ZEPA 


DC 




*-* 




LDX 


L2 


TB 




LD 


2 


TLGED 




BNN 




ZEPA1 




bSI 


I 


RELDV 




DC 




TLGED 


* 


DC 




TERM 


ZEPA1 


LD 


2 


TSCED 




BNN 




ZEPA2 



BSI I RELDV 
DC TSCED 

DC TERM 

ZEPA2 BSC I ZEPA 
******************** 



EN> PGM RTN 
SET UP TBL POINTER 
TB LOOK AT LOG EDIT 

BR IF RELEASED 
ELSE RELEASE DEVICE 
ADDR OF ED IT WORD 
TERMINATOR 

rB SEL CHANNEL EDIT 
BR IF RELEASED 

RELEASE DEVICE 
ADDRS OF EDIT WORD 

EXIT BACK TO MONITOR 

= ***** ********#***#*$;;,,;< *#:(::( 



* PRE-CONTROL ROUTINE 



is ***************;*:$*:;;#;;<£*$ * 
1= * * * * * * * *************»[ 

SET UP TABLE POINTER 
GET 43/53 SWITCH 



REQUEST DEVICE 
BUSY RETURN 
ED IT FOR PRINTER 
AREA CCDE GIVEN BACK 
TERM INATOR 
RELEASE DEVICE 
I'D IT FOR PRINTER 
TERM INATOR 
GFT PRINTER AREA CODE 



ADD ONE 

SET SW FOR 43 OR 53 



GET DEVICE FOR USE 

RELEASE DEVICE 

GET SW FNC 2 (DEV ADl 

SAVE BITS 0-7 

BR IF ZERO 

PRINT MESSAGE 
■ENTER DFV ADDRESS' 

GO TO MONITOR 
GET SW FNC 2 
SAVE BITS 0-7 
SKIP IF ZERO 
LOOP UNTIL OK 

GET SW FNC 2 
SET FOR SIO/TIO/SNS 
CONVERT ADDR TO EBC 
U TO A 
STORE FOR PRINT 

GET PASS COUNT 
CVT TO DECIMAL 
CONVERT TO 1443 CODE 
O TO A 











* * * * * 


* * * * * 


! * * * 


********* 


09F5 


1 


6600 


08 7F 


TCNPR 


LDX 


L2 


TB 


9F7 





C2DC 






LD 


2 


T45SW-TB 


09F8 


1 


4C2 


OAOC 




BNZ 




TCN01 


09FA 





42LF 




TCNRO 


BSI 


2 


STMLS-TB 


uyi-B 





4480 


131 




BSI 


I 


REODV 


9FD 


1 


9FA 






DC 




TCNRO 


09FE 


1 


08 13 






DC 




TLGED 


9FF 


1 


1 46D 






DC 




TLGD A 


OAOO 


1 


08 OC 






DC 




TERM 


OA0 1 





4480 


0132 




bSI 


I 


RELD V 


OA03 


1 


08 13 






DC 




TLGED 


0A04 


1 


08 OC 






DC 




TERM 


0A05 


1 


C400 


146D 




LD 


I 


T L GD A 


0A07 





F2B6 






FOR 


y 


H3000-TB 


OAOb 





4820 






SKP 




Z 


0A09 





C297 






LD 


y 


K 1-TB 


OAOA 





8297 






A 


2 


Kl-TB 


OAOB 





D2DC 






STU 


2 


T45SW-TB 


OAOC 









TCNO 1 


LCJU 




* 


OAOC 





42 E 6 






BSI 


? 


Gt TO V-TB 


OAOD 





42E3 






BSI 


2 


FRED V-TH 


OAOE 





C285 






LD 


2 


TSW2-TB 


AOF 





18 08 






SR A 




8 


0A1 


1 


4C18 


0A19 




BZ 




TCN02 


0A12 





42FE 






BSI 


2 


1 EGMS-TB 


0A13 


1 


0AC3 






DC 




TCME2 


0A14 





42EF 






bsr 


p> 


STMLS-TB 


0A15 





C285 






LD 


2 


TSW2-TB 


0A16 





1808 






SRA 




8 


0A17 





4820 






SKP 




/. 


OA18 





70FB 




* 
TCN02 


MDX 




*-5 


OA1 9 





C285 




LD 


2 


TSW2-TB 


0A1 A 





D2D2 






STO 


2 


D VADR-TB 


OA1B 





42F2 






BSI 


2 


TCVBE-TH 


0A1C 





1 090 






SLT 




1 6 


0A1D 





D04B 






STO 




CUU1 1 


0A1E 





C2D6 






LD 


2 


PSCNT-TB 


0A1F 





42F5 






BSI 


2 


TCVHD-TB 


0A20 





42F2 






BSI 


2 


TCVBE-TB 


0A21 


o 


18D0 






XCH 







81406140 
81406150 
8 1406160 
81406170 
814061 80 
81406190 
81406200 
814062 10 
81406220 
8140 62 30 
81406240 
81406250 
81406260 
81406270 
81406280 
81406290 
81406300 
a 1 40 63 1 
8 1406320 
81406330 
81406340 
81406350 
8 1406360 
81406370 
81406380 
81 406390 
8 1406400 
81406410 
81406420 
81 406430 
81406440 
8 1 40 64 5 
8 1406460 
81406470 
8 140 64 80 
81 406490 
81406500 
81 40 65 1 
8 1406520 
81406530 
8 1406540 
81 406550 
81406560 
81 406570 
8 1406580 
81 406590 
8 1406600 
8 1 40 6610 
81406620 
81 406630 
8 1406640 
81 406650 
8 1406660 
81 406670 
8 140 6680 
8 1 406690 
8 1406700 
81 406710 
8 1406720 
81 406730 
81406740 
81 406750 
81406760 
81406770 
81406780 
81 406790 
8 1406800 
81 40681 



'ATE 

; no. 



14NOV69 
431319 



30JAN70 
431319A 



15SEP71 
431328 



PROG ID 
PAGE 



0814-0 
5 



DATE 
EC NO. 



14N0V69 
4313 19 



30JAN70 
431319A 



15SEP71 
431328 



PROG ID 

PAGE 



0814-0 

5A 
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0A22 


Q 


D04B 




STO 




TTL01+3 


0A23 





C298 


TCNOK 


LD 


2 


K2-TB 


0A24 





EA83 




OR 


2 


TSWO-TB 


0A25 





D283 




STO 


2 


TSWO-TB 


0A26 





42FE 




US I 


2 


TLGMS-TB 


0A2? 


1 


0A5A 


* 


DC 




TTLOO 


0A28 





42F8 


as i 


2 


THALT-TB 


0A29 





C283 




LD 


2 


TSWO-TB 


0A2A 





100b 




SLA 




11 


0A2B 


1 


4C10 0A23 




BNN 




TCNOK 



0A2D 

0A2D 1 6600 087F 

C284 

100C 

180C 

D2BF 

C28 4 

E2AD 

1884 

D2BE 

0A37 1 4C20 0A4A 
0A39 1090 

180C 

4C20 0A4E 



0A2F 
0A30 
0A31 
0A32 
0A33 
0A34 
0A35 
0A3 6 



0A3A 
0A3B 



0A3D 1 6580 0800 

0A3F 1 C500 0AS7 

0A41 D282 

0A42 1010 

0A43 D2C0 

0A44 D296 

0A45 C281 

0A46 8297 

0A47 D281 

0A48 1 4C80 0801 

0A4A 0281 

0A4B 900B 

0A4C 1 4C28 0A3D 



0A4E 





C284 


0A4F 





42F2 


0A50 





D06E 


0A51 





1090 


0A52 





D06D 


0A53 





42FE 


0A54 


1 


0AB4 


0A5S 





42F8 


0A56 





42DD 


0A57 





0003 


0A58 


1 


0AD3 


0A59 


1 


108E 


0A5A 








0A5A 0015 

0A69 0001 

0A6A FFOO 

0A6B 0005 



POT IN MSG 

PUT HALT BIT IN Sw O 



MSG ADDRESS 

GO WAIT FOR OPER ACTION 

GET OPTION SWS 

IS WRITE OK 

BR IF NO 

********************** ************ ***************** 
* * 

*************************************************** 
* 

THIS ROUTINE CONTROLS ALL TESTS 



* 
* 
TCNTE 



* 
TCN03 



* 
TCN04 



* 
TCNER 



EQU 

LDX 

LD 

SLA 

SRA 

STO 

LD 

AND 

SRT 

STO 

BNZ 

SLT 

SRA 

BNZ 

LDX 

LD 

STO 

SLA 

STO 

STO 

LD 

A 

STO 

BSC 

STO 
S 

BN 

LD 

BSI 

STO 

SLT 

STO 

BSI 

DC 

BSI 

BSI 



L2 
2 



* ENTRY POINT 

TB SET TABLE ADDRESS 

TSW1-TB GET SW FNC 1 

12 SAVE BITS 12-15 

12 ** 

TRTNN-TB ** 

TSW1-TB GET SW FNC 1 

HOOFF-TB DROP BAD BITS 

4 SAVE BITS 8-11 

TSCTN-TB SAVE SECTION NUMBER 

TCN04 BR IF NOT ZERO 

16 GET BACK BITS 12-15 

12 SAVE THEM 

TCNER ERR. NO SECTION SPECIFIED 



II 

LI 

2 

2 

2 
2 
2 

2 



-TB 



TSID 

TCNTA 

TSAD- 

16 

TCNSW-TB 

TRID-TB 

TSID-TB 

Kl-TB 

TSID-TB 

TSAD 

TSID-TB 

TCNTA 

TCN03 

TSW1-TB 

TCVBE-TB 

TTLER+1 1 

16 

TTLER+12 

TLGMS-TB 

TTLER 

THALT-TB 

CNTRL-TB 



GET SECTION NUMBER 

GET SECT. PREFACE ADDRESS 
STORE IN SEC ADDRS 

CLEAR ERROR COUNTER 
*** 

CLEAR RTN ID TO ZERO 
INCREMENT SECTION 



GO TO SECTION PREFACE 

STORE SECT. NUMBER 
SUB. NUMBER OF SECTIONS 
BR IF OK 

GET SW FNC 1 
CONVERT HEX TO PRNT CODE 
PUT INVALID SWITCH 
* SETTING INTO MESSAGE 



GO TO RETRY RTN SELCT 



TCNTA DC TCNTZ-TCNTA LENGTH OF TBL + 1 

DC T10NT SECTION ADDRESS 

DC T20NT SECTION ADO RESS 

TCNTZ EQU # END OF TABLE 

*************************************************** 
* * 

******************#***************************#**;<(* 

TTLOO PRNT . DISK INITIALIZATION ON UNIT . 

CUU11 PRNT . . 

DC /FFOO 

TTL01 PRNT .PASS- XX . 
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81406820 

81406830 

81406840 

81406850 

8I4O6860 

8I40687O 

81406880 

81406890 

81406900 

81406910 

8140 6920 

81406930 

81406940 

81406950 

81406960 

81406970 

81406980 

81406990 

81407000 

81407010 

81407020 

81407030 

81407040 

81407050 

81407060 

81407070 

81407080 

81407090 

81407100 

814071 10 

81407120 

81407130 

81407140 

81407150 

81407160 

81407170 

81407180 

81407190 

81407200 

81407210 

81407220 

81407230 

81 407240 

81407250 

81407260 

81407270 

81407280 

8 1407290 

81407300 

81407310 

81407320 

81407330 

81407340 

81407350 

81407360 

81407370 

8140 7380 

81407390 

81407400 

81407410 

81407420 

81407430 

81407440 

81407450 

81407460 

81407470 

81407480 

81407490 
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0A70 





FFOO 




DC 


0A71 




0018 




PRNT 


0A83 




0015 




PRNT 


0A92 





FFOO 




DC 


0A93 




00 17 




PRNT 


0AA4 




O01S 




PRNT 


0AB3 





FFFF 




DC 


0AB4 




0013 


TTLER 


PRNT 


OAC 1 





OOFF 




DC 


C(AC2 





FFFF 




DC 


0AC3 




0012 


TCNE2 


PRNT 


OACF 





FFOO 




DC 


OADO 





FFFF 




DC 



0AD1 0001 

0AD2 O 0002 

0AD3 C2BF 

0AD4 1 4C18 OADB 

0AD6 90FB 

0AD7 1 4C30 0A4E 

0AD9 80F8 

OADA 7000 



OADB 

OADB 1 7401 0815 

OADD 1 4C18 0AE2 

OADF 9297 

OAEO 1 4C20 OCEA 



0AE2 
0AE3 
0AE4 
0AE6 
0AE7 



C283 

100A 

1 4C10 0AE8 

42FE 

1 0CC7 



0AE8 42E6 



0AE9 1 6500 1040 

OAEB 1 6D00 114F 

OAED 1 65B0 0B90 

OAEF 1 6D00 1042 



0AF1 10 10 

0AF2 6500 FFEC 

0AF4 1 0500 0C03 

0AF6 7101 

0AF7 70FC 

0AF8 1 6500 0B65 

OAFA 690 1 

OAFB 42FE 

OAFC 0000 



/FFOO TERMTNATOR 

. CAUTION - THE ENTIRE PACK ON ORIVE. 
.SPECIFIED WILL BE RE-W-RITTEN -. 
/FFOO 

•TURN ON BIT 1 1 OF SWITCH FUNCTION. 
•ZERO AN> EXIT LOOP TO CONTINUE. 
/FFFF 

. **ER INVLD SWS FNC 1 XXXX. 
/OOFF 
/FFFF 

. *** SELECT OPTIONS ***. 
/FFOO 
/FFFF 
************ *************************************** 

* * 

* 

* SECTION PREFACE 



T10PR DC 

DC 

* 

T10NT LD 
BZ 
S 

tJP 
A 
I^D X 



/0001 

2 



SECTION NUMBER 



2 TRTNN-TB SW FNC 1 BITS 12-15 

T1101 BR IF RUN ALL RTNS 

T10PR+1 TEST FOR VALID 

TCNER BR IF INVALID RTN NUMBER 

T10PR+1 RESTORE RTN NUMBER 

T1101 GO TO FIRST RTN 



******* ************* **********************~***#*£:fc$ 

********************* *************************** ,^^^ 
* 

*************************************************** 
* * 

********************** ***************************** 
T110 1 EQU * TEST ENTRY POINT 

MDX L TRID.l BUMP RTN ID 

BZ T1102 BR IF TEST NUMBER ZERO 

S 2 Kl-TB DECREMENT BY ONE 

BNZ T1201 BR IF NOT THIS TEST 



* 
Tl 



Tl 
** 



102 LD 2 TSWO-TB GET OPTION SWS 
SLA OTTLE PRINT TITLES 
BNN T1103 BR IF NOT SET 
BSI 2 TLGMS-TB GO TO PRINT ROUTINE 
DC TTL11 MESSAGE ADDRESS 

103 bSI 2 GETDV-TB GET CHANNEL FOR RTN 
******************** ************************* 



* * * * * * * * * * * * * * * * * * * :[ 



LDX 
STX 
LDX 
STX 



SLA 
LDX 
STO 
MDX 
MD X 



LI 
LI 
I 1 
LI 



LI 
LI 

1 



CKERR 
WTADR 
MAORI 
CKERR+2 



************************* 
* LOAD ERROR ADDRESS 
AND SET UP IN INT RTNE 
** GET MESSAGE NO. 
** OVERLAY IN MSG 0/P 
** ROUTINE PARAMETER 

***************** 



**** 
* 
**** 



16 

ICW14-CEISD 1 
CEND 1 

+ 1 
*-4 



* INITIALIZE CNTRS* 

* AND RD WR AREAS* 

* TO ZERO * 



Tl 



LDX LI T11MA 

STX 1 T11MP+1 

IMP bSI 2 TLGMS-TB 

DC *-* 



LD MSG ADOR 
AN) INSERT 



FILL WITH MSG PARAM 
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8 1407500 
81407510 
81407520 
81407530 
814Q7540 
81407550 
81407560 
81407570 
81407580 
8140759O 
81407600 
81407610 
81407620 
81407630 
81407640 
81407650 
81407660 
81407670 
81407680 
81 407690 
81407700 
81407710 
81407720 
81407730 
81407740 
81 407750 
8 1407760 
81407770 
81407780 
81407790 
81407800 
81407810 
81407820 
81407830 
81407840 
81407850 
81407860 
81407870 
81407880 
81407890 
81407900 
81407910 
81407920 
81 407930 
81407940 
81407950 
81407960 
81 407970 
81407980 
8140 7990 
81408000 
814080 10 
81408020 
81 40 80 30 
81408040 
81 408050 
81408060 
81408070 
81408080 
81408090 
8 1408100 
814081 10 
81408120 
814081 30 
81408140 
81408150 
81408160 
81408170 
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PROG ID 
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0814- 
6 
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EC NO. 
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6A 
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* 








**#*#****##*#***##* 




814O8I80 


OAFD 





10 10 






SLA 




16 


* SET UP CYL NO 






81408190 


OAFE 


1 


0400 


OBFD 




STO 


L 


CYCNT 


* AND HEAD NO 






81408200 


OBOO 


1 


0400 


OBFE 




STO 


L 


HDCNT 


* EQUAL TO ZERO 






81408210 


0B02 


1 


D400 


OBEB 




STO 


L 


ICWll+1 


* INITIALIZE 






81408220 


060 4 


1 


D400 


OBEC 




STO 


L 


ICW11+2 


* SEEK PARAMETERS 






81408230 


0B06 





61F9 






LDX 


1 


-7 


+++ CLEAR 






8 1 40 82 4 S 


0B07 


I 


D500 


0BF6 




STO 


LI 


ICW14+7 


+++ WR AREA 






8140825O 


0B09 





7101 






MDX 


1 


+ 1 


+ + + 






81408260 


OBOA 





70FC 






MDX 




*-4 


+++ 






814082 70 


OBOB 





42EC 




T1104 


BSI 


2 


SIO-TB 


** SEEK CYLINDER 






81408280 


OBOC 


1 


0BD2 






DC 




ICCW1 


** CCW 






81408290 


OBOD 


I 


4400 


1037 




BSI 


L 


CKSTA 


GO CHECK STATUS 






81408300 


OBOF 





70FB 






MDX 




*-5 


LOOP ERROR PARAM. 






81408310 


OB10 


1 


7400 


0C01 


BRBAK 


MD X 


L 


RWSW 


RD/WR SW SET 






81408320 


0B12 





7005 




* 


MDX 




Til 06 


YES -BR. 




* 


81408330 
8140 8340 










* DO SIO FOR WRITE 






* 


814O83S0 










* 












* 


81408360 


0B13 





42EC 




T1105 


BSI 


2 


SIO-TB 


** WRITE HA AND RO 






81408370 


0B14 


1 


OBDS 






DC 




ICCW2 


** CCW CHAIN 






8140 8380 


OBIS 


1 


4400 


1037 




BSI 


L 


CKSTA 


GO CHECK STATUS 






81408390 


0B17 


0, 


70FB 




* 


MD X 




*-5 


LOOP ERROR PARAM. 




* 


81408400 
81408410 










* DO SIO FOR READ 






* 


81408420 










* 












* 


81408430 


0B18 









Tl 106 


EQU 




* 








81408440 


0BI8 





1010 






SLA 




16 








81408450 


0B19 





61F9 






LDX 


1 


-7 


+++ CLEAR 






81408460 


OBI A 


1 


D500 


OBFD 




STO 


LI 


ICW16+7 


+ ++ RD AREA 






81408470 


0B1C 





7101 






MD X 


1 


+ 1 


+ + + 






81408480 


0B1D 





70FC 






MDX 




*-4 


+ + + 






814084 90 


0B1E 





42EC 






BSI 


2 


SIO-TB 


** READ HA AND RO 






81408500 


0B1F 


1 


0BE1 






DC 




ICCW3 


** CCW CHAIN 






81408510 


OB20 


1 


4400 


1037 




BSI 


L 


CKSTA 


GO CHECK STATUS 






81408520 


0B22 





70FB 






MDX 




*-5 


LOOP ERROR PARAM. 






81408530 


0B23 


1 


4400 


0C16 




BSI 


L 


Tl 1CM 


COMPARE HA & RO 






81408540 










* 


AFTER WRITE - READ 


DATA HAS BEEN COMPARED 


* 


81408550 










* 


INCREMENT HD AND/OR CYL NO -CK SACRED 


CYLS 


~ 


81408560 










* 












* 


81408570 


0B25 


1 


7401 


OBFE 




MD X 


L 


HDCNT , + 1 


I NCR HD CNTR 






81408580 


0B27 


1 


C400 


OBFE 




LD 


L 


HDCNT 








81408590 


0B29 





F29F 






EOR 


2 


K10-TB 


IS HD CNT 10 






81408600 


0B2A 


1 


4C20 


0B40 




BNZ 




Tl 108 


NO -SET NEW HD NO IN HA. 


,R0 


81408610 


0B2C 


1 


D400 


OBFE 




STO 


L 


HDCNT 


YES -CLEAR HD NO. CNTR 




81408620 


0B2E 


1 


740 1 


OBFD 


Tl 1 15 


MDX 


L 


CYCNT .+1 


INCR CYL CNTR 






81408630 


0B30 


1 


C400 


OBFD 




LD 


L 


CYCNT 








81 408640 


0B32 





F028 






EOR 




DE200 


IS CYL CNTR 200 






81408650 


0B33 


1 


4C18 


0B4D 


* 


BZ 




Tl 109 


YES -ALL TRACKS ARE 
WRITTEN AND READ. 






81408660 
81408670 


OB 35 


1 


4C00 


0C04 




BSC 


L 


SCYCK 


SACRED CYL. CHECK 






81408680 


0B37 


1 


C400 


OBFD 


CKRTN 


LD 


L 


CYCNT 


* LD . POSITION AND 


I NSERT 


81408690 










* 








*CYL NO. 






81408700 


0B39 


1 


D400 


0BF2 




STO 


L 


ICW15 


INSERT IN RO WRITE 


AREA 




81408710 


0B3B 


1 


D400 


OBEB 




STO 


L 


ICW1 1+1 


MAINTAIN SEEK PARAM. 




81408720 


0B3D 





1006 






SLA 




8 








81408730 


0B3E 


1 


D400 


OBFO 




STO 


L 


ICW14+1 


INSERT IN HA WRITE 


AREA 




81408740 


0B40 


1 


C400 


OBFE 


Tl 10B 


LD 


L 


HOC NT 


* LD , POSITION AND 


I NSERT 


81408750 










* 








* HEAD NO. 






81408760 


0B42 


1 


D400 


0BF3 




STO 


L 


ICW15+1 


INSERT IN RO WRITE 


AREA 




81408770 


0B44 


1 


D400 


OBEC 




STO 


L 


ICW1 1+2 


MAINTAIN SEEK PARAM. 




81408780 


0B46 





1008 






SLA 




8 








81408790 


0B47 


1 


D400 


0BF1 




STO 


L 


ICW14+2 


INSERT IN HA WRITE 


AREA 




81 408800 


0B49 


1 


7400 


OBFE 




MDX 


L 


HDCNT 


HD CNTR 






81408810 


0B4B 





70C4 






MO X 




BRBAK 


NO -DO SEEK HD CCW 


CHAIN 


81408820 


0B4C 





70BE 






MDX 




Tl 104 


YES -DO SEEK CYL CHAIN 




81408830 


0B4D 


1 


7400 


0C01 


Tl 109 


MD X 


L 


RWSW 


RD/WR SW SET 






81408840 


0B4F 





7007 






MD X 




Tl 1 10 


YES -BR. 






81408850 
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0B5 

Ob52 
0b54 
0B55 
0857 
0b58 
' 0B59 
0B5B 
0B5C 
0B64 
0B6S 
0B66 
0B76 
0B7B 
GB7C 
OB7D 
0B8A 
0B8F 
0B90 
0B91 
0B92 
0B94 
0B98 
0B9E 
0BA5 
OBAD 
OBAE 
ObBb 
ObBb 
0BC2 
OBCA 
ObCB 
OBCC 
OBCE 
OBCE 
OBDO 



6C00 OCOI 
6500 0B7C 
69A7 

4C00 OAFB 
42FE 
0H5C 
4C00 0CC2 



00C8 
0008 
O FFFF 
OOFF 
0016 
0005 
O FFFF 
O OOFF 
O013 
0005 
FFFF 
1101 
000 1 
0002 
0004 
0006 
0007 
0008 
) 0000 
0007 
0006 
0007 
0008 
) FFFF 
) COOO 
) 001 1 
0000 
0002 
0002 



0BD2 0006 
0bD3 O 2007 
0BD4 1 OBEA 



0B05 0006 
0BD6 40 IB 
0BD7 1 OBEA 



0BD8 0001 
0BD9 40 IF 
OBUA 1 OBCB 



OBDB 0005 
OBDC 4019 
OBDD 1 OBEF 



ObDL 0008 
ObDF 20 15 
ObEO 1 0BF2 



ObEl 0006 
0bE2 O 4007 
0BE3 I OBEA 



T 1 1 1 o 



T 1 I MA 



> rx 

LD X 
STX 

tfSC 
bS I 
DC 
bSC 
DE200 DC 
TUMI PRNT 
DC 
DC 
PRNT 
PRNT 
DC 
DC 
PRNT 
PRNT 
DC 
DC 
PRNT 
bSS 
PRNT 
BSS 
PRNT 
BSS 
DC 
PRNT 
bSS 
PRNT 
bSS 
DC 
FLMSK DC 
SVNTN DC 

bSS 
OK PRNT 

ERR PRNT 

* CC W C 

ICCWI DC 
DC 

DC 



L 
LI 

1 
L 

2 



RWSW 

Til MB 

TI1MP+1 

Tl IMP 

TLGMS-TB 

T I 1 M 1 

END1 I 

200 

• END DF 

/FFFF 

/OOFF 



NO -SET IND. 
OVERLAY WSG. 

PARAMET 
BR TO SEEK CYL 



CCW 



GO TO ROUTINE END 
DEC. 200 CONST 
ROUTINE 1» 



MADR1 
I ER 1 1 
GOBI 

HADA1 

H0DA1 
PTRM1 
IER12 
HAD A 2 

ROD A 2 



• HA 

/FFFF 

/OOFF 

• 

•HA AND 

/FFFF 

/l 101 



PHASE 
AND RO . 



ONE WRITE AND READ 



PHASE TWO READ 



MESSAGE NO. FOR ROUTINE I 



2 

.-HA RD 

6 

. RO RD . 

8 

. HA SHLD BE . 

6 

RO SHLD BE . 

8 

/FFFF 

/COOO FILE MASK WD 

17 
E 

.OK . 

.ERR . 
HAIN ONE -INITIAL POSITIONING- » 

6 BYTE COUNT 

/20*2S6+SEEKC FLAGS AND OP CODE 
ICW11 ADDRESS 



CCW CHAIN TWO -WRITE COMMANDS 



ICCW2 DC 

DC 
DC 



DC 
DC 
DC 



DC 
DC 

DC 



DC 
DC 
DC 



6 BYTE COUNT 

/40*256+SKHJ FLAGS AND OP CODE 
ICW11 ADDRESS 



1 BYTE COUNT 

/40*256+SFILM FLAGS AND OP CODE 
FLMSK ADDRESS 

5 BYTE COUNT 

/40*256+WRHA FLAGS AND UP CODE 
ICW14 ADDRESS 



8 BYTE COUNT 

/20*256+WRR0 FLAGS AND OP CODE 
ICW15 ADDRESS 



CCW CHAIN THREE 



-READ COMMANDS 



ICCW3 DC 
DC 

D C 



6 BYTE COUNT 

/40*256+SEEKC FLAGS AND OP CODE 
ICW11 ADDRESS 



8140H860 

81408870 

81408880 

81408890 

81408900 

81408910 

81408920 

81408930 

81408940 

81408950 

8 1408960 

81408970 

81408980 

81 408990 

81409000 

8 1 409 10 

8 1409020 

81 409030 

8 1409040 

8 14 9 5 

H 1409060 

8 1 4 9 o 70 

8 1409080 

81 409090 

8 1409 100 

81409 1 10 

81409120 

81409130 

81409140 

81409150 

814091 60 

81409170 

81409180 

81 409190 

81409200 

81409210 

81409220 

81409230 

81409240 

81409250 

81409260 

81409270 

81409280 

81409290 

8 1409300 

81 409310 

81409320 

81409330 

81409340 

81409350 

81409360 

81 409370 

81409380 

81 409390 

8 1409400 

81409410 

8 1409420 

81409430 

81409440 

81 409450 

81409460 

81409470 

81409480 

81 409490 

8 1409500 

81409510 

8 1409520 

81 409530 
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0BE4 0005 
0BE5 401A 
0BE6 1 0BF6 



0BE7 0008 

0BE8 2016 

0BE9 1 0BF9 

OBEA 0000 

OBEB 0000 

OBEC 0000 



OBED 
OBEE 
OBEF 
0BF2 
0BF6 
0BF9 
OBFD 
OBFE 
OBFF 
OCOO 
0C01 
0C0 2 
0C03 

OC04 
0C05 
OCOb 
0C08 
OCOA 
OCOB 
OCOC 
OCOE 
OCOF 
OC 10 
0C1 1 
0C12 
0C13 
0C14 
0C15 
0C16 
OClb 
0C17 
0C18 
0C1A 
0C1C 
0C1E 
0C1F 
0C2 
0C21 
0C22 
0C24 
0C25 
0C27 
0C27 
0C29 
0C2B 
0C2C 
0C2E 
0C2F 



0000 

0000 

0003 

0004 

0003 

0004 

0000 

0000 

0000 

0000 

0000 

0000 

1 000 



6108 

C0F7 

1 F500 
1 4C18 
7 IFF 

70F9 

1 4C00 
0002 
0003 
0004 
0047 
O 0048 
0049 
004A 
004B 


0000 

61F9 

1 C500 
1 F500 
1 4C20 
7 10 1 
70F8 
C283 

1009 

1 4C90 

CODA 

1 4C18 


1 740 1 

1 C400 

F29F 

1 4C20 
DODO 
DODO 



OCOD 
0B2E 



OBFD 
0BF6 
0C3F 



0C16 
0C31 



0C02 
0C02 



ICW11 



DC 
DC 

DC 



DC 
DC 
DC 

DC 

DC 
DC 



5 BYTE COUNT 

/40*256+RDHA FLAGS AND OP CODE 
ICW16 ADDRESS 



8 BYTE COUNT 

/20*256+RDR0 FLAGS AND OP CODE 
ICW17 ADDRESS 



* 

ICW13 

ICW14 

ICW15 

ICW1 6 

ICW17 

CYCNT 

HOC NT 

FALSW 

RTCNT 

RWSW 

RT2CT 

CEND 1 

* 

SCYCK 

Til 16 



SCTAB 



0C30 O D0D1 
0C31 C89C 



Til 12 



DC 
DC 
BSS 
BSS 
BSS 
BSS 
DC 
DC 
DC 
DC 
DC 
DC 
NOP 
SACRED 
LDX 
LD 
EOR 
B2 
MD X 
MD X 
BSC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
EQU 
DC 
LDX 
LD 
EOR 
BNZ 
MDX 
MD X 
LD 
SLA 
BSC 
LD 
BZ 
EQU 
MDX 
LD 
EOR 
BNZ 
STO 
STO 

STO 

LDD 





3 
4 
3 
4 









* 0000 
- SEEK PARAM OOCC 

* OOHH 



* SEARCH HOME 

* ADDR EQU. PARAM 

SHLD (WRITE HA) PARAM 

BE (WRITE RO) PARAM 

* WAS (RID HA) PARAM 

* DATA (RD RO ) PARAM 



RETRY CNTR AND SW 

READ WRITE SW 

2ND RE-TRY GROUP CNTR 



CYLINDER CHECK ROUTINE 
1 8 

CYCNT 
LI SCTAB-1 

Til 15 
1 -1 

Til 16 
L CKRTN 

2 

3 

4 

71 

72 

73 

74 

75 



*-* 

-7 

ICW1 6+7 

ICW14+7 

T1113 

1 

T11CM+2 

TSWO-TB 

OPRRS 

T11CM,- 

FALSW 

T1U2 

* 

RT2CT.+1 

RT2CT 

Kl O-TB 

71106 

FALSW 

RTCNT 

RT2CT 
OK 



ENTRY 

SET TO 1ST LOC OF RD AREA 
TEST WITH LOC 1 OF WR PAR 
ERR IF ANY WD NOT A MATCH 

GET NEXT WD 

CMPR COMPLETE -TEST SWS- 
SHUULD MSG 1 BE PRINTED 
NO -RTNE FINISHED- EXIT 
HAD PREVIOUS FAILURE 
NO SET UP 'OK' MSG. 

** BUMP TEN CNTR 



AREAS 
AND 
SET UP >0K' MSG 
CLR 2ND RE-TRY CNTR 
* INSERT * 
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81409540 
81409550 
81 409560 
81409570 
81409580 
81409590 
81409600 
81409610 
81409620 
81409630 
81409640 
81409650 
81409660 
81409670 
81 409680 
81409690 
81409700 
81409710 
81 409720 
81409730 
81409740 
81409750 
81409760 
81409770 
81 409780 
81409790 
81409800 
81409810 
81409820 
81409830 
81409840 
81409850 
8 1 409860 
81409870 
81409880 
81409890 
81409900 
81409910 
81409920 
81409930 
81 409940 
81409950 
81409960 
81409970 
81 409980 
81409990 
81 410000 
81410010 
81410020 
81410030 
81410040 
81410050 
81 410060 
81410070 
81 410080 
81410090 
81410 100 
81410110 
81410120 
81410130 
81410140 
8 14 10150 
81410160 
81410 170 
81410180 
81410190 
81 410200 
81410210 
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0C32 1 D400 0B92 

0C34 1090 

0C35 1 D400 0B93 

0C37 O C28D 

0C38 1 D400 OBAD 



0C3A 





404D 




0C3B 





42FE 




0C3C 


1 


0B91 




0C3D 


1 


4C80 


0C16 


0C3F 









0C3F 


1 


CCOO 


OBDO 


0C41 


1 


D400 


0B92 


0C43 





1090 




0C44 


1 


D400 


0B93 


0C4 6 





C2AD 




0C47 


1 


D400 


OBAD 


0C49 





403E 




0C4A 





61FD 




0C4B 


1 


6700 


0BB5 


0C4D 


1 


C500 


0BF2 


0C4F 





1808 




0C50 





42F5 




0C51 





42F2 




0C52 





D300 




0C53 





1090 




0C54 





D301 




0C55 





7302 




0C56 





1000 




0C5 7 





7101 




0C58 





70F4 




0C59 





61FC 




0C5A 


1 


6700 


0BC2 


0C5C 


1 


C500 


0BF6 


OCbE 





42F5 




0C5F 





42F2 




0C60 





D300 




0C61 





1090 




0C62 





D301 




0C63 





7302 




0C64 





1000 




0C65 





7101 




0C66 





70F5 




0C67 





42FE 




0C68 


1 


0B91 




0C69 


1 


7400 


OBFF 


OCOB 





7002 




0C6C 


1 


6C00 


OBFF 


0C6E 





1010 




OCOF 


1 


0400 


OC02 


0C71 


1 


7401 


OCOO 


0C73 





C08C 




0C74 


1 


F400 


OBCC 


0C76 


1 


4C20 


0B18 


0C78 


1 


D400 


OCOO 


0C7A 


1 


D400 


OBFF 


0C7C 


1 


D400 


0C02 


0C7b 









0C7E 





42FE 




0C7F 


1 


0CA8 




0C80 





10 10 




ocal 


1 


D400 


OBFF 


0C83 


1 


D400 


OCOO 


0C85 





42E3 




0C86 





4C80 


012E 



* OK * 

* INTO * 

* MESSAGE * 
INSERT TERMINATOR -PRINT 
ONLY 1 LINE OF MSG- 



SET UP A 1 LINE MESSAGE WHEN COMPARE 
OK AND SNS SW 10 ON 



STO 


L 


GOBI 


SLT 




1 6 


STO 


L 


G0B1+1 


LD 


2 


TERM-TB 


STO 


L 


PTRM1 



T1U3 



Tl 1 14 



BSI 

BSI 

DC 

BSC 

EQU 

LDD 

STO 

SLT 

STO 

LD 

STO 

BSI 

LDX 

LDX 

LD 

SRA 

BSI 

BSI 

STO 

SLT 

STO 

MD X 

NOP 

I'D X 

MD X 

LDX 

LD X 

LD 

BSI 

BSI 

STO 

SLT 

STO 

MDX 

NOP 

MD X 

MD X 

BSI 

DC 

MD X 

MD X 

STX 

SLA 

STO 

Ml) X 

LD 

EOR 

BNZ 

STO 

STO 

STO 

EQU 

BSI 

DC 

SLA 

STO 

STO 

BSI 

BSC 



SBD Al 
2 TLGMS-TB 
IER1 1 
I T11CM 



L ERR 
L GOBI 

16 
L G0B1+1 

2 HOOFF-TB 
L PTRM1 

SBDA1 
1 -3 
L3 HADA2 
LI ICW14+3 

8 

TCVHD-TB 

TCVBE-TB 



16 

+ 1 

+ 2 



1 

*-12 

1 -4 

L3 R0DA2 
LI ICW15+4 

2 TCVHD-TB 

2 TCVBE-TB 

3 
16 

3+1 

3 +2 



1 1 
*-l 1 

2 TLGMS-TB 
IER1 1 

L FALSW 

*+2 
L FALSW 

16 

RT2CT 

RTCNT ,+1 

RTCNT 

SVNTN 

Tl 106 

RTCNT 

FALSW 

RT2CT 



* 
2 TLGMS-TB 

IER13 

16 

FALSW 

RTCNT 
2 FREDV-TB 

END 



GO INSERT SHLD BE DATA 
PRINT OK MESSAGE 
MSG ADDR 
EXIT ROUTINE 



GO INSERT SHLD BE DATA 
********************* 



' SHLD BE ' 
D ATA 



i= INTO 
-64K SAFLTY- 



MESSAGE 
AREA 



-64K SAFLTY- * 

* + HA AND RO + * 

* * 
PRINT MESSAGE 

PREVIOUS ERROR 

YES SKIP 

NO -SET I NO ICATOR 

CLEAR 10 CNTR 

AIM.) -INCH RETRY CNTR (1) 

YES -CK RETRY CNT 

RETRIES EXHAUSTED 

NO BR TO RE-READ 

* CLEAR COUNTERS 



PRINT RETRIES 
EXHAUSTED MSG 



RELEASE DEVICE 
TERMINATE PGM 



8141 

8141 
8141 
8141 
8141 
8141 
8141 
8141 
8141 
8141 
8141 
8141 
8141 
8141 
8141 
8141 
8 141 
8141 
8 141 
8141 
8 141 
rtl41 
ol41 
8141 
8141 
8141 
8141 
81 41 
8141 
8141 
8141 
81 41 
8141 
8141 
8 141 
8141 
8141 
8141 
8 141 
8141 
8 141 
81 41 
8141 
8141 
8141 
8141 
8 141 
8141 
8 141 
8141 
8141 
8141 
8 141 
81 41 
8 141 
8141 
8141 
81 41 
8141 
8141 
8141 
8141 
8141 
8141 
8141 
8141 
8141 
6141 



0220 
0230 
0240 
0250 
0260 
0270 
0280 
0290 
0300 
0310 
0320 
0330 
0340 
0350 
0360 
0370 
0380 
0390 
0400 
0410 
0420 
0430 
0440 
0450 
0460 
0470 
0480 
0490 
0500 
0510 
0520 
0530 
0540 
0550 
0560 
0570 
0580 
0590 
0600 
06 10 
620 
630 
0640 
650 
0660 
0670 
0680 
69 
0700 
0710 
0720 
0730 
740 
0750 
760 
0770 
0780 
0790 
0800 
0810 
0820 
0830 
0840 
0850 
0860 
0870 
880 
0890 
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0C88 









SBDA1 


EQU 




* 








81410900 


0C88 





0000 






DC 




*-* 


******************* 


** 




81410910 


0C89 





61FD 






LDX 


1 


-3 


* INSERT •WAS' 


* 




81410920 


0C8A 


1 


6700 


0B98 




LDX 


L3 


HADA1 


* HA AND RO DATA 


* 




81410930 


0C8C 


1 


CSQO 


0BF9 




LD 


LI 


ICW1 6+3 


* INTO OUTPUT LINE 


* 




81410940 


0C8E 





1808 






SRA 




8 


* 


* 




81410950 


0C8F 





42F5 






BSI 


2 


TCVHD-TB 


* 


* 




81410960 


0C9 





42F2 






BSI 


2 


TCVBE-TB 


* 


* 




81410970 


0C91 





D300 






STO 


3 





* 


* 




81410980 


0C92 





1090 






SLT 




16 


* 


* 




81410990 


0C93 





D301 






STO 


3 


+ 1 


* 


* 




81 41 1000 


0C94 





7302 






MD X 


3 


+ 2 


* 


* 




8 1411010 


0C95 





1000 






NOP 







-64K SAFETY- 


* 




81 41 1020 


0C96 





7101 






MDX 


1 


+ 1 


* 


* 




8141 1030 


0C97 





70F4 






MD X 




*-12 


* 


* 




81 41 1040 


0C98 





61FC 






LDX 


1 


-4 


* 


* 




8141 1050 


0C99 


1 


6700 


0BA5 




LDX 


L3 


R0DA1 


* 


* 




8141 1060 


0C9B 


1 


C500 


OBFD 




LD 


LI 


ICW1 7+4 


* 






8 14 1 1070 


0C9D 





42F5 






BSI 


2 


TCVHD-TB 


* 


* 




81 41 1080 


0C9E 





42F2 






BSI 


2 


TCVbE-TB 


* 


* 




8 141 1090 


0C9F 





D300 






STO 


3 





* 


* 




81411 100 


OCAO 





1090 






SLT 




16 


* 


* 




81411110 


0CA1 





D301 






STO 


3 


+ 1 


* 


* 




8141 1 120 


0CA2 





7302 






MDX 


3 


+ 2 


* 


* 




8141 1 130 


0CA3 





1000 






NOP 







-64K SAFETY- 


* 




8141 1 140 


0CA4 





7101 






MDX 


1 


+ 1 


* 


* 




81411 150 


0CA5 





70F5 






MD X 




*-l 1 


* 


* 




81 41 1 160 


0CA6 


1 


4C80 


0C8b 




BSC 


I 


SBDA1 


:\' :|; ;|; ;,.'■ ']' >■.'- v -r -r- >'r- ; ! ; >»' -, : ',' ', : -^ ; ! : ; ! ; -'.< 


** 




8141 1 1 70 


OCAS 




001 1 




IER13 


PRNT 




UNABLE 


TU INITIALIZE. 






8141118 


0CB3 




00 12 






PRNT 




. PACK MUST BE REJECTED . 






8141 1 1 90 


OCBF 





OOFF 






DC 




/OOFF 








8141 1200 


OCCO 





OOFF 






DC 




/OOFF 








8 14 112 10 


0CC1 





FFFF 






DC 




/FFFF 








8141 1220 


0CC2 









END 1 1 


EQU 




* 








8 141 1230 
8141 1240 










* 


GO TO NEXT ROUTINE IN SEQUENCE 






8 14 1 1250 










* 














8 1 4 1 1 2 6 


0CC2 





42E3 




THEN 


BSI 


2 


FRED V-TB 


FREE CHANNEL 






8 14 1 1270 


0CC3 





C2BF 






LD 


2 


TRTNN-TB 


GET RTN SWS 






8141 1280 


0CC4 


1 


4C18 


OCEA 




bZ 




T1201 


GO TO NEXT RTN IN 


SEQ 




8 141 1290 


0CC6 





42DD 






BSI 


2 


CNTRL-TB 


GO TO CONTROL RTN 






814 11300 


0CC7 




0007 




TTLl 1 

* 


PRNT 




. SECT 1 i 


RT 1- . 






8 1411310 
81 41 1 32 


OCCE 





OOFF 






DC 




/OOFF 








81411 330 


OCCF 




0015 






PRNT 




.-2311 C. 


E. PACK INITIALIZATION. 




81411 340 


OCDE 




00 1 1 






PRNT 




.-ROUT 1 


WR HA AND R0-. 






8 14 11 350 


0CE9 





FFFF 






DC 




/FFFF 








8141 1360 










***** 


*****: 




',-. * ;|; * * * ;;- :.'; ;[; :k '■',: >,". * * :,'( * ;|: ;,; X >|; * -,: * ;|; ;|: ;|: ;',: :'p :',: ;|: :|; 


**** 


** * 


8 14 1 1370 










* 














81411380 










***** 


* * * * * -. 


;:**; 


£********* 


c *********** * * * * * * * * * * 


**** 


*** 


81411 390 


OCEA 









T120I 


EQU 




* 


TEST ENTRY POINT 






8141 140 


OCEA 


1 


7401 


08 1b 




MDX 


L 


TRID . 1 


BUMP RTN ID 






8141 1410 


OCEC 


1 


4C18 


0CF1 




bZ 




T1202 


BR IF TEST NUMBER ZERO 




8141 142 


OCEE 





9297 






s 


2 


Kl-TB 


DECREMENT BY ONE 






81411 430 


OCEF 


1 


4C20 


108B 


* 


BNZ 




T1301 


BR IF NOT THIS TEST 






8141 1440 
8141 1450 


0CF1 





C283 




T1202 


LD 


2 


TSWO-TB 


GET OPTION SWS 






81411460 


0CF2 





100A 






SLA 




OTTLE 


PRINT TITLES 






8141 1470 


0CF3 


1 


4C10 


0CF7 




BNN 




T 1 2 3 


BR IF NOT SET 






81 41 1480 


OCFb 





42FE 






BSI 


2 


TLGMS-TB 


GO TO PRINT RUUTINI 






8141 1490 


0CF6 


1 


104F 




* 


DC 




TTL12 


MESSAGE ADDRESS 






81411500 
81411510 


0CF7 





42E6 




T1203 


BSI 


2 


GETD V-TU 


GET CHANNEL FOR RTN 






8141 1520 










*********************** 


:********************* 


**** 


*** 


8141 1 530 










* 












* 


81411540 










******************************************** 


**** 


*** 


8 14 1 1550 










* 












* 


8141 1560 










* 


DO SIO TO EXECUTE 


RECAL, SEEK, SET FL 1 


MASK 


* 


8141 1570 



*************** ****=Mt** ****** *****:(, ******** **#,(, ***;<( 



0CF8 1 6500 1040 

OCFA 1 6D00 114F 

OCFC 1 6580 0EA9 

OCFE 1 6D00 1042 



ODOO 1010 

OD01 6500 FF8B 

0D03 1 D500 0F4C 

ODOS 7101 

0D06 70FC 



0D07 

0D09 

ODOA 

ODOA 

ODOB 

ODOC 

ODOD 

ODOE 

0D10 

0D1 1 

0D12 

0D13 

0D15 

ODlb 

0U1 7 

0D18 



65 00 0D71 
6901 



1037 



1 

O 



42FE 

O 0000 

42EC 
0EB7 
4400 
70FB 
1010 
61F9 

1 D500 OEDE 
7101 

70FC 

C2A1 

1 D400 OEDD 



0D1A O 61CE 
0D1B 1 C400 0D70 
0D1U 1 D500 0F10 
OD 1 F O 7 10 1 
0D20 70FC 



0D2 1 10 10 

0D22 1 D400 0F4A 

0024 C297 

0D25 1 D400 0F49 
D400 OEDA 
D400 0ED3 

0D2B 1 D400 0ED5 

0D2D 1008 

D400 0FD8 



0D27 1 
0D29 



0D2fc 



0D30 1 C400 0F4A 

0D32 1 D400 OEDB 

0D34 1 D400 0ED4 

0D36 1 D400 0ED6 

0D38 1008 

0D39 1 0400 0ED9 

0D3B 1 7400 0F4B 

ODJD 7005 



0D3E 42EC 

0D3F 1 OEBA 

OD40 1 4400 1037 

0D42 O 70FB 



*************: 

LDX LI 

STX LI 

LD X II 

STX LI 



************ 



************************ 



SLA 
LDX 
STO 
MD X 
MDX 



* 



LDX 

STX 

T1204 EQU 



LI 

LI 

1 



LI 
1 



CKERR * LOAD ERROR ADDRESS 

WTADR AND SET INTO INT. RT-NE 

MADR2 ** GET MESSAGE NO*. 

CKERR+2 ** OVERLAY IN MSG O/P 

** ROUTINE PARAMETER 

******************* 
16 * ,. 

ICW24-CEND2 * INITIALIZE CTRS,W 

CEI * 2 * SWS, AND AREAS * 

+1 * TO ZEROES * 

*-4 * ... 

**************** * * * 
T12MA GET MSG ADD R 

T1204+1 INSERT IT 



BSI 

DC 

BSI 

DC 

BSI 

MDX 

SLA 

LDX 

STO 

MD X 

MD X 

LD 

STO L 
STORE 50 
INTO THE 



2 TLGMS-TB 



1 

LI 

1 



2 



*-* MSG ADDR AREA 

SIO-TB ** RECAL 

ICCW4 ** CCW CHAIN 

CKSTA GO CHECK STATUS 

*-5 LOOP ERROR PARAM. 

16 ++CLEAR HA AND 

~T ++'COUNT' AREA 

ICW24+7 ++OF RO 

+ 1 + + 

*-4 + + 

SET UP [) ATA LENGTH 



K100-TB 

ICW25+3 

WDS ( 1 00 BYTES ) 

WRITE AREA 



OF WORST CASE DATA 



LDX 
LD 
STO 
MD X 
MD X 

* SET 

* 

SLA 
STO 
LD 
STO 

T1205 STO 
STO 
STO 
SLA 
STO 

T1206 LD 

STO 
STO 
STO 
SLA 
STO 
MDX 
MD X 



1 
L 
LI 



-50 

HE5E5 

ICW25+54 

+ 1 

*-4 

re ma Under 

16 

HDCTR 

Kl-TB 

CYCTR 

ICW25 

ICW21.+ 1 

ICW23 

8 

ICW2 4+ 1 

HDCTR 

ICW25+1 

ICW21+2 

ICW23+1 

8 

ICW24+2 

RWSW2 

T1207 



INSERT DATA 
BYTES 



*( RO ) 



DO WRITE SIO 



BSI 


2 SIO-TB 


DC 


ICCW5 


BSI 


L CKSTA 


MDX 


*-5 



OF WRITl 



SET HEAD CTR = HD 

SET CYL CTR = CYL 1 

** POSITION CYL NO 

** (SEEK PARAM) * 

** (SEEK HA PARAM) * 

«•* AND STO TO WR ARiEA* 

** OF HA 1 *(HA) 

* * L AD A ND 

** POSITION 

** (SEEK PARAM) * 

** (SEEK HA PARAM) * 

** HEAD NO. THEN 

** STR TO WR AREA RO.HA 

DO RD PASS ONLY 

YES -BR. 



GO CHECK STATUS 
LOOP ERROR PARAM. 



81411580 
8141 1590 
8141 1600 
81411610 
81411 620 
814 1 1630 
8141 1640 
81411 650 
8 1411 660 
8141 1670 
8141 1680 
8141169 
8 14 11 7O0 
81411710 
81411 720 
8141 1730 
81411 740 
81411 750 
81411 760 
8141 1770 
8 14 1 1780 
81411 790 
81411 800 
81411810 
81411 820 
8141 1830 
8 1411 840 
8141 1850 
8 1411 860 
8141 1870 
8 14 11 880 
8141 1890 
8 141 1900 
8 14 119 10 
8 14 119 2 
8141 1930 
814 1 1940 
814 1 1950 
8 14 1 1960 
814 1 19 70 
8 141 1980 
8 141 1990 
8 14 12 
81 41 20 1 
8 14 1 2020 
81 412030 
8141 2040 
81 41 20 5 
8 141 2060 
8141 2070 
8141 2080 
81 412090 
81412 100 
81412110 
8 14 1 21 20 
814121 30 
8 1412140 
8141215 
8 14 1 21 60 
814121 70 
8 14 1 21 80 
81412190 
81412200 
81412210 
8141 2220 
81 412230 
81412240 
8141 2250 
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r 
r 
r 
r 

r 

c 

r 
r 



0DA3 
0D44 
0D45 
0D4 7 
0D48 
0D49 
0D4A 
0D4B 
0D4D 
0D4E 
0050 
QD52 
0DS4 
0D55 

0D57 

0D58 

0D5A 

0D5B 

0D5D 

0D5F 

0D61 

0063 

0D64' 

0D66 

0D68 

0D6A 

0D6C 

0D6D 

0D6F 
0D70 
0D71 
0D72 
0081 
0D8B 
0D8C 
008D 
0D9B 
0OA2 
0DA3 
ODAA 
ODBO 
0DB7 
0DB7 
ODBF 
ODCO 
00F2 
0DF3 
0E25 
0E26 
0E2D 
0E33 
0E3A 
0E3A 
0E42 
0E43 
0E75 
0E76 
0EA8 
0EA9 
OEAA 
OEAB 
OEAC 
OEAE 
0EB6 



6IXA 

1010 

1 D500 0F49 
7101 

O 70FC 

42EC 

1 0EC9 

I 4400 1037 
70FB 

4400 0F4D 
7401 0F4A 
C4O0 OF 4 A 
F29F 
4C20 0D30 



1010 

1 D400 

CO 14 

1 F400 
1 4C18 
1 F400 
1 D400 

70C3 

1 C400 
1 4C20 
1 6C00 
1 6500 

699E 

1 4C00 



0F49 
0D64 
0F49 
OF 49 

0F4B 
OEAA 
0F4B 
0D8C 

ODOA 



00C7 
E5E5 
OOFF 
0015 
0010 
FFFF 
OOFF 
0014 
0007 
FFFF 
0007 
0006 
0007 

0008 
OOFF 
0032 
OOFF 
0032 
0000 
0007 
0006 
0007 



0008 
OOFF 

0032 
OOFF 

0032 
FFFF 
1201 

42FE 

1 OEAE 

1 4C00 1048 

0008 
FFFF 



* 
* 
T1207 



CLEAR RD AREA -THEN DO RD SIQ 



* 

HO0C7 
HE5E5 
T12MA 



IER21 
HAD A3 



IER23 

IER25 
PTRM2 
IER22 
HADA4 

ERDAT 



IER24 
IER26 



MADR2 
T1210 



LDX 

SLA 

STO 

MDX 

MO X 

BSI 

DC 

BSI 

MDX 

BSI 

MD X 

LD 

EOR 

BNZ 

SLA 

STO 

LD 

EOR 

BZ 

EOR 

STO 

b 

LD 

BNZ 

STX 

LDX 

STX 

b 

DC 

DC 

DC 

PRNT 

PR NT 

DC 

DC 

PRNT 

PRNT 

DC 

PRNT 

BSS 

PRNT 

EQU 

BSS 

DC 

BSS 

DC 

BSS 

DC 

PRNT 

BSS 

PRNT 

EQU 

BSS 

DC 

BSS 

DC 

BSS 

DC 

DC 

BSI 

DC 

BSC 

PRNT 

DC 



L 
LI 
1 
L 



-54 

16 

ICW27+54 

+ 1 

*-4 

SIO-TB 

ICCW6 

CKSTA 

*-S 

T12CM 

HDCTR. +1 

H3CTR 

K10-TB 

T1206 

16 

HDCTR 

H00C7 

CYCTR 

T1209 

CYCTR 

CYCTR 

T1205 

RWSW2 

T1210 

RWSW2 

T12MB 

T1204+1 

T1204 



CLEAR 



* 

* 

* 

* 

RD SIO 

GO CHECK STATUS 

LOOP ERROR PARAM. 

GO COMPARE HA t RO DATA 

I NCR HD NO. 

IS H> NO = 10 

NO -GO UPDATE HA AND RO 
PORTION OF WRITE AREA 

* YES -CLEAR 

* l-O NO AREA 

IS CYL CNTR = 199 

YES -BR 

ELSE RESTORE VALUE. STP. IT 

AS CYL CNT AND WR TO C 199 

SETUP CY & HD NO -DO SIO 

IS RD-WR SW SET 

YES -EXIT 

THEN GO RESET 



NO -SET SW 

OVERLAY 

MSG PARAM 

CYL CNT TO 1 AND DO 

READ PASS ON CYLS 1 & 
/00C7 
/E5E5 
/OOFF 

.PHASE 1 WRITE AND READ HA AND. 
. RO OF CYL 1 AND 199. 
/FFFF 
/OOFF 

• PHASE 2 READ HA AND RO FROM. 
. CYL 1 AND 199. 
/FFFF 

. -HA RD . 

6 

RO RO 
* 
8 

/OOFF 
SO 

/OOFF 
50 
*-# 
.-HA SHLD BE 

6 I 

RO SHLD BE 



CNT PORTION OF RO PR BUFR 



DATA PORTION O F RO 



8 

/OOFF 

50 

/OOFF 

50 

/FFFF 

/1201 

TLGMS-TB 

T12M1 

EN012 



CNT PORTION OF RO PR BUFR 



DATA PORTION OF RO 



MESSAGE NO. FOR RTN 2 



GO TO ROUTINE END 



•END OF ROUTINE 2. 
/FFFF 



81412260 

8L412270 

81 4122 80 

814122 90 

81412300 

81412310 

81412320 

81412330 

81412340 

81412350 

81412360 

81412370 

81412380 

81412390 

81412400 

81412410 

81412420 

81412430 

81 412440 

81412450 

81412460 

81412470 

81412480 

81412490 

81412500 

81412510 

81412520 

81412530 

81 412540 

8141 2550 

81412560 

81412570 

81412580 

81412590 

81412600 

81412610 

81 412620 

81412630 

81412640 

81412650 

81412660 

81412670 

81412660 

81412690 

81412700 

81412710 

81 412720 

81412730 

81 412740 

81412750 

81412760 

81412770 

81412780 

81412790 

81412800 

81412810 

81412820 

81412830 

81412840 

8141 2850 

81412860 

81412870 

81412880 

8 1412890 

81 412900 

81412910 

81 412920 

8141 2930 
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0EB7 000 1 
0EB8 Q 2013 
0EB9 1 OEBA 



• OEBA O 0006 
OEBB 4007 
OEBC 1 0ED2 



OEBD 0001 
OEBE O 401F 
OEBF 1 OBCB 



OECO 0004 
0EC1 4039 
0EC2 1 0ED5 



0EC3 000 1 
0EC4 2008 
OECb 1 OECO 



0EC6 006C 
0EC7 20 15 
0EC8 1 OEDA 



0EC9 0006 
OECA 4007 
OECB 1 0ED2 



OECC O 0005 
OECD 401A 
OECE 1 0F10 



OECF 006C 

OEDO 2016 

0E01 1 OF 13 

0ED2 0000 

0ED3 0000 

0ED4 0000 



0ED5 





0000 


0ED6 





0000 


0ED7 




0003 


OEDA 




0036 


OF 10 




0003 


0F13 




0036 


0F49 





0000 


0F4 A 





0000 


0F4B 





0000 


0F4C 





1000 


0F4D 







0F4D 





0000 



* CCW CHAIN ONE -INITIAL POSITIONING- 
* 

ICCW4 DC 1 BYTE COUNT 

DC /20*256+RCAL FLAGS AND OP CODE 
DC * ADD RE SS 

* 

* CCW CHAIN TWO -WRITE COMMANDS 



ICCW5 DC 

DC 



DC 

DC 
DC 



DC 
DC 
DC 



DC 
D C 
DC 



DC 
DC 

DC 



6 BYTE COUNT 

/40*256+SEEKC FLAGS AND OP CODE 
ICW21 ADDRESS 



1 BYTE COUNT 

/40*256+SFILM FLAGS AND OP CODE 
FLMSK ADDRESS 



4 BYTE COUNT 

/40*256+SRCHA FLAGS AND OP CODE 
ICW23 ADDRESS 



1 BYTE COUNT 

/20W256+OPTIC FLAGS AND UP CODE 
*-6 ADDRESS 



108 BYTE COUNT 

/20*256+WRR0 FLAGS AND OP CODE 
ICW25 ADDRESS 



CCW CHAIN THREE 



-READ COMMANDS 



ICCW6 DC 
DC 



DC 

DC 
DC 



DC 

DC 
DC 

ICW21 DC 
DC 



6 BYTE COUNT 

/40*256+SEEKC FLAGS AND OP CODE 
ICW21 ADDRESS 



5 BYTE COUNT 

/40*256+RDHA FLAGS AND OP CODE 
ICW26 ADDRESS 



108 BYTE COUNT 

/20*256+RDR0 FLAGS AND OP CODE 
ICW27 ADDRESS 



ICW23 



ICW24 
ICW25 

ICW26 
ICW27 
CYCTR 
HDCTR 
RWSW2 
CEND2 
T12CM 



0F4E 61C7 
0F4F 1 C500 0F49 



DC 

DC 

DC 
SHOULD 

bSS 

BSS 
WAS 

BSS 

BSS 

DC 

DC 

DC 

NOP 

EQU 

DC 

LDX 

LD 



0000 

SEEK PARAM OOCC 

OOHH 



SEARCH HOME 
ADO R EQU. PARAM 



BE (WRITE ) AREA 
3 

54 
(READ IN) AREA 
3 

54 






-57 
ICW26+57 



SET TO 1ST LOC OF RD AREA 



8141 
8141 
8141 
8141 
8141 
8141 
8141 
8141 
8141 
8141 
8141 
8141 
8141 
8141 
8141 
8141 
8141 
81 41 
8141 
81 41 
8141 
814 1 
8141 
8141 
814 1 
81 41 
8141 
8141 
8141 
8141 
8141 
8141 
8141 
8141 
8141 
8141 
8141 
8141 
8141 
8141 
8141 
8141 
8141 
8141 
8141 
8141 
8 141 
814 1 
8141 
8141 
8 14 1 
81 41 
8 141 
8141 
8 141 
8141 
8141 
8141 
8141 
81 41 
8141 
8141 
8141 
8141 
8141 
8141 
8141 
81 41 



2940 
2950 
2960 
2970 
2980 
2990 
3000 
30 lO 
3020 
30 30 
3040 
3050 
3060 
30 70 

30 80 
309 

31 QO 
31 10 
3120 
31 30 
31 40 
315 
3160 
31 70 

31 80 
3190 
3200 

32 10 
3220 
32 30 
3240 
3250 
3260 
3270 
3280 
3290 
3300 
3310 
3320 
3330 
3340 
3350 
3360 
3370 
3380 
3390 
3400 
341 
3420 
3430 
3440 
3450 
3460 
3470 
3480 
3490 
3500 
3510 
3520 
3530 
3540 
3550 
3560 
3570 
3580 
3590 
3600 
3610 
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15SEP71 
431328 



PROG ID 
PAGE 



0814- 
1 



DATE 


14N0V69 


30JAN70 


1SSEP71 


EC NO. 


43 1 3 1 9 


431319A 


431328 



PROG ID 
PAGE 



0814-0 
1 OA 



II II O O 0(1 C O (I U (I (I () (1 <MI II n f 



C jCj CJ (J C) (10 (1 CI CJ fl CI C) CJ CI CI Ci CI € € CJ C) CI COCO CI o c 
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0F51 


1 


F500 


0F1& 


0F53 


1 


4C20 


0F7C 


0F55 





7101 




0F56 





70F8 




0F57 





C283 




0F58 





1009 




0F59 


1 


4C90 


0F4D 


OFSB 


1 


C400 


OBFF 


0F5D 


1 


4C18 


0F6C 


0F5F 









OFSF 


I 


7401 


0CO2 


OF 61 


1 


C400 


0C02 


0F63 





F29F 




OF 64 


1 


4C20 


0D43 


0F66 


1 


D400 


OBFF 


0F68 


1 


D400 


OCOO 


0F6A 


1 


D400 


0C02 


0F6C 


1 


CCOO 


OBCE 


0F6E 


1 


D400 


0DA4 


OF 70 





1090 




OF 71 


1 


D400 


0DA5 


0F73' 





C28D 




0F74 


1 


D400 


0E25 



OF 76 

0F78 

0F79 

OF 7 A 

0F7C 

0F7C 

0F7E 

0F80 

0F81 

OF 83 

0F84 

OF 86 

0F87 

0F88 

0F8A 

0F8C 

0F8D 

0F8E 

0F8F 

0F90 

0F91 

OF 92 

0F93 

OF 94 

0F95 

0F96 

0F97 

OF 98 

0F9A 

0F9C 

0F9D 

0F9F 

0FA1 

0FA3 

0FA4 

0FA5 

0FA6 

0FA7 

0FA8 

0FA9 



OBDO 
0DA4 



ODAS 
0E25 



0E2D 
OED A 



1 4400 OFFO 

42FE 

1 0DA3 

1 4C80 0F4D 



1 CCOO 

1 D400 

1090 

1 D400 

C2AD 

1 D400 
4069 

61FD 

1 6700 
1 C500 

1808 

42F5 

42F2 

D300 

1090 

D301 

7302 

1000 

7101 

70F4 

1010 

0027 
1 6500 
I 6000 

61FC 

1 6700 
C500 

7400 
7001 
42FS 
42F2 
D300 
1090 
D301 
7302 



OEDE 
OFAO 

0E3A 
0000 
OFBF 



T1211 



EOR 

BNZ 

MDX 

MDX 

LD 

SLA 

BSC 

LD 

BZ 

EQU 

MDX 

LD 

EOR 

BNZ 

STO 

STO 

STO 

LDD 

STO 

SLT 

STO 

LD 

STO 

SET 
OK A 



LI ICW24+57 
T1213 

1 1 
T12CM+2 

2 TSWO-TB 
OPRRS 

I T12CM,- 
L FALSW 
T1212 
* 
L RT2CT.+1 
L RT2CT 

2 K10-TB 
L T1207 
L FALSW 
L RTCNT 



RT2CT 

OK 

IER21+1 

16 

IER21+2 

TERM-TB 

PTRM2 



BSI 
BSI 
DC 
BSC 

T1213 EQU 
LDD 
STO 
SLT 
STO 
LD 
STO 
BSI 
LD X 
LDX 
LD 
SRA 
BSI 
BSI 
STO 
SLT 
STO 
MDX 
NOP 
MD X 
MD X 
SLA 
STO 
LDX 
STX 
LDX 
LDX 

T1220 LD 

MD X 
MDX 
BSI 
BSI 
STO 
SLT 
STO 
MDX 



UP A 1 LINE 
ND SNS SW 10 

L SBDA2 
2 TLGMS-TB 

IER21 
I T12CM 

* 
L ERR 
L IER21+1 

16 
L IER21+2 

2 HOOFF-TB 
L PTRM2 

SBDA2 
1 -3 
L3 HAD A 4 
LI ICW24+3 

8 

TCVHD-TB 

TCVBE-TB 



16 

+ 1 

+ 2 



1 

*-12 

16 

PASSA 

ICW25+4 

T1220+1 

-4 



TEST WITH LOC 1 OF WR AREA 
ERR IF ANY WD NOT A MATCH 

GET NEXT WD 

CMPR COMPLETE -TEST SWS- 
SHOULD MSG 1 BE PRINTED 
NO -RTNE FINISHED- EXIT 
HAD PREVIOUS FAILURE 
NO SET UP »0K' MSG. 

** BUMP TEN CNTR 
* 

* — IS = 10 
RE-READ HA AND RO 

AREAS 
AND 

SET UP 'OK' MSG 
CLR 2ND RE-TRY CNTR 

* INSERT * 

* OK * 

* INTO * 

* MESSAGE * 
INSERT TERMINATOR -PRINT 
ONLY LINE 1 OF MSG- 

MESSAGE WHEN COMPARE * 
ON * 

* 
GO INSERT SHLD BE DATA 
PRINT OK MESSAGE 
MSG ADDR 
EXIT ROUTINE 



A TO Q 



GO INSERT SHLD BE DATA 
********************* 

* SET 'SHLD BE' * 

* * 

* DATA INTO * 

* THE OUTPUT AREA * 

* * 



-64K SAFETY- 
* 



LI 
LI 
1 
L3 ERDAT 



LI 

L 

2 
2 

3 

3 
3 



*-* 

PASSA 

*+l 

TCVHD-TB 

TCVBE-TB 



16 

+ 1 

+ 2 



OVERLAY 
ADDRESS 



*-SKP TCVHD IF NOT 0* 



PART NO. 2279460 
PAGE I 1 



8141362 
81413630 
81413640 
81413650 
81413660 
81413670 
8I4136B0 
81413690 
81413700 
81413710 
81413720 
81413730 
81413740 
81413750 
81413760 
81413770 
81413780 
8141 3790 
81 41 38O0 
8141 3810 
81 413820 
81413830 
81413840 
81413850 
81413860 
81413870 
81413880 
81413890 
81413900 
81413910 
8 1 4 1 39 2 
8141 3930 
81413940 
81413950 
81413960 
8 14139 70 
81413980 
8 141 3990 
81414000 
81414010 
81414020 
8 141 40 30 
81414040 
81414050 
81414060 
81414070 
81 414080 
8 1414090 
81414100 
81414110 
81414120 
814141 30 
81414140 
81414150 
81414160 
814141 70 
81414180 
8 14141 90 
81414200 
81414210 
81 414220 
81414230 
81414240 
81414250 
81414260 
81414270 
81414280 
81414290 
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PART NU. 2279460 
PAGE 11 A 



OFAA 1000 






NOP 







-64K SAFETY- 


* 


8 141 4300 


OFAB 7101 
OFAC 70F2 
OFAD 1 7400 
OFAF 700B 
,OFBO COOE 


102A 




MDX 
MDX 
MDX 
MDX 
LD 


1 

L 


+ 1 

T1220 
LINSW 
Tl 132 
PASSA 


*- 


* 
* 


81414310 
81414320 
81414330 
81414340 
81 414350 


0FB1 1 4C18 


OFCO 




BZ 




Tl 221 


* 


* 


8141 4360 


0FB3 6876 






STX 




LINSW 






81 414370 


0FB4 1 6500 


0E76 




LDX 


LI 


1ER26 






81414380 


0FB6 6912 






STX 


1 


TI130+2 






81 414390 


0FB7 1 6500 


OF 10 




LDX 


LI 


ICW2 5+54 






8 141 44 


0FB9 69E6 






STX 


1 


T1220+1 






81414410 


OFBA 700C 






MDX 




Tl 130 






8 141 4420 


OFBB 1010 




T1132 SLA 




16 






81 414430 


OFBC D002 






STO 




PASSA 


* 


* 


8 1414440 


OFBD D06C 
OFBE 7011 






STO 
B 




LINSW 
T1222 




^ 


81 414450 
8 14 1 44 60 


OFBF 0000 




PASSA 


DC 









* 


81 414470 


OFCO 68FE 




Tl 221 


STX 




PASSA 


* 


* 


8141 4480 


0FC1 1 6500 
0FC3 69DC 


0EF7 




LD X 
STX 


LI 
1 


ICW25+29 
T1220+1 


;;; 


* 


81 414490 
81414500 


0FC4 1 6500 


0E43 




LD X 


LI 


IER24 






8 14 14 510 


0FC6 6902 






STX 


1 


Tl 130+2 






81 4 1 452 


0FC7 61E7 




T 1 1 3 


LD X 


1 


-25 






81 4 14530 


0FC8 67 


0000 




LDX 


L3 


*-* 






8 141 4540 


OFCA 70D4 






B 




T1220 




* 


81 414550 


OFCB 1000 






NOP 










8 1414560 


OFCC 1000 






NOP 












OFCD 1000 






NOP 










81 414570 


OFCE 1000 






NOP 










81414580 
81414590 


OFCF 1000 






NOP 












OFDO 42FE 




T1222 


BSI 


2 


TLGMS-TB 


PRINT FIRST PART OF 


MSG 


8141 4600 
8141461 


0FD1 1 0DA3 






DC 




IER21 






8 14 1 4620 


0FD2 1 7400 
0FD4 7002 


OBFF 




MD X 
MD X 


L 


FALSW 
* + 2 


PREVIOUS ERROR 
YES, BRANCH 




81414630 
8 14 1 4640 


OFDb 1 6CO0 


OBFF 




STX 


L 


FALSW 


NO -SET IND ICATOR 




81 414650 


0FD7 1010 
0FD8 1 D400 


0C02 




SLA 
STO 


L 


16 
RT2CT 


CLR GOOD RE-TRY CNTR 


81414660 
81 414670 


OFDA 1 740 1 


OCOO 




MDX 


L 


RTCNT ,+1 


AN.) -I NCR RETRY CNTR 


< 1 ) 


81414680 


OFDC 1 C400 


OCOO 




LD 


L 


RTCNT 


YES -CK RETRY CNT 




81 414690 


OFDE 1 F400 


OBCC 




EOR 


L 


SVNTN 


RETRIES EXHAUSTED 




81414 7 00 


OFEO 1 4C20 


0D43 




BNZ 


L 


T1207 


NO BR TO RE-READ 




8 14 14 7 10 


0FE2 1 D400 


OCOO 




STO 


L 


RTCNT 


* CLEAR COUNTERS 




8 14 1 4720 


0FE4 1 D400 


OBFF 




STO 


L 


FALSW 


* 




61 414730 


0FE6 1 D400 


0C02 




STO 


L 


RT2CT 


* 




81414740 


0FE8 

0FE8 42FE 




T1214 


EQU 
BSI 


2 


* 
TLGMS-TB 


* PRINT RETRIES 




81 414750 
8 14 1 4760 


0FE9 1 0CA8 






DC 




IER13 


* EXHAUSTED MSG 




8141 4770 


OFEA 10 10 






SLA 




16 






















8 141 4780 


OFEB 1 D400 


OBFF 




STO 


L 


FALSW 






81414790 


OFED 1 D400 


OCOO 




STO 


L 


RTCNT 






8 1414800 


OFEF 7058 






B 




END 1 2 


GO TO ROUTINE END 




81414810 


OFFO 




SBDA2 


EQU 




* 


****** «***«******:!<*: 


fc* 


8141 4820 


OFFO 0000 






DC 




*-* 


* INSERT 'WAS' HA 


* 


81 414830 


0FF1 61FD 






LDX 


1 


-3 


* AND RO DATA INTO 


* 


8 141 4840 


0FF2 1 6700 
0FF4 1 C500 


ODAA 
0F13 




LD X 

LD 


L3 
LI 


HAD A3 
ICW2 6+3 


* 

* OUTPUT LINE 


* 


81 414850 
8 141 4860 


0FF6 1808 






SRA 




8 
TCVHD-TB 


* 






0FF7 42F5 






BSI 


2 


* 
* 


8 1 414870 
8 141 4880 


0FF8 42F2 






BSI 


2 


TCVBE-TB 


* 




8141 4890 


0FF9 D300 






STO 


3 





j. 
















* 


8 141 4900 


OFFA 1090 






SLT 




16 
+ 1 








OFFB D30 1 






STO 


3 


* 


* 


81 4149 10 
81414920 


OFFC 7302 
OFFD 1000 






^D X 
NOP 


3 


+ 2 



-64K SAFETY- 


* 
* 


81 414930 
8 141 4940 


OFFE 7101 






MD X 


1 


+ 1 


* 


* 


81414950 


OFFF 70F4 






MD X 




*-12 
16 








1 000 10 10 






SLA 




* 


* 


8141 4960 
81414970 



DATE 
EC NO. 



14N0V69 
431319 



30JAN70 
431319A 



15SEP71 
431328 



PROG ID 
PAGE 



0814- 
1 1 



DATE 
EC NO. 



14N0V69 
4313 19 



30JAN70 
431319A 



1 5SEP71 
431328 



PROG ID 
PAGE 



0814- 
11 
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PART NO. 2279460 
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1001 





D029 






STO 




PASSb 


* 




* 


81414980 


1002 


1 


65 


OF 17 




LDX 


LI 


ICW27+4 


*** 


OVERLAY 


* 


81414990 


1004 


1 


60 00 


100A 




STX 


LI 


T1224+1 


*** 


ADDRESS 


* 


81 415000 


1006 





61FC 






LDX 


1 


-4 


* 




* 


8 14150 10 


1007 


1 


6700 


00 B7 




LDX 


L3 


GDDAT 


* 




* 


81415020 


1009 





C500 


0000 


Tl 224 


LD 


LI 


*-* 


* 




* 


8 14150 30 


100B 


1 


7400 


102B 




MD X 


L 


PASSB 


* 




* 


81 415040 


100D 





7001 






MDX 




*+l 


*-SKP TCVHO IF NOT 


0# 


8141 50S0 


100E 





42F5 






BSI 


2 


TCVHD-TB 


* 




* 


81 415060 


100F 





42F2 






BSI 


2 


TCVBE-TB 


* 




* 


8141 5070 


1010 





D300 






STO 


3 





* 




* 


81 415080 


101 1 





1090 






SLT 




16 


* 




* 


8 1415090 


1012 





D301 






STO 


3 


+ 1 


* 




* 


81415100 


1013 





7302 






MDX 


3 


+ 2 


* 




* 


81415110 


1014 





7101 






MD X 


1 


+ 1 


* 




* 


81 415120 


1015 





70F3 






MD X 




T1224 


* 




* 


81415130 


1016 


1 


7400 


102A 




MD X 


L 


LINSW 


* 




* 


8141514C 


1018 





700C 






MDX 




TU29 


* 




* 


8 141 51 50 


1019 





C01 1 






LD 




PASSB 


* 




# 


81415160 


101A 


1 


4C18 


102C 




bZ 




T1225 


* 




* 


8 141 51 70 


101C 





680D 






STX 




LINSW 


* 




* 


81415180 


101D 


1 


6500 


0DF3 




LDX 


LI 


IER25 


* 




* 


814151 90 


101F 


1 


60 00 


1035 




STX 


LI 


T1127+2 


* 




* 


81415200 


1021 


1 


65 00 


0F49 




LDX 


LI 


ICW2 7+54 








8141 5210 


1023 





69E6 






STX 


1 


T1224+1 








81415220 


1024 





700E 






MDX 




Tl 127 


* 




* 


8 1415230 


1025 





1010 




Tl 129 


SLA 




16 


* 




* 


8 1 4 1 52 4 


1026 





D004 






STO 




PASSB 


* 




* 


81415250 


1027 





D002 






STO 




LINSW 


* 




* 


8 1 4152 60 


1028 


1 


4C80 


OFFO 


T1226 


BSC 


I 


SBDA2 








81415270 


102A 





0000 




LINSW 


DC 













81415280 


102b 





0000 




PASSB 


DC 







* 




* 


81415290 


10 2C 





68FE 




T1225 


STX 




PASSB 


* 




* 


81415300 


102D 


1 


6500 


0F30 




LDX 


LI 


ICW27+29 


* 






8141 5310 


102F 





690 A 






STX 


1 


T1224+1 


* 




* 


81415320 


1030 


1 


6500 


00 CO 




LDX 


LI 


IER23 


* 




* 


8141 5330 


1032 





6902 






STX 


1 


Tl 127+2 


* 




* 


81415340 


1033 





61E7 




Tl 127 


LDX 


1 


-25 


* 




* 


8 1415350 


1034 





6700 


0000 




LDX 


L3 


*-* 


* 






81415360 


1036 





700 2 




* 


b 




T1224 


* 




* 


8141 53 70 
81415380 










************* 


********* ** 


*******************! 


•f **** *** 


8 141 53 90 










* 












* 


81415400 










***** 


***** 


*** 


**************** 


*************** 


'i- ******* 


8141 5410 










* 














81415420 










* 






SUBR TO CHF.CK STATUS FOR ERRORS 


8141 5430 










* 














81415440 


1037 





0000 




CKSTA 


DC 




*-* 


EP 






81415450 


1038 





C22E 






LD 


2 


SCSXO+1-TB 


GET 


UNIT STATUS 




81415460 


1039 





100E 






SLA 




UNCHK 


UNIT 


CHECK 




8 14154 70 


103A 


1 


4C28 


1040 




BN 




CKERR 


ERR 


IF NOT NEG 




814154 80 


103C 


1 


740 1 


1037 


CKEND 


MD X 


L 


CKSTA ,1 


AD J 


RETURN 




8 141 54 90 


103E 


1 


4C80 


1037 




b 


I 


CKSTA 


RETURN VIA EP 




81415500 










* 














8141 5510 


1 040 





42E0 




CKERR 


BSI 


2 


EROUT-TB 


PRINT 




81415520 


1041 





8107 






DC 




/8107 








81415530 


1042 





1 101 




* 


DC 




/l 1 01 








81415540 
81415550 


1043 





4201 






BSI 


2 


TLPER-TB 


TEST 


LOOP ON ERR OPTION 


81415560 


1044 


1 


1046 






DC 




*+l 


LOOP 


ERR ADOR 




81415570 


1 045 





70F6 




* 


b 




CKEND 








81415580 
81415590 


1046 


1 


4C80 


1037 


* 


BSC 


I 


CKSTA 








81415600 
81415610 


1048 









END 12 


EQU 




* 








8141562 


1048 





42EC 






BSI 


2 


SIO-TB 


RECAL WHEN 




81415630 


1049 


1 


0EB7 




* 


DC 




ICCW4 


RTNE 


2 FINISHED 




81415640 
81415650 



GO TO NEXT ROUTINE IN SEQUENCE 



104A 42E3 

104B C28F 

104C 1 4C18 108B 

104E 42DD 

104F 0007 



1056 





OOFF 


1057 




0015 


1066 





OOFF 


1 067 




00 17 


1078 





OOFF 


1079 




0017 


108A 





FFFF 



108B 42DD 



10UC 0002 

1 08D 0000 

1 08t C2BE 

108F 1 4C18 1099 

1091 C2BF 

1092 1 4C18 10AB 

1094 90F8 

1095 1 4C30 0A4E 

1097 80F5 

1098 7012 

1099 42FE 
109A 1 10A0 
109B 1 7401 0855 
1 09D O 1000 
109E 4C80 012E 

10AO 0009 

10A9 FFOO 

10AA FFFF 



10AB 42DD 



10AC 



T12EN BSI 
LD 
BZ 
BSI 

TTL12 PRNT 

DC 

PRNT 

DC 

PRNT 

DC 

PRNT 

DC 



2 FREDV-TB 
2 TRTNN-TB 

T1301 
2 CNTRL-TB 



FREE CHANNEL 
GET RTN SWS 

GO TO NEXT RTN IN SEQ 
GO TO CONTROL RTN 



. SECT 1 ,RT 2- . 

/OOFF 

.2311 C.E. PACK INITIALIZATION. 
/OOFF 

.-ROUT 2 WR CYLS 1 AND 199 WITH RO . 
/OOFF 

•EQ TO 100 BYTES OF WORST CASE DATA. 
/FFFF 
'f* ************** ** **** ** ** **** ** * *** ** 



****************************************** * :;; :;c * * * * * * 

* 

* SECTION END 



T1301 BSI 2 CNTRL-TB 

*********** ************ 



i 5 * * * * * * * * * ********; 
SECTION PREFACE 



GO TO CONTROL RTN 

■['. i',. 5^ ;^ ;|c ;|i ;;: ^ ^; ^ z\: ty ;^ ^; ;;■; ;;; ;;c ;|; ;■: :|c ^; :?, ;? s|: ;,; .-;; :,: 



;;; :['. %. %. 5jc ;|c %. ;;: Ja ^; s'f ;^ ^ ;|c ;|: •-',. ;[; :,c s{( ;;t j£ ^ j|; 



T20PR DC 
DC 
* 
T20NT LD 

bz 
* 

L!5 
bZ 
S 

bP 
A 

MD X 
T20EN BSI 
DC 
MD X 
NOP 
bSC 



/0002 SECTION NUMBER 





2 TSCTN-TB 
T20EN 

2 TRTNN-Tb SW FNC 1 01 TS 12-15 

T2101 BR IF RUN ALL RTNS 

T20PR+1 TEST FOR VALID 

TCNER BR IF INVALID RTN NUMBER 

T20PR+1 RESTORE RTN NUMBER 

T2101 GO TO FIRST RTN 

2 TLGMS-TB PRINT ElvD OF TEST MSG 
T20ER 

L PSCNT.l BUMP PASS CNTR 

IN CASE OF SKIP 

I END GO TO MONITOR END 



T20ER PRNT . ** END OF OFT **. 

DC /FFOO 

DC /FFFF 

.-,; V -.- -i- V 'fi ^J- t 1 %r ^l- ^ ; J ! ; ^ *r ■■' ■'•' ; i ; ~r y \~ : ! ; '•' ''£ ~fi '■'■ 'v- ; i> : \ : J ) ; >'-- -'■' ''f- ■'.' S' -.* : i ; -r- : !' ; i c ■.• : ! ; ■'.• ^ : ^ : r ^ : ; 1 ; ^ '•• -£ & 'r 

* * 
********************************************* * * * * * * 

*************************************************** 

*************************************************** 
* 

* SECTION END 
* 

T2101 BSI 2 CNTRL-TB GO TO CONTROL RTN 
*************************************************** 

* * 
*************************************************** 

GTDVE EUU * GET DEVICE ROUTINE 



10AC 42EF 




GTDV1 BSI 


2 STMLS-TB 


10AD 4480 


0131 


BSI 


I REODV 


10AF 1 10AC 




DC 


GTO V 1 



BUSY RETURN 



8141 
8141 
8141 
81 41 
8141 
8141 
8141 
8141 
8141 
8141 
8141 
81 41 
8141 
8141 
8141 
8141 
8141 
8141 
8141 
8141 
8141 
8141 
8141 
8141 
8141 
8141 
8141 
8141 
8141 
8141 
8141 
8141 
8141 
8141 
8141 
8141 
8 141 
8141 
8141 
814 1 
8141 
8141 
8141 
8141 
8141 
81 41 
8141 
81 41 
8141 
8141 
8141 
8141 
8141 
8141 
814 1 
8141 
8141 
8141 
8141 
8141 
8141 
8141 
8141 
8141 
8141 
8141 
8141 
8141 



5660 
5670 
56 80 
5690 
5700 
5710 
5 72 
5730 
5740 
5750 
5760 
5770 
5780 
5790 
5800 
5810 
5820 
5830 
5840 
5850 
5860 
5870 
5880 
5890 
5900 

59 10 
5920 
5930 
5940 
5950 
5960 
5970 
5980 
5990 
6000 

60 10 
6020 
60 30 

60 40 
6050 
6060 
6070 
6080 
O090 
6100 

61 10 
61 20 
61 30 
6140 
6150 
61 60 

61 70 
6180 
6190 
6200 

62 10 
6220 
6230 
6240 
6250 
62 60 
6270 
62 80 
6290 
6300 
6310 
6320 
6330 
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10B0 1 0814 

10B1 1 08E9 

10B2 1 080C 

10B3 C2B0 

10B4 EA6A 

10B5 EAD2 

10B6 D21C 

10B7 EAAE 

10B8 D220 

10B9 D21A 

10BA D21E 



10BB 





C2B2 


10BC 





EA6A 


10BD 





18 08 


10BE 





1008 


10BF 





829B 


10C0 





D22C 


10C1 





8 298 


10C2 





D222 


10C3 





8297 


10C4 





D22 4 


10C5 





8297 


10C6 





D226 


IOC 7 





8297 


10C8 





D228 


10C9 





8297 


IOC A 





D22A 


10CB 





D269 



10CC 1 4C80 0865 



DC TSCED SEL CHN EDIT 

DC TSCAC SEL CHN AREA CODE 

DC TERM TERMINATOR 

LD 2 H0400-TB BUILD HALT 1/0 IOCC 

OR 2 TSCAC-TB OR IN AREA CODE 

OR 2 DVADR-TB *** 

STO 2 HIOXX+1-TB *** 

OR 2 H0100-TB BUILD START I/O IOCC 

STO 2 S10XX+1-TB *** 

STO 2 TIOXX+1-TB BUILD TEST I/O IOCC 

STO 2 SENSE+1-TB SET FOR SENSE IOCC 

LD 2 H0700-TB BUILD SENSE CHANNEL 

OR 2 TSCAC-TB * STATUS IOCC'S 

SRA 8 

SLA 8 

A 2 K6-TB 

STO 2 SCSN5+1-TB = 06 

A 2 K2-TB 

STO 2 SCSNO+1-TB *** = OS 

A 2 Kl-TB 

STO 2 SCSN1+1-TB = 09 

A 2 Kl-TB 

STO 2 SCSN2+1-Tb = OA 

A 2 Kl-TB 

STO 2 SCSN3+1-TB = OB 

A 2 Kl-TB 

STO 2 SCSN4+1-TB = OC 

STO 2 SCISW-TB SET INT SW 



BSC I GETDV RETURN 

************************************** ************* 



*************************************************** 

********************** ***************************** 



************************************ **^. 



10CE 


4480 


0132 


FRDVE BSI 


I 


RELD V 


10D0 


1 081 4 




DC 




TSCED 


10D1 


1 080C 




DC 




TERM 



10D2 1010 
10D3 D269 
10D4 1 4C80 0862 



101)6 









10D6 





6920 




10D7 





6B21 




10D8 


1 


6780 


086B 


10DA 


1 


7401 


066B 


10DC 





1000 




10DD 





C300 





RELEASE DEVICE 
SEL CHN ED IT 
TERMINATOR 



SLA 16 RESET- 

STO 2 SCISW-TB INTERRUPT SW 

BSC I FREDV RETURN 

********************** ***************************** 

* * 
***************************************** ******* *** 
* 

* CALL *************** 

* * BSI 2 SIO-TB * 

* * DC CCWADR * 

* ****************** 
* 

*************************************************** 

* * 

*************************************************** 

SIONT EQU * ENTRY POINT 

STX 1 S10X1+1 SAVE REGS 

STX 3 S10X1+3 *** 

LDX 13 SIO GET CALLING ADDRESS 

MDX L SIO.l BUMP FOR RETURN 
NOP 

LD 3 GET CCW ADDRESS 



81416340 
81416350 
81416360 
81416370 
814 16380 
81416390 
81416400 
81416410 
81416420 
81416430 
81416440 
81416450 
81416460 
8 1 4 1 64 70 
81416480 
8 14164 90 
81416500 
81416510 
8141652 
81416530 
81416540 
81416550 
81416560 
81416570 
81416580 
8 1416590 
81416600 
81416610 
81 4 16620 
81416630 
81416640 
8141 6650 
8141 666 
8 1416670 
81416680 
81416690 
81416700 
81416710 
81416720 
8 1416730 
81416740 
81416750 
81416760 
81416770 
81416780 
81416790 
81416800 
81416810 
8141682 
814 1 6830 
814 16840 
8 141 6850 
81416860 
81416870 
81416880 
81416890 
81416900 
81416910 
81416920 
81416930 
81416940 
8 1416950 
81416960 
81416970 
HI 41 6980 
81416990 
81417000 
8 1417010 



10DE 





D21F 


STO 


10DF 





D2C3 


STO 
* 
SIO01 SLT 


10E0 





10A0 


10E1 





DA 2D 


STD 


10E2 





DA2F 


STD 


10E3 





D267 


STO 



10E4 0A1F 



10E5 





0A21 




XIO 


10E6 





D221 


* 


STO 


1 0E7 





7006 


MD X 








* 


LOOP 


1 0E8 





42FB 


S1O02 

* 


BSI 


10E9 





C236 


LD 


10EA 





100B 




SLA 


10EB 


1 


4C28 10E8 




UN 


10ED 





70F2 




MDX 



10EE C221 

10EF 1007 

10FO 1 4C10 10FE 

10F2 C2D4 

10F3 1 4C28 10F6 

1 0F5 O 4047 

10F6 6500 0000 

10F8 6700 0000 

1 OFA 10 10 

10FB D2D4 

1 OFC 1 4C80 086B 



10F6 



10FE 





C2D4 


10FF 





1001 


1 100 


1 


4C28 


1 1 02 





CAC7 


1 103 





DA53 


1 104 


1 


4400 


1 106 





D257 


1 107 





1 090 


1 108 





D25A 


1 109 





C221 


110A 


1 


4C10 


1 IOC 





C2A8 


1 10D 





42F2 


1 10E 





1090 


I 10F 





D24D 


1110 





42E0 


1111 





0108 


1112 


1 


08CC 


1 1 13 





7023 


1 114 





1007 


111b 


1 


4C10 


1117 





C2A7 


1118 





8297 


1119 





42F2 


111 A 





1090 


1MB 





D24D 


1 1 1C 





42EO 


1 110 





010C 



1114 



2 SIOXX-TB SET FOR XIO 

2 CAWSV-TB SAVE FOR POSSIBLE PRINTS 

32 CLEAR CSW 

2 SCSXO-TB ** 

2 SCSX0+2-TB ** 

2 WIOSW-TB CLEAR WAIT SW 

2 SIOXX-TB DO THE START I/O 

2 SCSNO-TB GET CHANNEL STATUS 

2 SCSNO-TB SAVE FOR LATER EXAM 

SI003 GO TEST FOR ERRORS 
ON TIO UNTIL DEVICE END 

2 TIO-TB GO DO A TIO 

2 SCSX8+1-TE GET UNIT STATUS 

UNBZY TEST FOR BUSY 

SI002 BR IF STILL BUSY 

SI001 60 DO THE SIO AGAIN 



51003 LD 2 SCSNO-TB 
SLA SCABZ 
BNN SI005 

* CMD ACCEPTED 

51004 LD 2 SIOSW-TB 
BN SI0X1 



BSI 



WAITT 



SIOX1 LDX 


LI 


*-* 


LDX 


L3 


*-* 


SLA 




16 


STO 


2 


SIOSW-TB 


use 


I 


SIO 


SI 00 5 LD 


2 


SIOSW-TB 


SLA 




1 


bN 




SI 0X1 


LDD 


2 


TYP2-TB 


STD 


2 


STSER+6- 


BSI 


L 


TCVSR 


STO 


2 


STSfcR+10 


SLT 




16 


STO 


2 


STStR+13 


LD 


2 


SCSNO-TB 


BNN 




SIO06 


* NOT 


OPERATIONAL 


LD 


2 


H0013-TH 


BSI 


2 


TCVBE-TB 


SLT 




16 


STO 


2 


STSER-TB 


BSI 


p 


LROUT-TB 


DC 




/Ol 08 


DC 




STSER 


MD X 




SI009 


* 






SI 006 SLA 




SCABZ 


BNN 




SI007 


LD 


2 


H001 1-TB 


A 


2 


Kl-TB 


BSI 


2 


TCVBE-TB 


SLT 




16 


STO 


2 


STSER-TB 


BSI 


2 


EROUT-TB 


DC 




/010C 



GET CHAN STATUS 
TEST FOR BUSY 
BRANCH IF NUT NEG 

GET SIO SW 
BR IF SET 

GO WAIT FOR IJE OR UNIT CHK 

RESTORE REGS 

RESET SIO SW 

THEN EXIT 

GET CNTRL SW 

TEST FOR EXIT EVEN IF ERR 
BR IF SET 

•SIO • 
SET IN MSG 

GET SECT/RTN NUMBERS 
B 

B SET IN MSG 
GET CHAN STATUS 
BR IF NOT OPFR IS NOT SET 

GET MSG NUMBER 
CONVERT TO PRNT CODE 
SAVE Q ONLY 
SET IN MSG 
PRINT ERROR MSG 
TAGS AND OPTIONS 
MSG ADDRESS 
LOOP 

TEST FOR ADAPTER BUSY 

BR IF NOT 

SET MSG NUMBER 

CONVERT 

O ONLY 

SET IN MSG 

CALL ERROR PRINT RTN 

MESSAGE TAGS AND OPTIONS 



8141 
8141 
8141 
8141 
8141 
8141 
8141 
8141 
8141 
8141 
8 141 
8141 
8141 
8141 
8141 
8141 
8141 
8141 
8141 
8141 
8141 
8141 
8 141 
81 41 
8141 
8141 
8141 
81 41 
8 141 
8141 
8 141 
814 1 
8 141 
8141 
8141 
8141 
8141 
8141 
8141 
8141 
8 141 
8141 
8 14 1 
814 1 
8141 
8141 
8141 
8141 
8141 
8141 
8 141 
8141 
8141 
8 141 
8141 
8141 
8141 
8141 
8141 
8141 
8141 
8141 
8141 
8141 
8141 
8141 
8 141 
8141 



7020 
7030 
7040 
7050 
7060 

70 70 
7O80 
7090 
7100 

71 10 
7120 
7130 
7140 
7150 
7160 
7170 
7180 
7190 
7200 
7210 
7220 
7230 
7240 
7250 
7260 
7270 

72 80 
7290 
7300 
7310 
7320 
7330 
7340 
7350 
7360 
7370 
7380 
7390 
7400 
74 10 
7420 
7430 
7440 
7450 
74 60 
7470 

74 80 
7490 
7500 

75 10 
7520 
7530 
7540 
7550 
7560 
7570 
7580 
7590 
7600 
7610 
7620 
7630 
7640 
7650 
7660 
7670 
7680 
7690 
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1800 DIAGNOSTIC MAINTENANCE PROGRAM 

I HE 1 08CC DC 

I1»F 7017 MDX 



It 20 C221 

1121 1 001 

1122 1 4C10 10F2 
1124 42E9 
IMS O CA1S 
1126 1Q9F 
t»27 1 4CIQ 1130 
1129 t 6780 0B9E 
1I2B C301 
112C F2A8 
112D O 1008 
U2E 1 4C18 10EO 



1130 





C2A7 


1131 





42F2 


1132 





1090 


1133 





D24D 


1134 





42E0 


1135 





010F 


1136 


1 


08CC 



1137 C283 

1138 100B 

1139 1 4C28 10E8 

113B 42F8 

113C 70AB 



113D 0000 

113E C28D 

113F D2BD 

1140 42FB 

1141 C236 

1142 100B 

1143 1 4C28 1149 

1145 1010 

1 146 D2D8 

1147 1 4C80 113D 

1149 42EF 

114A 1 74CE 083C 

114C 70F3 

114D 1 4C80 114F 

114F 0000 



1150 4204 

1151 1 1154 

1152 1 4480 086B 

1154 1 74FF 086B 

1 156 1 000 

1157 1 4C00 10D6 



SI0O7 U> 
SLA 

BNN 
BSI 
LDD 
SLT 

BNN 



STSER 

sroo9 

2 SCSNO-TB 

SCUSP 

SI004 
2 GETSN-TB 
2 SNWDS-TB 

FSKIN 

S1O08 



LOX 13 SIOXX 



LD 

EOR 

SLA 

BZ 

SI 008 LD 
BSI 
SLT 
STO 
BSI 
DC 
DC 

* 

SI009 LD 
SLA 
BN 

* 

BSI 
MDX 



3 1 

2 H0013-TB 
8 
SIOOl 

2 HOOH-TB 
2 TCVBE-TB 

16 
2 STSER-TB 
2 EROUT-TB 

/010F 

STSER 

2 TSWO-TB 
ORTRY 
SI002 

2 THALT-TB 
SI002 



MSG ADORESS 
* 

GET CHAN STATUS 

UNIT STATUS PENDING 

BR IF NOT SET 

ELSE GET SENSE INFO 

GET SENSE WORDS 

TEST FOR SEEK INCOMPLETE 

BR IF NOT SET 

GET CCW ADDRESS 

GET FLAGS AND OP CODE 

TEST FOR RECALIBRATE 

RETRY IF SO 

SET ERR NUMBER 

CONVERT 

Q ONLY 

SET IN MSG 

CALL MSG RTN 

TAGS AND OPTIONS 

MSG ADDRESS 

GET SW FNC 

TEST FOR RETRY SIO 

BR IF YES 

GO WAIT FOR OPERATOR 
LOOP 



* * 

# 

* WAIT FOR DEVICE END FROM START I/O 
* 



WAI TT DC 
LD 
STO 

* 

WAIT1 BSI 

* 

LD 

SLA 

BN 

SLA 

STO 

BSC 

* 

WAIT2 BSI 
MDX 
MDX 
BSC 

WTADR DC 



*-* 
2 TERM-TB 
2 CNTDN-TB 

2 TIO-TB 



GET COUNTER FOR LOOP 
SET FOR LOOP 



GO DO A TEST I/O 



2 SCSX8+1-TB GET UNIT STATUS 

UNBZY TEST FOR UNIT BUSY 

WAIT2 BR TO WAIT IF ON 

16 ELSE CLEAR TIO SW 

2 TIOSW-TB * 

I WAITT EXIT IF NOT BUSY 

2 STMLS-TB GO TO MONITOR 

L CNTDN.-50 COUNT TIME 

WAIT1 LOOP 

I WTADR GO TO TIMEOUT ADDRESS 

*-* TIMEOUT ADDRESS 



***************************** **********X%*~x%$$% ll ,%,X 

* * 
******************* ************************ **#**,(*£ 

ILSIO BSI 2 TLPST-TB LOOP ON SIO OPTION 

DC *+2 LOOP ADDR 

BSI I SIO -RETURN- 

* 

MDX L SIO.-l RE-ADJ EP FOR PARAMETER 

NOP -64K SAFETY- 

B L SIONT LOOP THRU SIO AGAIN 
#*********************************«*****«****** **** 

* * 
******************* ******************************** 
* 



81417700 

81417710 

81417720 

81417730 

81417740 

81417750 

81417760 

81417770 

81417780 

81417790 

814178G0 

81417810 

81417820 

81417830 

81417840 

81417850 

81417860 

81417870 

81417880 

81417890 

81417900 

81417910 

81417920 

81417930 

8141 7940 

8141 7950 

81417960 

8141 7970 

81417980 

8141 7990 

81418000 

81418010 

81418020 

81418030 

81418040 

81418050 

81418060 

81418070 

81418080 

8 1418090 

81418100 

814181 10 

61418120 

814181 30 

81418140 

814181 50 

81418160 

81418170 

81418180 

8 1418190 

81418200 

8 141 8210 

81418220 

81418230 

81418240 

81418250 

81418260 

81418270 

81418280 

8 141 8290 

81418300 

8141 8310 

81418320 

81418330 

81418340 

8141 8350 

81418360 

8141 8370 
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1 159 O 

1159 O 1010 
115A D268 
UbB D223 

I ISC 0A21 

115D 1007 

1 1 5E 1 4C 1 O 1171 

1160 0A2B 

1 lbl O 42EF 

1162 1 7432 08A2 

1164 O 7 OF 7 

1 165 0A23 

1166 0239 

1 167 O 0A27 

1168 D23A 

1 169 O 0A29 
116A D23B 
1166 0A2B 
116C 023C 



1160 

1 1 6E 

1 16F 1 

1170 

1171 

1172 1 
1 174 

1 175 1 

1177 

1 1 78 

1179 

1 17A 1 



42E0 
1 10E 
1 185 

70E8 

0A19 

6C00 0857 
0A2B 

4400 0992 

7006 

C236 

100A 

4C28 1159 



1 7C 1 4080 087A 



1 17E 
1 1 7F 
1 180 1 



42E0 
1 10E 
1 191 



1181 0A1B 



1 182 
1 183 1 



42FE 
1 1 A2 



1184 70D4 



********** 

* 

*********.;! 

TIONT EOU 
.SLA 
STO 
STO 

* WA I T 

XIO 

SLA 

BNN 

XIO 



TIO01 



***************************************** 

* ENTRY FOR XFER VECTOR 

16 CLEAR- 

2 WATSW-TB * 

2 SCSNL-TB * LOOP COUNTER 

FOR ADAPTER NOT BUSY 

2 SCSNO-TB GET CHAN. STATUS WORD 

SCABZ TEST FOR ADAPTER BUSY 

TIOQ2 BR IF NOT 

2 SCSN5-TB ALLOW POLLING 



BSI 
MD X 
MO X 
* 

XIO 
STO 
XIO 
STO 
XIO 
STO 
XIO 
STO 

bSI 

DC 

DC 

MDX 

TIO02 XIO 

STX 
XIO 

* 

BSI 
MDX 

LD 
SLA 

bN 



2 STMLS-TB 

L SCSN1 .50 

TIO01 



2 SCSN1-TB 

2 SCSXC-TB 

2 SCSN3-TB 

2 SCSXC+1-TB 

2 SCSN4-TB 

2 SCSXC+2-Tb 

2 SCSN5-TB 

2 SCSXC+3-TB 



GO TO MONITOR 
COUNT LOOPS 
LOOP UNTIL NOT BUSY 

GET CHANNEL STATUS 

* AND SAVE FOR ERROR 

* MESSAGE 



3: 



2 EROUT-TB 
/110E 
TIOM1 

T IONT 

2 TIOXX-TB 

L TIOSW 
2 SCSN5-TB 



TAGS AND OPTIONS 
ERROR MSG ADDRESS 

LOOP TO TRY AGAIN 

EXECUTE TEST I/O 

SET TIO SW 
RELIEVE POLL 



L TINTW WAIT FOR INTERRUPT 

TIO03 BR IF DID NOT OCCUR 

2 SCSX8+1-TB GET UNIT STATUS 

UNCUE TEST FOR CNTL UNIT END 

TIONT RETRY IF YES 



TIO03 



BSC 

BSI 

DC 

DC 

ISSUE 

XIO 

BSI 

DC 

MD X 



TIO 



EX IT 



1 18b 




00 1 1 


TI0M1 


PRNT 


1 190 





FFFF 




DC 


1 191 




0016 


TIOM2 


PRNT 


11 Al 





FFFF 




DC 


11 A2 




0015 


TIOMS 


PRNT 


11B1 





FFOO 




DC 


1 1B2 




0017 




PRNT 


1 1C3 





FFFF 




DC 



2 EROUT-TB 

/110E TAGS AND OPTIONS 

TIOM2 ERROR MSG ADDRESS 

HALT I/O TO CLEAR CHANIvEL 

2 hlOXX-TB 

2 TLGMS-TB 
TIOMS 

TIONT 

. 02 ADAPTER HUNG BUSY. 
/FFFF 

. 06 CHANNEL HUNG AFTER TEST I/O. 

/FFFF 

. A HALT I/O HAS BEEN ISSUED TO. 

/FFOO 

.TRY TO RESET THE CHANNEL CONDITION, 

/FFFF 



8 141 
8141 
8141 
8141 
8141 
8141 
8141 
8141 
8141 
8141 
8141 
8141 
8141 
8141 
8141 
8141 
8141 
8141 
8 141 
8141 
8141 
81 41 
8141 
814 1 
B1M 
8 1 4 1 
8 141 
8141 
8 141 
8141 
8141 
8141 
8141 
8141 
8141 
8141 
8141 
8141 
8141 
8141 
8141 
8141 
8141 
8141 
8141 
8141 
8 141 
8141 
8 141 
8141 
8141 
8141 
8 141 
8141 
8141 
8141 
8141 
8141 
8141 
8141 
8141 
8141 
8 141 
81 41 
8141 
8141 
8141 
81 41 



8380- 

8390 

8400 

8410 

8420 

8430 

8440 

6450 

8460 

8470 

8480 

8490 

8500 

851 i 

852 

853. 

854-J 

8550 

8560 

8570 

8560 

8590 

86 

8610 

862 

8630 

8640 

8650 

8660 

8670 

8680 

8690 

8700 

8710 

8720 

8730 

8740 

8750 

8760 

8770 

8780 

8790 

8800 

8810 

8820 

8830 

8840 

8850 

8860 

8870 

8880 

8890 

8900 

89 10 
8920 
8930 
8940 
8950 
8960 
8970 
8980 
8990 
9000 

90 10 
9020 
9030 
9040 
9050 



DATE 
EC NO. 



14NOV69 
431319 



30JAN70 
431319A 



15SEP71 
431328 



PROG ID 
PAGE 



0814- 

14 



DATE 14N0V69 30JAN70 15SEP71 
EC NO. 431319 431319A 431328 



PROG ID 0814-0 
PAGE 14A 



II (I o f 
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PART NO. 22794c. 
PACE IbA 



11C4 6916 

1 1C5 6B17 

11C6 CA39 

11C7 DA3D 

11C8 CA3B 

11C9 DA3F 

UCA, 0A1D 

UCB 0A2I 

UCC D221 

11CD 1007 

11CE 1 4C10 11E4 

UDO 0A21 

11D1 1007 

11D2 1 4C28 11D0 

1104 0A2B 

11D5 O 1000 



11D6 
11D7 
11 08 
11DA 
11 DC 
11DE 
11DF 
11E0 
11E1 



C23A 
100E 

4C28 11E4 
6500 0000 
6700 0000 
CA3D 
DA39 
CA3F 
DA3B 



11E2 1 4C80 0868 



11E4 1 
1 1E6 
11E7 
1 1E8 
11E9 
llfcA 
11EB 
1 1EC 



4400 157A 

0257 

1090 

D25A 

CAC9 

0A53 

C239 

100 1 



11ED 1 4C10 11F6 



11EF 
UFO 
11F1 
11F2 

11F3 
1 1F4 
11F5 



C2B5 
42F2 
D24D 
42E0 
1 14E 
08CC 
70D4 



11F6 C221 

11F7 1007 

11F8 1 4C10 1202 

UFA C2AE 



******** a***************-*************************** 

* * 
♦I************************************************** 
* 

*************************************************** 

• * 
*********************************** ******** ******** 

• CALL **************** 
» * BSI L GETSN * 

♦ ******************* 

* 

******************************** ******************* 
*t * 

*************************************************** 



GTSNS STX 
STX 
LDD 
STD 
LDD 
STD 
XIO 
XIO 
STO 
SLA 
BNN 



GTSNO 



GTSNX+1 

GTSNX+3 

SCSXC-TB 

SCSVS-TB 

SCSXC+2-TB 

SCSVS+2-TB 

SENSE-TB 

SCSNO-TB 

SCSNO-TB 

SCABZ 

GTSN2 



SAVE 

*** 
SAVE 

** 
** 



REGS 



SNS CHAN STATUS 



SENSE I/O 

GET CHAN STATUS 

SAVE 



SIO ACCEPTED- WAIT FOR NOT BUSY 



GTSN1 



XIO 
SLA 
BN 

* 

XIO 
NOP 

* 

LD 

SLA 

BN 

GTSNX LDX 
LD X 
LDD 
STD 
LDD 
STD 
BSC 

* 

GTSN2 BSI 
STO 
SLT 
STO 
LDD 
STD 
LD 
SLA 
BNN 

* UNIT 

LD 
BSI 
STO 
BSI 
DC 
DC 
MDX 
NOT 
LD 
SLA 
BNN 
LD 



2 SCSNO-TB 
SCABZ 
GTSN1 

2 SCSN5-TB 



GET CHAN STATUS 
TEST FOR BUSY 
BR IF SO 

ALLOW POLLING 

TO ALLOW INTERRUPT 



2 SCSXC+1-TB GET UNIT STATUS 
UNCHK 
GTSN2 
LI *-* 
L3 *-* 

2 SCSVS-TB 

2 SCSXC-TB 

2 SCSVS+2-TB 

2 SCSXC+2-TB 
I GETSN 



RESTORE REGS 

*** 

RESTORE SNS CHAN STATUS 

** 

#* 

** 

EXIT TO CALLER 



L TCVSR GET SECTION / RTN NUMBERS 

2 STSER+10-TB STORE IN MSG 

16 Q TO A 

2 STSER+13-TB 
2 TYP3-TB 'SNS' 

2 STSER+6-TB SET IN MSG 
2 SCSXC-TB GET CHAN STATSUS WORD 

SCUSP TEST FOR UNIT STAT.PNDING 

GTSN3 BR IF NOT 

STATUS PENDING 



* 
GTSN3 



2 H2100-TB 
2 TCVBE-TB 
2 STSER-TB 
2 EROUT-TB 

/114E 

STSER 

GTSNO 
OPERATIONAL 
2 SCSNO-TB 

SCABZ 

GTSNS 
2 H0100-TB 



SET MSG NUMBER 

CONVERT TO EBC 

SET IN MSG 

PRINT EROR MSG 

TAGS AND OPTIONS 

MESSAGE 

GO TRY AGAIN 

GET CHAN STATUS 

TEST FOR ADAPTER BUS-i 

BR IF NOT 

SET MSG NUMBER TO 22 



81419060 
81419070 
81419080 
81419090 
81419100 
814191 10 
81419120 
81419130 
81419140 
81419150 
81419160 
81419170 
8 1 4 1 9 1 80 
81419190 
81419200 
81419210 
81419220 
81419230 
81419240 
81419250 
81419260 
81419270 
81419280 
81419290 
81419300 
81419310 
81419320 
81419330 
81419340 
81419350 
81419360 
81419370 
81419380 
81419390 
81419400 
81419410 
81 419420 
81419430 
81419440 
81419450 
81419460 
8 1419470 
81419480 
81419490 
81419500 
81419510 
81419520 
81419530 
81419540 
81419550 
81419560 
81419570 
81419580 
81419590 
81419600 
81419610 
81419620 
81419630 
81419640 
81419650 
81419660 
81419670 
81419680 
81419690 
81419700 
81419710 
81419720 
81419730 



11FB 





82B5 


GTSN4 


A 


2 


H2100-TB 


11FC 





42F2 




BSI 


2 


TCVfiE-TB 


UFD 





02 40 




STO 


2 


STSER-TB 


11FE 





42E0 




BSI 


2 


EROUT-TB 


UFF 





1 14C 




DC 




/l 14C 


1200 


1 


08 CC 




DC 




STSER 


1201 





70C8 


* 
GTSNS 


MDX 




GTSNO 


1202 





C2AF 


LD 


2 


H0200-TB 


1203 





70F7 




MDX 




GTSN4 



1204 

1204 C2B3 

1205 100E 

1206 1 4C10 1217 

1208 C2F8 

1209 42F2 
1 20A D01E 
120B 1090 
120C DO ID 
120D O 42FE 
120E 1 1219 

120F C297 

1210 O EA83 

1211 D283 



1212 42EF 



1213 C283 

1214 1 4C04 1212 



1216 42EF 

1217 1 4C80 0877 



1219 




0016 


1229 




0002 


122B 





OOFF 


122C 




0014 


1 23A 





OOFF 


123B 




00 1 1 


124 6 





OOFF 


124 7 




0012 


1 253 





OOFF 


1254 




0012 


1260 





FFFF 



CONVERT 

SET IN MSG 

CALL ERROR MSG RTN 

TAGS AND OPTIONS 

MSG ADDRESS 

GO TRY AGAIN 

SET MSG NUMBER TO 23 
GO TO COMMON RTN 

* ' * 
**************************** ^^^j,,*^,**..,..,.,^ ,.****** 

* HALT ROUTINE 

* SETS BIT 15 IN TSWO ON AND LOOPS 

* THRU MONITOR UNTIL BIT IS CLEARED. 
* 

****** ******** * *** ******** *********** ** ** * * ~ * fc jjjj, ^,.. J 

* 

****************** *************, ; ;**„ ... ;..** **********<- j;i!k 

THLTE fcOU * 

GET OPT ION SWS 

TEST FUR HALT ON ERROR 

BR IF NO 

GET CALLING ADDRESS 

CONVERT TO PRNT CODE 

SET IN MSG 

O TO A 

SET IN MSG 

GO PRINT MSG 

MESSAGE ADDRESS 

SET BIT 15 



LD 


2 


TSWO-TB 


SLA 




OHALT 


BNN 
* 




THLTR 


THLTG LD 


2 


THALT-TB 


BSI 


2 


TCVBE-TB 


STO 




THLT2 


SLT 




16 


STO 




THLT2+1 


BSI 


2 


TLGMS-TB 


DC 




THLTM 


LD 


2 


Kl-TB 


OR 


2 


TSWO-TB 


STO 


2 


TSWO-TB 



LOOP THRU MONITOR UNTIL READY 

60 TO MONITRR 



THLTL BSI 2 STMLS-TB 
* RETURN HERE 

LD 2 TSWO-TB 



BOO 

BSI 
THLTR bSC 
* 

THLTM PRNT 
THLT2 PRNT 
DC 
PRNT 
DC 
PRNT 
DC 
PRNT 
DC 
PRNT 
DC 



THLTL 



2 STMLS-TB 
I THALT 



GET SWITCH WORD 
BR IF STILL ON 



GO TO MONITOR 
RETURN TO CALLER 



. ***HALT DISK INITIALIZER ADDRS . 

. . 

/OOFF 

. TO CLEAR HALT SET SWITCHES-. 

/OOFF 

. S/P OOPP PPPP, P=PID. 

/OOFF 

. DES XXXX XXXX XXXX XXXO. 

/OOFF 

. PRESS CONSOLE INTERUPT. 

/FFFF 



************************************* ^^^....L ,..,..,< .^.^ 
****** ************************* *******££,,,;,£,..;.,.£ ,,£,(.£ 

SAVE INDEX REGISTERS AND GO TO MONITOR 

****** **********************************£,;..,. ^.j,* *£,,,££ 

* 



HsswwjnsssstsstwssiutHis^^jjj^j^ 



****** 



81419740 

81419750 

81419760 

81419770 

81419780 

814 19790 

81419800 

81419810 

81419820 

81419830 

8 1419840 

81419850 

81419860 

81419870 

81419880 

81419890 

81419900 

81419910 

81419920 

81 419930 

81419940 

81 419950 

8 1419960 

81 419970 

8 1419980 

8 1 4 19990 

8 1420000 

81 4200 10 

81420020 

81420030 

81420040 

61 420050 

81420060 

81 420070 

81420080 

81 420090 

8 1420 100 

81 420 1 10 

81420120 

81420 130 

81420140 

81420150 

814201 60 

814201 70 

81420180 

81 420190 

81420200 

81420210 

81420220 

81 420230 

81420240 

81 420250 

8 1420260 

81 420270 

81420280 

81 420290 

81420300 

81420310 

81420320 

81420330 

81420340 

81420350 

81420360 

81420370 

81420380 

81420390 

81420400 

81420410 



DATE 

EC NO. 
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PROG ID 
PAGE 



0814-0 
15 



DATE 
EC NO. . 



14N0V69 
431319 



30JAN70 
431319A 



15SEP71 
43132 8 



PROG ID 
PAGE 



08 1 4- 
ISA 
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1261 

1261 C2EF 

1262 D02E 

1263 692E 

1264 6B2E 

1265 1 6580 1294 

1267 C029 

1268 1 D500 1296 
126A C027 
126B 1 D500 1297 
126D C025 
126E 1 D500 1298 

1270 7103 

1271 6922 

1272 C022 

1273 D28C 

1274 4C80 012D 



1276 1 6600 087F 

1278 C01D 

1279 D2EF 

127A C01C 

127B D016 

127C CO IB 

127D D015 
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127E 61F7 

1 27F 1 C500 12A2 

128 1 1 D500 129F 

1283 7 101 

1284 70FA 

1285 1 74FD 1294 

1287 7006 

1288 1 6580 1292 
128A 1 6780 1293 
128C 1 4C80 086E 

128E C006 

128F D28C 

1290 70F7 



1291 0000 

1292 0000 

1293 O 0000 

1294 0000 

1295 1 1276 



1296 0000 

1297 O 0000 

1298 O 0000 

1299 0000 
129A 0000 
129B O000 



STMLE 


EQU 




* 




81 420420 




LD 


2 


STMLS-TB 


GET CALLING ADD RS 


8 1420430 




STO 




STMSA 


PUT IN TEMP SAVE AREA 


81420440 




STX 


1 


STMSA+1 


PUT REGS IN SAVE AREA 


81420450 




STX 


3 


STMSA+2 


** 


81420460 


* 


LDX 


I 1 


STMPT 


GET Q LOCATION 


81420470 
81420480 




LD 




STMSA 


GET I REG 


81420490 




STO 


LI 


STMST 


PUT IN Q 


81420500 




LD 




STMSA+1 


GET XR1 


81420510 




STO 


LI 


STMST+1 


PUT IN Q 


81420520 




LD 




STMSA+2 


GET XR3 


81420530 


* 


STO 


LI 


STMST+2 


PUT IN Q 


81420540 
81420550 




MDX 


1 


+ 3 


BUMP POINTER 


81420560 


* 


STX 


1 


STMPT 


SAVE 


81420570 
81420580 




LD 




STMRT 


SET UP MONITOR RETURN 


81420590 




STO 


2 


MLSC2-TB 


* 


81 420600 


# 


BSC 


I 


START 


GO VISIT MONITOR 


81420610 
81420620 


* 


RETURN 


FROM MONITOR HERE 


81420630 


* 










81 420640 


STMLX 


LDX 


L2 


TB 


SET UP TABLE PNTR 


81420650 




LD 




STMST 


GET ENTRY LOC 


81420660 




STO 


2 


STMLS-TB 


PUT IN RETURN 


81420670 


* 










81420680 




LD 




STMST+1 


GET XR1 


81420690 




STO 




STMSA+1 


PUT IN TEMP SAVE 


81420700 




LD 




STMST+2 


GET XR2 


81420710 




STO 




STMSA+2 


PUT IN TEMP SAVE 


81 420720 


* 










81420730 




LDX 


1 


-9 




81420740 


* 










81420750 


STMLL 


LD 


LI 


STMST+12 


MOVE ALL SAVED 


81420760 




STO 


LI 


STMST+9 


* PARAMETERS UP 3 


81420770 




MD X 


1 


+ 1 


* PLACES IN 


81420780 




MDX 




STMLL 


* 


81420790 


* 










81 420800 




MDX 


L 


STMPT ,-3 


DECREMENT Q POINTER 


81420810 




MDX 




STMPS 


IF NOT 0, CONTINUE 


81 420820 


* 










81420830 


STMSE 


LDX 


I 1 


STMSA+1 


ELSE RESTORE PARAMETERS 


81420840 




LDX 


13 


STMSA+2 


* 


81420850 




BSC 


I 


STMLS 


RETURN 


81420860 


* 


GET 


HERE IF ENTRYS 


NEED SERVICING 


81420870 


STMPS 


LD 




STMRT 


SET UP RETURN TO 


81420880 




STO 


2 


MLSC2-TB 


* STMLS ROUTINE 


81420890 




MD X 




STMSE 


EXIT 


81 420900 


* 










81420910 


* 


TEMPORARY SAVE AREA 


81420920 


* 










81420930 


STMSA 


DC 




*-* 




81420940 




DC 




*-* 




81420950 




DC 




*-* 




81420960 


* 










81420970 


STMPT 


DC 







Q POINTER 


81420980 


STMRT 


DC 




STMLX 


RE-ENTRY LOCATION 


81420990 


* 










81421000 


* 


QUEUED 


SAVE AREA 




81421010 


* 










81421020 


STMST 


DC 




#-* 


I 1 


81421030 




DC 




*-* 


XR1 1 


81421040 




DC 




*-* 


XR3 1 


81421050 


* 










81421060 




DC 




*-* 


I 2 


81421070 




DC 




*-* 


XR1 2 


81421080 




DC 




*-* 


XR3 2 


81421090 



1 29C C 


i 0000 






D C 




*-* 
*-* 




81421 100 


129D C 


i 0000 






D C 






81421 1 10 
















81421 120 


1 29E 


0000 






DC 




*-* 












* 






81421 130 


1 29F 


0000 




DC 




*-* 




81421 140 














81421 1 50 


12A0 


0000 






D C 




* — * 






12A1 


0000 






DC 




*-* 




81421 160 














81421 1 70 








***** 


***** 


************* 


:************************ 


;**** 81421180 








* 










* 81421 190 








* 


* * * * * 


*** 


********** 


I***********************;. 


:**** 81421200 
















81421210 








* 


CALL 


** 


V *l> ^ ^ A* T 1 %£ ~fi -p % 


:************** 


81421220 








* 


* 


BSI 2 EROUT- 


TB * 


81421230 








* 


* 


DC 


/0127 


CNTRL TAGS * 


81421240 








* 


* 


DC 


/ABCD 


ERR NUMBER * 


81421250 








"■" 








(SECT.RT.ER) * 


81421260 








# 


** 


*** 


********** 


************** 


81421270 


















81421280 








***** 


***** 


*** 


********** 


************************ 


**** 81421290 








^ 










* 81421300 








***** 


***** 




********** 


************************ 


**** 81421310 








v 










81421320 








* 


EQUATES 


FOR EROUT 


TAGS 


81421330 








; ; ; 










81421 340 


0000 






OECXO 


EQU 







CSW=SCSXO 


81421350 


000 1 






0ECX4 


EQU 




1 


CSW=SCSX4 


81421360 


0002 






0ECX8 


EQU 




2 


CSW=SCSX8 


81 421370 


0003 






OECXC 


EQU 




3 


CSW=SCSXC 


81421380 


000b 






OE XI T 


EQU 




6 


EXIT TO ERADR 


81 421390 


0007 






OEPBL 


EQU 




7 


PRINT A BLANK LINE 


81421400 


009 






OEBYP 


EQU 




9 


bYPASS HALT LOOP 


81421410 


000 A 






OEGSN 


EQU 




10 


GET SENSE BYTES 


81421420 


OOOB 






0EL1B 


EQU 




1 1 


BYPASS LINE 1 


81421430 


OOOC 






OEERR 


fcUU 




12 


PRINT ERROR MSG 


81421 440 


OOOD 






OECAW 


EQU 




13 


PRINT CAW 


81421450 


E 






OECSW 


EOU 




14 


* CSW 


81421460 


OOOF C 






OESNS 


EUU 




1 5 


* SNS 


81421470 








**********: 


************** *********************** 


**** 81421480 








T 










* 81421490 








*****; 


*: * * * * * * * 


***************** ************* * * * * 


**** 81421500 


1 2A2 
12A2 
1 2A8 


0000 
0006 
003C 




ERMSG 
PRINT 


BSS 

PRNT 

BSS 


E 

t: 




. **ER-XXXX . 

60 PRINT BUFFER 


81421510 
81421520 
81421530 


1 2E4 






ERTNE 


EQU 




* 


ENTRY POINT 


8 1421 540 


1 2E4 


C2D7 






LD 


2 


STKSW-TO 


GET RE-ENTRY SWITCH 


8 1421 550 


12E5 1 
1 2E7 1 


4C20 
6D00 


12F7 
13B4 




BNZ 
STX 


LI 


1 RTN2 
ERT1 7+1 


BR IF SET 
SAVE REGS 


81421560 
81421 570 


12E9 1 
1 2EB 1 
12ED 


6F00 
C480 
100A 


13B6 
085F 




STX 

LD 
SLA 


L3 
I 


ERT1 7+3 
EROUT 

OEGSN 


GET FLAGS 

GET SENSE BYTES 


81421580 
81421590 
8 1421 600 


1 2EE 1 
12F0 


4C10 
C2E0 


12F7 




BNN 
LD 


2 


ERTN2 
EROUT-TB 


BR IF NO 
GET RETURN ADDRS 


81421610 
8 1421 620 


1 2F 1 
12F2 
1 2F3 
12F4 
12F5 
12F6 


D2D7 
42E9 
C2D7 
D2E0 
1010 
D2D 7 




* 
ERTN2 

* 
ERTN3 


STO 

BSI 

LD 

STO 

SLA 

STO 


2 
2 
2 
2 

2 


STKSW-TB 

GETSN-TB 

STKSW-TB 

EROUT-TB 

1 6 

STKSW-TB 


SET SW 

GET SENSE BYTES 
GET SAVED ADDRESS 
SET FOR RETURN 
CLEAR SWITCH 


81421 630 
81421640 
81421 650 
81421660 
81421670 
81421680 


ltf7 1 
1 2F9 
12FA 
12FB 1 
12FD 
1 2FE 1 


6780 
C.300 
1007 
4C10 
42FE 
08 OC 


085F 
12FF 


LDX 

LD 

SLA 

BNN 

BSI 

DC 


13 
3 

2 


EROUT 



OEPBL 

ERTN3 

TLGMS-TB 

TERM 


SET REG 

GET OPTIONS/FLAGS 

PRINT BLANK LINE FIRST 

BR IF NOT 

PRINT BLANK LINE 

/FFFF 


81421690 
81421700 
81421710 
81421720 
81421 730 
81421 740 
81421750 


1 2FF 


C300 




LD 


3 





GET TAGS 


81421760 
81421770 



;ATE 

:-C NO. 



14N0V69 
431319 



30JAN70 
43I319A 



15SEP7I 
431328 



PROG ID 
PAGE 



0814- 
16 



DATE 
EC NO. 



14N0V69 30JAN70 15SEPT1 

431319 431319A 431328 



PROG ID 
PAGE 



0814-0 
16A 
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1300 





100B 






SLA 




0EL1B 


BYPASS LINE 1 PRINT 


81421780 


1301 


1 


4C28 


1337 




BN 




ERT10 


BR IF YES 


81421 790 


1303 





1001 






SLA 




OEERR-OELIB ERROR MSG 


81421800 


1304 


1 


4C10 


1317 


# 


BNN 




ERTN6 


BR IF NOT 


81421810 
81421820 


1306 





6100 






LDX 


1 





SET COUNT TO ZERO 


81421830 


1307 





C301 






LD 


3 


1 


GET MSG ADDRESS 


81421840 


1308 





D00 1 






STO 




ERTN4+1 


SET FOR LOAD INSTRUCTION 


81421 850 


1309 





C500 


0000 


ERTN4 


LD 


LI 


*-* 


GET WORD TO MOVE 


81421860 


130B 





F28D 






EOR 


2 


TERM-TB 


IS IT END OF MSG 


81421870 


13 0C 


1 


4C18 


1313 




BZ 




ERTN5 


BR YES 


81421880 


130E 





F28D 






EOR 


2 


TERM-TB 


RESTORE DATA WORD 


81421890 


130F 


1 


D500 


12A5 




STO 


LI 


ERMSG+3 


STORE IN TABLE 


81421900 


1311 





7101 






MDX 


1 


1 


COUNT 


81421910 


1312 





70F6 




« 


MD X 




ERTN4 


LOOP 


81 421920 
81421930 


1313 


1 


7500 


12A5 


ERTN5 


MD X 


LI 


ERMSG+3 


POINT TO NEXT WORD 


81421940 


1315 





1000 






NOP 








81421950 


1316 





7009 






MD X 




ERTN7 




81421960 
81421970 


1317 





C301 




ERTN6 


LD 


3 


1 


GET MSG NUMBER 


81421980 


1318 





42F2 






BSI 


2 


TCVBE-TB 


CONVERT TO 43 CODE 


81421990 


1319 





D08B 






STO 




ERMSG+3 


STORE 


81422000 


131 A 





18D0 






XCH 






SWAP A-Q 


81422010 


131B 





D08A 






STO 




ERMSG+4 




81422020 


131C 





10 10 






SLA 




16 


SET IN TWO BLANKS 


81422030 


131D 





D089 






STO 




ERMSG+5 


** 


81422040 


131E 


1 


65 00 


12A8 


* 


LDX 


LI 


PRINT 


SET POINTER 


81422050 
81422060 


1320 





C2D2 




ERTN7 


LD 


2 


D VADR-Tri 


GET DEVICE ADDRESS 


81422070 


1321 





42F2 






BSI 


2 


TCVBE-TB 


CONVERT TO 43 CODE 


81422080 


1322 





1090 






SLT 




16 


LOW ORDER TWO BYTES ONLY 


81422090 


1323 





D260 






STO 


2 


UNADR+3-TB 


STORE FOR PRINT 


81422100 


1324 





C2E0 






LD 


2 


EROUT-TB 


GET CALLING ADDRESS 


81422 1 10 


132b 





9297 






S 


2 


Kl-TB 


POINT TO CALLING INSTRUCTN 


814221 20 


1326 





42F2 






BSI 


2 


TCVBE-TB 


CONVERT TO HEX 


814221 30 


1327 





0264 






STO 


2 


UNAD R+7-TB 




81422140 


1328 





109 






SLT 




16 




81422150 


1329 





D265 






STO 


2 


UNA0R+8-TB 




81422160 


132A 





6904 






STX 


1 


ERTN8+3 


SAVE REG IN INSTRUCTION 


814221 70 


132B 





6100 




* 


LDX 


1 





SET COUNT 


81422180 
81422190 


132C 


1 


C500 


08DC 


ERTN8 


LD 


LI 


UNADR 


GET WORD TO MOVE 


81422200 


132E 





D500 


0000 




STO 


LI 


*-* 


STORE IN NEW LOC'N 


81422210 


1330 





F28D 






EOR 


2 


TERM-TB 


TEST FOR END OF MSG 


81422220 


1331 


1 


4C18 


1335 




bZ 




ERTN9 


BR IF YES 


81422230 


1333 





7 101 






I'D X 


1 


1 


BUMP COUNT 


81422240 


1334 





7 OF 7 




* 


MD X 




ERTNB 


LOOP 


81422250 
81 422260 


133b 





42FE 




ERTN9 


BSI 


2 


TLGMS-TB 


GO PRINT MSG 


81422270 


1336 


1 


1 2A2 






DC 




ERMSG 


ADDRESS OF MESSAGE 


81422280 










* 


— CAW-- 


ADDRESS 


OF CCW CHAIN 


81422290 


1337 





C300 




EMTIO 


LD 


3 





GET TAGS 


81422300 


1338 





100D 






SLA 




OECAW 


TEST FOR CAW, CSW, SNS 


81422310 


1339 


1 


4C18 


13AC 




bZ 




ERT15 


BR IF NONE 


81422320 


133B 


1 


6500 


12A8 




LI) X 


LI 


PRINT 


SET POINTER TO AREA 


81422330 


133D 


1 


4C10 


1349 




BNN 




ERT1 1 


BR IF NO CAW 


81422340 


133F 





10AO 






SLT 




32 




81422350 


1340 





U900 






STD 


1 







81422360 


1341 





7102 






MDX 


1 


2 




81422370 


1342 


o 


CACB 






LDD 


2 


PCAW-TB 


GET HEADER 


81422380 


1343 





D900 






STD 


1 





STORE IN AREA 


81422390 


1344 





C2C3 






LD 


2 


CAWSV-TB 


GET CCW ADDRESS FOR SIO 


81422400 


1345 





42F2 






BSI 


2 


TCVBE-TB 


CONVERT TO EBC 


81422410 


1346 





D902 






STD 


1 


2 


STORE IN AREA 


81422420 


1347 





7104 






MD X 


1 


4 


BUMP POINTER 


81422430 


1348 





1000 






NOP 








81422440 










* 


CS 


W 


CHANNEL DSW WORDS 


81422450 



1349 
134A 
134B 1 
1340 
134E 
1350 
13bl 
13b2 
1353 

1354 

1355 

1356 O 

1357 

1358 

1359 
13bA 
13bB 
13bC 
135D 
13bE O 
13 5F 
1360 
1361 
1362 
1363 
13 64 
136b 
13 66 
1367 
13 68 
13 69 
13 6A 
136B 
13 6C 



136D 

13 6E 

136F 

1370 

13 7 1 

1372 

1373 
13 74 



13 75 
1376 



1378 



C300 
100E 
4C10 
C300 
6700 
I8 0C 
100C 
4830 
7304 
1001 
4830 
7304 
1001 
4830 
7304 
1001 
4830 
7304 
CACD 
D902 
C300 
42F2 
D904 
C301 
42 F 2 
1 07 
1090 
D108 
C302 
42F2 
D90A 
C303 
42F2 
D10D 
1090 
D10E 
C2D 1 
D100 
D101 
D106 
D109 
D10C 
D10F 
Dill 
710F 
100O 
678 I 



!37B 



137B C300 
13 7C 
137D 1 
13 7F 




o 



10 OF 

4C10 13A5 



1380 
1381 
1382 

1383 O 

1384 
13 85 O 



CACF 
01 
1090 
l> 1 1 
7103 
100 
C29D 



13B6 O D0A8 
1387 CA15 



1388 





18DC 


1389 





DAC5 


138A 


o 


108C 


138B 





10 10 


13 8C 





1081 



138D 1003 
1 3-WE 108 1 



ERT11 LD 
SLA 

BNN 
LD 
LDX 
SRA 
SLA 
SKP 
MDX 
SLA 
SKP 
MD X 
SLA 
SKP 
MDX 
SLA 
SKP 
MDX 
LDD 
STD 
LD 
BSI 
STD 
LD 
BSI 
STO 
SLT 
STO 
LD 
BSI 
STD 
LD 
BSI 
STO 
SLT 
STO 
LD 
STO 
STO 
STO 
STO 
STO 
STO 
STO 
MDX 
NOP 
LD X 
* — SNS 
ERT12 LD 

SLA 
BNN 
LDD 
STO 
SLT 
STO 
MD X 
NOP 
LD 
STO 
LDD 
* 

ERT13 RTF 
STD 
SLT 
SLA 
SLT 
SLA 
SLT 



3 O 

OECSW 

ERT12 
3 
L3 SCSXO 

12 

12 

Z- 
3 4 

1 

Z- 
3 4 

1 

Z- 
3 4 



Z- 

4 

PCSW-TB 

2 



TCVBE-TB 

4 

1 

2 TCVBE-TB 
1 7 

16 
1 8 

3 2 



2 TCVBE-TB 



1 



1 

3 

TCVBE-TB 

13 

16 

14 

SPACE-TB 



1 

6 

9 

12 

1 5 

17 

15 



13 EROUT 

GET 231 


OESNS 
ERT14 
PSNS-TB 

16 



3 



1 1 

1 3 

2 K8-TB 
ERTN8+3 

2 SNWDS-TB 

28 
2 ERTSV-TB 
12 

16 

I 

3 

1 



GET TAGS 

TEST FOR CSW TO BE PRINTt 

BR IF NOT 
GET OPTION WORD 
POINT TO CSW SAVE AREA O 
SAVE BITS 0-3 
*** 

BUMP TO NEXT SAVE AREA 
TEST NEXT BIT 

BUMP TO NEXT SAVE AREA 
TEST NEXT BIT 

BUMP TO NEXT SAVE AREA 
TEST NEXT BIT 

bUMP TO NEXT SAVE AREA 

GET 'CSW ' 

SET IN MSG 

GET CHANNEL STATUS WORD 

CONVERT 

STORE 

GET UNIT STATUS WORD 

CONVERT 

STORE 

STORE 

GET CSW ADDRESS WORD 

CONVERT 

STORE 

GET BYTE COUNT 

CONVERT 

STORE 

Q TO A 

STORE 

GET SPACES 



SET IN BETWEEN 
SET IN BETWEEN 
SET IN BETWEEN 

CLEAR NEXT SLOT TOO 
BUMP POINTER 

RESTORE REG 

SENSE INFORMATION 

GET TAGS 

TEST FOR SNS INFO 

BR IF NO 

GET HEADER WORDS 

STORE 

STORE 

BUMP POINTER 



SAVE TEMPORARILY 
GET SENSE INFO 



MOVE AROUND 
SAVE FOR LOOP 



81422460 
3 81422470 
81422480 
81 422490 
81422500 
81422510 
81422520 
81 422530 
81422540 
81422550 
81422560 
81422570 
81422580 
81422 59 
81422600 
81422610 
81422620 
81 422630 
81422640 
81 422650 
81422660 
81422670 
81422680 
81 422690 
81422700 
81422710 
81422720 
81 422730 
8 1422740 
81 422750 
81422760 
81422770 
81422780 
81422790 
81422800 
81 42281 
81422820 
81422830 
81422840 
81 422850 
81422860 
81 422870 
81422880 
81 422890 
81422900 

81 4229 10 
81422920 
81 422930 
81422940 
81422950 
81422960 
81 422970 
81422980 
81 422990 
81423000 
81 4230 10 
81423020 
81 423030 
81423040 
81423050 
81423060 
81423070 

814230 80 
81 423090 
81423100 
8 14231 10 
81423120 
81 4231 30 
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138F 
1390 
1391 
1392 
1393 
1394 
1395 
1396 
1397 
1398 
1399 
I39A 
1396 
139D 
139E 
139F 
13A0 
13A1 
13A2 
13A4 



O 1003 

p loei 

O 1003 
1081 

42F2 
O100 
1090 
&1&1 
7102 
1000 
C095 
8297 

1 4C04 13A1 
C2D1 

0100 

7101 

1000 

CAC5 

74FF 132F 

70E3 



13A5 C28D 

13A6 D100 

13A7 O 42FE 

13A8 1 12A6 

13A9. '0 C20 7 

13AA 1 4C20 13B9 

13AC O C300 

13AD 1009 

13AE 1 4C28 13B1 

13B0 42F8 

13B1 C300 

13b2 1006 

13B3 6500 0000 

13B5 6700 0000 

13B7 1 4CA8 13BD 

13B9 1 7402 085F 

13BB 1 4C80 085F 

13BD 0000 



13BE 

13BE O C2D3 

13BF 1 4C18 13C3 

13C1 42EF 

13C2 70FB 

13C3 C2FE 

13C4 O D2D3 

13C5 1 D400 14AF 

13C7 1 6F00 14A9 

13C9 1 6D00 14AB 

13CB C283 

13CC 100D 

13CD 1 4C28 14A6 

13CF C294 



SLA 

SLT 

SLA 

SLT 

BSI 

STO 

SLT 

STO 

MDX 

NOP 

LD 

A 

BOD 

LD 

STO 

MDX 

NOP 

LDD 

MDX 

MDX 



3 

I 

3 

I 
2 TCVBE-TB 
1 O 

16 
1 I 

1 2 

ERTN8+3 

2 Kl-TB 
»+4 

2 SPACE- TB 
1 O 
1 1 



CONVERT TO HEX 

STORE IN TBLE 

Q TO A 

STORE 

BUMP POINTER 

FETCH COUNTER 

ADO ONE 

BRANCH IF ODD 

FETCH SPACE CHARACTERS 

PLACE IN PRINT LINE 

ADVANCE PRINT LINE POINTER 



2 ERTSV-TB GET SENSE INFO BACK 

L ERTN8+3.-1 COUNT 



ERT13 



2 TERM-TB 

1 

2 TLGMS-TB 
PRINT 

2 STKSW-TB 
ERT18 

3 O 
OEBYP 
ERT16 

2 THALT-TB 

3 
OEXIT 



LOOP UNTIL FINISHED 

SET /FFFF AT END 
** 
PRINT MESSAGE 

GET SWITCH 
EXIT IF SET 

GET TAGS 

BR IF NOT HALT 
WAIT FOR OPERATOR 

GET TAGS 

TEST FOR OTHER EXIT 

RELOAD REGS 

*** 

BR IF YES 

BUMP RETURN BY TWO 

EXIT 

RETURN ADDRESS PUT HERE 



ERT14 LD 
STO 
BSI 
DC 

LD 

BNZ 
* 
ERT15 LD 

SLA 

BN 

BSI 
* 
ERT16 LD 

SLA 
ERT17 LDX LI *-* 

LDX L3 *-* 

BN I ERADR 
* 
ERT18 MDX L EROUTi2 

BSC I EHOUT 
ERADR DC *-* 
*************************************************** 

* * 
*************************************************** 
*************************************************** 

* * 
*************************************************** 



*************************************************** 
* * 

*************************************************** 

ENTRY POINT 
GET LOG BUSY SW 
BR IF NOT BUSY 

GO VISIT MONITOR 
ELSE LOOP 

GET CALLING ADDRS 

SET LOG BUSY SW 

SET RETURN ADDRS 

SAVE REG 

SAVE REG 

GET OPTION SWS 



TLGME 


EQU 




* 




LD 


2 


LGBSY-TB 




BZ 




TLGNB 




BSI 


2 


STMLS-TB 


* 
TLGNB 


B 




TLGME 


LD 


2 


TLGMS-TB 




STO 


2 


LGBSY-TB 




STO 


L 


LEXIT+1 




STX 


L3 


TLGX3+1 




STX 


LI 


TLGX3+3 




LD 


2 


TSWO-TB 




SLA 




OBYPR 




BN 




TLGEN 




LD 


2 


TLGED-TB 



BR IF BYPASS PRNTOUT 
GET EDIT FOR PRINTER 
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81423140 

8 14231 SO 
81 4231 6ft 
81423170 
81423180 
81423190 
81 4232 OO 
8142321ft 
8142 3220 
81423230 
81423240 
81423250 
81423260 
81423270 

814232 80 
814232 90 
81423300 
81423310 
8142 3320 
81423330 
81423340 
81423350 
81423360 
81423370 
81423380 
81423390 
81423400 
81423410 
81423420 
81423430 
81423440 
81423450 
81 423460 
81423470 
81423480 
81423490 
81423500 
81423510 
81423520 
81423530 
81423540 
81423550 
81423560 
81423570 
81423580 
81423590 
81423600 
81423610 
81423620 
81423630 
81 423640 
81423650 
81423660 
81423670 
81423680 
81423690 
81423700 
81423710 
81423720 
81423730 
81423740 
81423750 
81423760 
81423770 
81423780 
81423790 
81423800 
81423810 
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13D0 1 4C10 13D3 
13D2 O 7 OFF 



13D3 C295 

13D4 I 4C1& 13E2 

I3D6 1010 

V I3D7 1 D400 14B0 

13D9 C2A0 

13DA D223 

13DB O 42EF 

I3DC 1 74FF 08A2 

13DE O 70FC 

13DF O 42E3 

13E0 1 6C00 14B0 



13E2 





4480 


0131 


13E4 


1 


13F9 




13bb 


1 


0813 




13E6 


1 


146D 




1JE7 


1 


080C 




lata 





C2DC 




13E9 


1 


4C04 


13F0 



13EB C2AE 

13LC 1 ECOO 146D 

13EE D246 

13tF 7003 



13F0 





C2B1 


13F1 





E87B 


13F2 





D246 


13F3 





C2B2 


13F4 





E878 


13F5 





D248 


13F6 





EA97 


13F7 





D24C 


13F8 





7002 


13F9 





42EF 


13FA 





7 0E7 



13FB 1 6580 14AF 

13FD C100 

13FE D001 

13FF O 6500 0000 

1401 1 6D00 14B3 

1403 1 6780 08C4 

140b 6B16 

1406 C100 

1407 F28D 

1408 1 4C18 140E 

140A C280 

140B O E2B9 

140C 42F2 

140D DB02 



BNN TLGOI BR IF NOT SELECTED 

*******»«#*« *************************************** 
MDX *-j TRAP STOP 

* RELEASE SC IN CASE SHARED CHANNEL 

TLGOI LD 2 TSCED-TB GET DDEF 

BNN TL&02 BR IF NOT SEL 



TLG02 



SLA 

STO 

LD 

STO 

BSI 

MDX 

MDX 

BSI 
STX 

bSi 

DC 

DC 

DC 
UC 

LD 
BOO 

LD 
OR 
STU 
MD X 



TLG40 LD 
OK 
STO 

TLGCM LD 
OR 
STO 
OK 
STO 
MDX 

* 

TLG03 bSI 
MD X 

* 

TL&04 LDX 
LD 
STO 
LDX 
STX 
LDX 
STX 



16 

FRESW 
K20.-T8 
SCSNt-TB 
STMLS-TB 
SCSN1 ,-1 
*— 4 



FRED V- 

FRESW 

REQD V 

TLG03 

TLGED 

TLGD A 

TERM 

T45SW- 
TLG40 



TB 



CLEAR CHANNEL FREED SW 
* 

SET COUNTER FOR DELAY 
** 

GO TO MONITOR 
DECR. COUNTER 
LOOP UNTIL FINISHED 

FREE SEL CHNL 

SET SC FREED SW 
REQUEST DEVICE 
BUSY RETURN 
ED IT FOR PRINTED 
AREA CODE GIVEN BACK 
TERMINATOR 

GET 43/53 SW 
BR IF 43 



2 H0100-TB 
L TLGDA 
2 TLGWR+1-TB 
TLGCM 



ELSE BUILD WRITE IOCC 



GO TO COMMON ROUTINE 



2 H0500-TB CREATE WRITE IOCC 

TLGDA OR IN AREA CODE 

2 TLGWR+1-TB 

2 H0700-TB CREATE SENSE IOCC 

TLGDA OR IN AREA CODE 

2 TLGSN+1-TB 

2 Kl-TB SET RESET BIT 

2 TLGSR+1-TB *** 

TLG04 GO TO PRINT 



2 STMLS-TB 
TLG02 



II LEXIT+1 



1 





*+l 
LI *-* 
LI TLGCH+2 
13 TLGWR 
3 TLGbP+1 



LD 1 

EOR 2 TERM-Tb 

BZ TLG05 

LD 2 TPID-TB 

AND 2 H7FFF-TB 

BSI 2 TCVBE-TB 

STO 3 2 



GO TO MONITOR 
LOOP TO TRY AGAIN 

GET CALLING RTN ADDK 
GET MSG ADDRESS 
SET FOR LOAD INDEX 
LOAD REG 
SAVE IN 'GET CHAR" RTN 
GET WRD COUNT ADDRESS 
SET FOR BUMPING 

GET FIRST DATA OKD 
COMPARE WITH /FFFF 
BR IF YES 

GET PID 

DROP SELECT BIT 
CONVERT TO 1443 CODE 
SET IN MSG 



140E 





1010 


TLG05 


SLA 




140F 





D24A 




STO 


2 


1410 





D2 4B 




STO 


2 


1411 





D05A 




STO 




1412 





C299 




LD 


2 


1413 





U300 




STO 


3 



16 CLEAR 1ST/2ND CHAR SWITCH 

TLGSW-TB *** 

TLGSW+1-TB 

TLGIS CLEAR INT. SW 

K3-TB ** 
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81423820 
81423830 

81423840 

81423850. 

81423860 

81423870 

81423880 

81423890 

8142 3900 

8142 3910 

81423920 

8142 3930 

8142 394& 

81 423950 

81423960 

81 423970 

81423980 

81 423990 

81424000 

81424010 

81424020 

81 424030 

81424040 

81424050 

8H?'r060 

81424070 

81 424080 

81424090 

81424100 

81 42 4 1 10 

81424120 

81 4241 30 

81424140 

81424150 

81424160 

81424170 

81424180 

81 424190 

81424200 

81424210 

81424220 

81424230 

81424240 

81424250 

81424260 

81424270 

81424280 

81424290 

81424300 

81424310 

81424320 

81424330 

81424340 

81 424350 

81424360 

81 424370 

81424380 

81424390 

81424400 

81424410 

81424420 

81424430 

81424440 

81424450 

81424460 

81 424470 

81424480 

81424490 
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14 14 7301 



1415 
1*17 
1418 
1419 
141A 
14 IB 
141D 
141F 
1420 
1421 
1422 
1423 
1424 
1425 
1426 



4400 14B1 

700F 

1008 

EA47 

D303 

7401 0000 

4400 14B1 

7007 

1888 

C303 

1808 

1088 

D303 

730 1 

7 0EE 



1427 C2DC 

1428 1 4C04 1454 

142A C24B 

142B 1 4C18 142F 

142D C2BC 

142E D303 



142F 
1430 
1431 



1435 
1436 



C2AD 

EB03 

D303 

1432 1 6500 14CF 
1434 6936 

1010 

D24A 



1437 O C032 

1438 1 D400 14CE 
143A 7023 

143B 1 6580 146B 

143D C24A 

143E 1 4C18 1447 



1440 





1010 


1441 





D24A 


1442 





C100 


1443 





1008 


1444 





7101 


1445 





6925 


1446 





7005 



1447 C100 

1448 1808 

1449 1008 
144A 1 6C00 08C9 

144C 92BC 

144D 1 4C18 1490 

144F 82BC 

1450 1808 

1451 1 4400 1599 
1453 D07A 



MDX 

* 

TLG06 bSI 
MDX 
SLA 
OR 
STO 

TLGBP MDX 
BSI 
MDX 
SRT 
LD 
SRA 
SLT 
STO 
MDX 
MD X 



3 1 BUMP TO PT TO BUFFER 

. TLGCH GET A CHARACTER 

TLG07 COME HERE FOR HEX FF 

8 PUT IN HJGH ORDER BYTE 
TLGSP-TB SET LOW ORDER TO SP 

3 STORE IN BUFFER 

t-*.l BUMP WORD COUNT 

TLGCH GET ANOTHER CHARACTRR 
TLG07 IF CHARACTER IS HEX FF 

8 CHARACTER TO Q 

3 3 GET LAST CHARACTER 

8 BYTE TO LOW POSITION 

8 COMBINED BYTES IN A 

3 3 STORE IN BUFFER 

3 1 BUMP SINK 

TLG06 LOOP UNTIL HEX FF 



2 
3 

L 

L 



TES 

IF 



T FOR 1443. IF YES GO TO XIO 
1053 DO A CARRIAGE RETURN 



TLG07 LD 
BOD 



LD 
BZ 
LD 
STO 



2 T45SW-TB GET 43/53 SW 

TLG42 BR IF 1443 
PUT TERMINATOR IN MESSAGE 

2 TL6SW+1-TB GET 1ST/2ND CHAR SW 

TLG08 BR IF 2ND CHAR 

2 HFFOO-TB ELSE GET TERM 

3 3 PUT IN MESSAGE 



TLG08 LD 
OR 
STO 
LDX 
STX 
SLA 
STO 

* STAR 
LD 
STO 
MDX 

* COME 
TLGPR LDX 

LD 
BZ 
* 

SLA 

STO 

LD 

SLA 

MDX 

STX 

MDX 

* GET 
TLG09 LD 

SRA 
SLA 
STX 

* GET 
S 
BZ 



2 HOOFF-TB 

3 3 
3 3 

LI TLGBA+1 

1 TLGSV 
16 

2 TLGSW-TB 

r LINE WITH A 

TLGCR 

L TLGBA 

TLG43 

FROM INTERRU 

II TLGSV 

2 TLGSW-TB 

TLG09 



16 

TLGSW-TB 



8 

1 

TLGSV 

TLG10 



GET TERMINATOR 
PUT IN MESSAGE 

SET UP BUFFER POINTER 
SAVE 
CLEAR - 
* 2ND CHAR SW 
**CARRIAGE RETURN** 
GET CR CHARACTER 
PUT IN OUTPUT AREA 
GO PRINT 
PT ROUTINE IF 1053 
RESTORE POINTER 
GET 2ND CHAR SW 
BR IF (CHAR 1) 

ELSE RESET SW 

GET CHARACTERS 

SAVE 2ND CHAR 

BUMP POINTER 

SAVE 

GO TO COMMON RTN 



TLG10 



HERE IF PRINTING CHAR 1 

1 GET CHARACTERS 
8 * 

8 * 

L TLGSW SET 2ND CHAR SW 

HERE IF PRINTING CHARACTER 2 

2 HFFOO-TB TEST FOR END O' 
TLGX2 BR IF YES 



A 2 HFFOO-TB 
SRA 8 

BSI L TCV45 
STO TLGBA 



ELSE RESTORE CHARACTER 
RIGHT JUSTIFY CHAR 
CONVERT TO 1816 CODE 
PUT IN OUTPUT AREA 



DO XIO WRITE - 

PRINT A LINE (1443) 
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81424500 
B1424510 
81424520 
81424530 
81424 54 
81424 550 
81424560 
81424570 
81424580 
81424590 
81424600 
81424610 
81424620 
81424630 
81424640 
81424650 
81424660 
81424670 
81424680 
81424690 
81424700 
81424710 
81424720 
81424730 
81 424740 
81424750 
81 424760 
81424770 
81 424780 
81424790 
81424800 
81424810 
81 424820 
81424830 
HI 424840 
81424850 
81 424860 
81424870 
81424880 
81424890 
81424900 
81424910 
81 424920 
81424930 
81 424940 
81424950 
81 424960 
81424970 
81 424980 
81424990 
81 425000 
81425010 
81 425020 
8 142 50 30 
81 425040 
814250b0 
81 425060 
814P5Q70 
81425080 
3 142 50 90 
81 425100 
814251 10 
81425120 
8 142 51 30 
81425140 
814251 50 
81 425160 
81425170 
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' 


KK 1 


NI A CHAR, 


HCTER C1053) 


8I4251H0 






* 








81425190 


1454 0A47 




TLG42 XIO 


2 


TLGSN-TB 


SENSE DSW 


81425200 


1455 18D0 




RTE 




16 


A TO Q 


81 425210 


1456 C2DC 




LD 


2 


T45SW-TB 




81425220 


. 1457 4804 




SKP 




E 


SKP IF 53 


81425230 


1458 108A 




SLT 




TO 


SHIFT 31 FOR 43 


81425240 


1459 1095 




SLT 




21 


SLT 21 FOR 1053/1826 


81425250 


145A 1 4C1Q 


145E 


BNN 




TLG43 


BR IF READY 


8142 52 60 


145C 42EF 




BSI 


2 


STMLS-TB 


GO TO MONITOR 


81425270 


145D 70F6 




MDX 
* 




TLG42 


LOOP UNTIL READY 


81425280 
81425290 


I45E 0A45 




TLG43 XIO 


2 


TLGWR-TB 




8 142 5300 


145F 680C 




STX 




TLGIS 


SET INT SW 


81 425310 


1460 C28D 




LD 


2 


TERM-TB 


GET /FFFF 


8 1425320 


1461 D249 




STG 


2 


TL6CT-TB 


SET LOOP COUNT 


81 425330 
8 142 5340 


1462 42EF 




TLG11 BSI 


2 


STMLS-TB 


GO TO MONITOR 


81 425350 


1463 C008 




LD 




TLGIS 


TEST FOR INT 


8 1 425360 


14 64 1 4C18 


1 48C 


BZ 




TLGXR 


BR IF IT HAPPENED 


8 1 42 53 7 


1466 1 74FF 


08C8 


MD X 


L 


TLGCT.-l 


DECR COUNT 


8 1425380 


1468 70F9 




MD X 




TLG1 1 


LOOP 


81 425390 






* * * * * * * * * * 


* * * 


********** 


I* ************** * * * * * * * * * * * * * 


8 14 2 540 


14 69 7 OFF 




MD X 




*-l 


TRAP STOP 


8 1 42 54 10 






* * * * * * * * * * : 


* * * 


********** 


<**************************** 


81425420 






* 








81 425430 






**********: 




******* ******************************* 


81425440 






*"■ 






* 


81425450 






**********: 


* * * 


********** 


:**************************** 


8 142 5460 






f 








81 425470 






* PRINT INTERRUPT ROUTINE 


81425480 






* 








81 425490 


146A 8100 




TLGCR DC 




/8100 


CARRI AGE*RETURN 


81425500 


1466 0000 




TLGSV DC 




*-* 


SAVE BUFFER POINTER 


81425510 


146C 0000 




TLGIS DC 







INT SW 


81425520 


146D 0000 




TLGD A DC 




*-* 


AREA CODE PUT HERE BY MON 


81425530 


146E 0000 




TLGIN DC 




*-* 


INTERRUPT ENTRY POINT 


81425540 


14 6F 1 6E00 


1489 


STX 


L2 


TLG13f,3 


SAVE X2 


81 425550 


1471 1 6600 


087F 


LDX 


L2 


TB 


SET X2 


81425560 


1473 C0F8 




LD 




TLGIS 


GET INT SWITCH 


8 1 42 55 7 


1474 4818 




SKP 




+- 


SKIP IF NONZERO 


8 1425580 






*********** 


'*** 


********** 


**************** * * * * * * * * * * * ... 


8142 5b90 


14 75 70FF 




MDX 




*-l 


TRAP STOP 


81425600 






******** ** s 


'*** 


******** * * 


**************************** 


8 1 42 5610 






* 








8 1425620 


1476 1 OCOO 


08CA 


XIO 


L 


TLGSR 


SENSE RESET D SW 


81 425630 


1478 1 4C28 


147E 


BN 




TLG12 


bR IF XFER COMPLETE 


81425640 


147A 1002 




SLA 




2 


TEST FOR PRINT COMPLETE 


81425b50 


147B 1 4C28 


1486 


bN 




TLG13 


BR IF YES 


81425660 






*********** 


!**=; 


=********* 


**************************** 


81 425670 


147D 70FF 




MDX 




*-I 


TRAP STOP 


81425680 






^ ''"'"""''"""'" '"^ 


^ '' 


= ********* 


**************************** 


81 425690 
81425700 


14 7E 18D0 




TLG12 RTE 




16 


SAVE DSW 


81 42571 


14 7F C2DC 




LD 


2 


T45SW-TH 


GET 43/53 SW 


8 1 425720 


1480 F297 




EOR 


2 


Kl-TB 


TEST FOR 1443 


81 425730 


1481 1 4C20 


1486 


BNZ 




TLG13 


BR IF 1053 


81425740 


1483 1092 




SLT 




18 


GET DSW (PRINT COMPL) 


81 425750 


1484 1 4C10 


1488 


BNN 




TLG13+2 




81425760 
81425770 


1486 1010 




TLG13 SLA 




16 




8 1425780 


1487 D0E4 




STO 




TLGIS 


CLEAR INT SWITCH 


81 425790 


1488 6600 


0000 


LDX 


L2 


*-* 


RESET X2 


81425800 


148A 1 4C80 


146E 


BSC 


I 


TLGIN 


EXIT INT ROUTINE 


81 42581 
8 1425820 






* 


*** 




**************************** 


81425830 
8 1425840 






*********** 




********* 


**************************** 


81 425850 



DATE 
EC NO. 



14N0V69 
431319 



30JAN70 
431319A 



15SEP71 
431328 



PROG 
PAGE 



0814-0 
19 



DATE 
EC NO. 



14N0V69 
4313 19 



30JAN70 
431319A 



1 5SEP71 
43132 8 
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# 










81425860 










* 


MONITOR 


COMES HERE FROM INT RTN 


81425870 










* 










81425880 


148C 





C041 




TLGXR 


LD 




TLGBA 


GET WORD COUNT 


81425H90 


148D 





1808 






SRA 




8 


TEST FOR 1053 CHAR 


81425900 


148E 


1 


4C20 


143B 


* 


bNZ 




TLGPR 


BR IF 1053 


81425910 
81425920 


1490 


1 


6780 


08C4 


TLGX2 


LDX 


13 


TLGWR 


GET BUFFER ADDRESS 


81425930 


1492 





6B89 






STX 


3 


TLGBP+1 


SET PTR TO WORD COUNT 


81425940 


1493 





C299 






LD 


2 


K3-TB 


SET WRD CNT=3 


81425950 


1494 





D300 






STO 


3 





*** 


81425960 


1495 





730 1 






MO X 


3 


1 


BUMP POINTER 


81425970 


14 96 





10A0 






SLT 




32 


SET PIO=BLANKS IN MESSAGE 


81425980 


1497 





DBO 1 






STD 


3 


1 


* 


81425990 


1498 





D24A 






STO 


2 


TLGSW-TB 


CLEAR 2ND CHAR SW 


81426000 


1499 





40 17 






BSI 




TLGCH 


GET A CHARACTER 


81426010 


149A 





7002 






MDX 




TLG15 


HERE IF HEX /OOFF 


81426020 


149B 


1 


4C00 


1418 


o. 


BSC 


L 


TLG06&3 


ELSE LOOP 


8 142 60 30 
81426040 


149D 





4480 


0132 


TLG15 


BSI 


I 


RELDV 


GO RELEASE DEVICE 


81426050 


149F 


1 


0813 






DC 




TLGED 


ADD RS OF EO IT WRD 


81426060 


14A0 


1 


080C 






DC 




TERM 




81426070 


14A1 





COOE 






LD 




FRESW 


GET CHNL RELS SW 


81426080 


14A2 





4820 






BSC 




Z 


SKIP IF NOT SET 


81426090 


14A3 





42E6 




* 


BSI 


2 


GETD V-TB 


ELSE GET CHNL 


81426100 
814261 10 


14A4 





1010 






SLA 




16 


RESET- 


81 426120 


14AS 





DOOA 




* 


STO 




FRESW 


* CHNL RELS SW 


81426130 
81 426140 


14A6 


1 


740 1 


14AF 


TLGEN 


MDX 


L 


LEXIT+1 . ) 


I BUMP RETURN BY 1 


81426150 


14A8 





6700 


0000 


TLGX3 


LD X 


L3 


*-* 


RESTORE REG 


81426160 


14AA 





6500 


0000 




LDX 


LI 


*-* 


RESTORE REG 


814261 70 


14 AC 





1010 






SLA 




16 


RESET LOG BUSY SW 


81426180 


14A0 





D2D3 






STO 


2 


LGBSY-TB 


* 


81426190 


14AE 





4C00 


0000 


LEXIT 
* 


BSC 


L 


* — * 


EXIT PRINT RTN 


81426200 
81426210 


14t)0 





0000 




FRESW 


DC 







CHNL RELEASED SW 


81 426220 










********** 


********************************** ****** 


* 81426230 










* 










* 81426240 










******************************************* *** **** 


* 8142 62 50 










* 










81426260 










* 


FETCH ONE CHARACTER FROM SOURCE MESSAGE 


81426270 










* 










81426280 


14B1 





0000 




TLGCH 


DC 




*-* 


ENTRY POINT 


81426290 


14B2 





6500 


0000 




LDX 


LI 


*-* 


SET UP POINTER 


81426300 


14B4 





C24B 






LD 


2 


TLGSW+1- 


TB GET 1/2 CHARACTER SW 


81426310 


14B5 


1 


4C20 


14HC 




BNZ 




TLG16 


BR IF SET 


81 426320 


14B7 


1 


6C00 


08CA 




STX 


L 


TL6SW+1 


SET SW 


8142 6330 


14B9 





C100 






LD 


1 





GET TWO CHARACTERS 


81 426340 


14BA 





1808 






SRA 




8 


KEEP HIGH ORDER ONE 


H1426350 


14BB 





7007 




* 


MDX 




TLG17 


GO TO COMMON RTN 


81426360 
81426370 


14BC 





1010 




TLG16 


SLA 




16 


CLEAR 1ST/2ND CHAR SW 


81426380 


14BD 





D24B 






STO 


2 


TLGSW+1- 


TB * 


81426390 


14BE 





CI 00 






LD 


1 





GET TWO CHARACTERS 


81 426400 


14BF 





looa 






SLA 




8 


KEEP LOW ORDER ONE 


81426410 


14C0 





1808 






SRA 




8 


**** 


81426420 


14C1 





7101 






MDX 


1 


1 


BUMP SOURCE POINTER 


81426430 


14C2 





69F0 




* 


STX 


1 


TLGCH+2 


SAVE 


81426440 
81426450 


14C3 


1 


4C20 


14C6 


TLG17 


BNZ 




TLG16 


SET TO SPACE IF ZERO 


81426460 


I4Cb 





C247 






LD 


2 


TLGSP-TB 


*** 


8 142 64 70 


14C6 





F2AD 




TLG18 


EOR 


2 


HOOFF-TB 


TEST FOR HEX FF 


81426480 


14C7 


1 


4C98 


14B1 




BZ 


I 


TLGCH 


EXIT IF HEX FF 


8 142 64 90 


14C9 





F2Al> 






EOR 


2 


HOOFF-TB 


RE-INVERT IT 


81426500 


14CA 


1 


74al 


14B1 




MDX 


L 


TLGCH, 1 


BUMP RETURN ADDRESS 


81426510 


14CC 


I 


4CBO 


14B1 


• 


BSC 


I 


TLGCH 


EXIT THIS RTN 


81426520 
8 142 6530 
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14CE 0000 

14CE 0000 

14CF 0003 

14D2 0041 



00 14 



1527 18D0 

1528 400E 

1529 O 1008 
152A D2C1 
152B 400B 
152C hACl 
152D D2C1 



152E 4008 

152F O 1008 

1530 O D2C2 

1531 4005 

1532 EAC2 

1533 1890 

1534 C2C1 

1535 1 4C80 0871 



1537 





0000 


1538 





1010 


1539 





1084 


153A 


1 


4C20 


153C 





C2A6 


153D 


1 


4C80 


153F 





929E 


1540 





4830 


1541 





82AA 


1542 





829t: 



1543 1 4C80 1537 



1545 1 4CA8 0874 
1547 O 1890 



1548 AAA5 



BSS E 

TLGBA DC *-* WORD COUNT FOR PRNT LINE 

PRNT . XXXX. PID GOES HERE 

BSS 65 PRINT BUFFER 

V ^ V ~r n ; V •■;- '•' *.-- ',' -,-• \ : - ■■-■- V ■-.' ',- V -r V ; i~ V- J £ ^ *\ : - ■■■ V -i^- V -v *■- '* : 'i- V *r -r- -p"- ':' V *£■ "a : °?~ --=- -^ ~~< f - •r" -v- - : ^ ~r V ?r- '^ 

************ * ****** *** ****** ** ****************** ** * 

BSS 20 ADDITIONAL STORAGE 

************************************************ *** 

* * 
*************************************************** 

* 

* CONVERT HEX WORD TO 1443 CODE 

: .;: ;'/. 1;:. -\: * ;!; -',: * * X.. ;;; f.' ;£ Vc ::;; ;.;; :'-. ;;; * :;; :,; * ;,; ;J; :,: ;|; * ;|; * :]; :^c ;;; *;;:****** 



******* 



***************************** ** * * *** ** ******* 



TCVBN LOU 

* 

RTE 

BSI 

SLA 

STO 

BSI 

OR 

STO 



BSI 
SLA 
STO 
BSI 

OH 
SRT 

LI) 



16 

TCV01 

8 
2 TCVS1-TB 

TCV01 
2 TCVS1-TB 
2 TCVS1-TB 



TCV01 

8 
2 TCVS2-TB 

TCV01 
2 TCVS2-TB 

16 
2 TCVS1-TB 



ENTRY POINT 



GET NEXT CHARACTER 



GET NEXT CHARACTER 



GET NEXT CHARACTER 



GET NEXT CHARACTER 



BSC I TCVBE 



TCV01 DC 
SLA 
SLT 
BNZ 

LD 



*-* 
16 
4 

TCV02 
2 HOOOA-TB 



BSC I TCV01 



TCV02 S 

SKP 

A 
A 

BSC 



2 K9-TB 

Z- 
2 H0027-TB 
2 K9-TB 

I TCV01 



BR IF NOT ZERO 

0=/0A 
EXIT 

SUBTRACT 9 

ADD BACK A CONSTANT 

EXIT 



1 54 9 O 
154A O 



100C 
DOOD 



154B O 1004 



************************************ *************** 
********************************* ****************** 

* CONVERT HEX TO DECIMAL. A REG TO A REG 
* 

* *** CALL - BSI 2 TCVHJ-TB *** 
***************** ********************************** 

* * 
*************************************************** 
* 

THEXD BN 1 TCVFD EXIT IF NEG 
SRT 16 

D 2 K1000-TB MOST SIGNIFICANT DIGIT 

SLA 12 POSITION DIGIT 

STO THEXS 

SLA 4 CLEAR A REG 
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81426540 
81426550 
81426560 
81 426570 
81426580 
81426590 
81426600 
81426610 
81426620 
81426630 
81426640 
81 426650 
81426660 
81426670 
81426680 
81426690 
81426700 
81426710 
81426720 
81426730 
81426740 
81426750 
81426760 
81426770 
81426780 
81 426790 
81426800 
81 42681 
81426820 
81426830 
81426840 
81426850 
81426860 
81426870 
81426880 
81426890 
8 1 426900 
81426910 
8 1426920 
81426930 
81426940 
81426950 
8 1426960 
81426970 
8 1426980 
81 426990 
81427000 
81 4270 10 
81427020 
81427030 
81427040 
81 427050 
81427060 
81427070 
81427080 
81427090 
81427100 
814271 10 
81427120 
81427130 
81427140 
81427150 
81427160 
81427170 
81427180 
81427190 
81427200 
8 I 42 72 10 



DATE 
EC NO. 



14NOV69 3OJAN70 15SEP71 

431319 431319A 431328 



PROG ID 0814-0 

PAGE 2 a 



DATE 
EC NO. 



14NUV69 
431319 



30 JAN70 
431319A 



15SEP7I 
431328 



PROG 10 
PAGE 



0814-0 
2 0A 



O O 



o o o c 



<],<: (J (l (J (l C.l C) Ci Cl CI C 11 CI CI (1 Ci CI CI C CI C) C C C! CI CJ CI CI C c 
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154C AAA1 
154D 1008 
154E E809 
154F D008 
1550 1008 



1551 AA9F 

1552 108C 

1553 180C 

1554 1084 

1555 E802 

1556 1 4C80 0874 



1558 0000 



1559 C283 

155A 100C 

155B 1 4C28 156 1 

155D 1 7401 0880 

155F 1 4C80 0880 

1561 1 C480 0880 

1563 D001 

1564 4C00 0000 



NEXT SIGNIFICANT DIGIT 
POSITION DIGIT 



CLEAR A REG 

NEXT SIGNIFICANT DIGIT 
COMBINE LAST TWO DIGITS 

* * * 



TEMP STORAGE 

*************************************************: 
*****************************************: 

****************************************** 

*********************************** ******; 





D 


2 


Kl 00-TB 




SLA 




8 




OR 




THEXS 




STO 




THEXS 




SLA 




8 


* 










D 


2 


K10-TB 




SLT 




12 




SRA 




12 




SLT 




4 




OR 




THEXS 




BSC 


I 


TCVHD 


* 








THEXS 


DC 











* TERLP IS CALLED BY A **BS I 2 TLPER-TB** 

* TO TEST THE LOOP ERROR OPTION AND 

* BR TO THE LOOP ADO R IF BIT 12 IS SET 

********** **** *********** **** ********************* 
* 

"S- ''- 'j : V' ~''c- "A' '** ■'<- ^ '£ 'I' ~i- '^ '^ V- -s : ; >' V- H- V *,'- *r -/- ''• 'C : < : V -V '< = '/- ■■■■ 'f ■*'*■ *C '•' "'' "r ":' '•* 't- 'I ■ 'i' -i- ^ -"^ V 'i' "i 1 - V '< 



GET OPTION SWS 
TEST LOOP ON ERROR 
YES 

NO. BUMP RETURN 
CONT INUE 

GET LOOP ADDRESS 
PUT IN RETURN 
CONT INUE 



* TSTLP IS CALLED bY A **BSI 2 TLPST-TB** 

* TO TEST THE LOOP START I/O UPTIUN 

* AND BR TO THE LOOP ADD R IF BIT 

* 8 IS SET 



TERLP 


LD 


2 


TSWO-TB 




SLA 




OLPER 




BN 




TER01 




MD X 


L 


TLPER ,1 




BSC 


I 


TLPER 


TER01 


LD 


I 


TLPER 




STO 




TER02+1 


TER02 


BSC 


L 


*-* 



■ \ : ''■'■ '•'■ ; ! ; : 'f- ?fi ',' : r -i~ >'■• -! : ',' ">'- ■,' -<■ 'f- '•'.' '■■■■ ~'f- ~.~ -'•' ■■• ''*.'• '■' '£ ''<• 



* ;;; ^ ;|; ~-f ;;= ^ ;;; ;!; * if. >\ 






;c* * ^= # & * # ^ * # ;;: # # : 



1 566 





C283 




TSTLP 


LD 


2 


TSWO-TB 


1567 





10O8 






SLA 




OLPST 


1568 


1 


4C28 


I 56E 




BN 




TST01 


15 6A 


1 


7401 


0883 




MD X 


L 


TLPST,! 


15 6C 


1 


4C80 


0883 




BSC 


I 


TLPST 


156E 


1 


C480 


0883 


TST01 


LD 


I 


TLPST 


1570 





D001 






STO 




TST02+1 


1571 





4C00 


0000 


TST02 


bsc 


L 


* - * 


1573 


1 


74FD 


0883 


TST03 


MD X 


L 


TLPST,- 



GET OPTION SWS 
TEST LOOP SIO 
YES 

NO, BUMP RETURN 
CONTINUE 

GET LOOP ADDRESS 
PUT IN RETURN 
CONT INUE 



81427220 
81427230 
81 427240 
81427250 
81427260 
8 142 72 70 
8142 72 80 
81427290 
81427300 
81427310 
81427320 
8 1427330 
81427340 
81427350 
81427360 
81427370 
81427380 
81427390 
81 427400 
81427410 

* 81427420 

* 81427430 

* 8 142 744 

* 81427450 

* 8 1427460 

* 81427470 

* 81427480 

* 8 142 74 90 

* 8142 750 

* 8 1427510 

* 8142 752 
8142 7530 
81 427540 
81427550 
8 142 7560 
HI 42 75 70 
81427580 
8 142 7590 
81 427600 
8 142761 
81 427620 
8 142 7630 
81427640 

* 8 142 7650 

* 8 142 7660 

* 8 142 76 70 

* 8142 7680 

* 8 142 7690 

* 8 142 770 

* 8 142 7710 

* 8142 772 
8 142 7730 

* 8142 774 

* 81427750 

* 81427760 
8 142 7770 
81 427780 
81427790 
81 42 780 
8 1427810 
81427820 
81427830 
81 42 784 
81427850 
81427860 
8142 7870 
81427880 
81427890 
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1575 1 C400 0883 

1577 O D001 

1578 4C0Q 0000 



LD L TLPST 

STO TST04+1 
TST04 BSC L *-* 
*************************************************** 



********** 



************ 



************************ 



CALL 
GET AO 



BSI L TCVSR 
SPACE/SECT/SPACE/RTN 






=*************************: 



157A 0000 

157B 6B0A 

157C 1 6780 0815 

157E I C7O0 1589 

1580 1890 

1581 1 6780 0800 
1583 1 C700 1588 
1585 O 6700 0000 
1587 1 4C80 157A 



,**** *************** ******** ****************,» 

TCVSR DC *-* 



STX 3 TCVS2+I 

LD X 13 TRID 

LO L3 DIGIT 

SRT 16 

LDX 13 TSID 

LD L3 DI6IT-I 

TCVSZ LDX L3 *-* 

BSC I TCVSR 



SAVE REG 

GET ROUTINE NUMBER 

GT PRINTABLE CODE 

A TO i.) 

GET SECT NUMBER 

GET PRINTABLE CODE 

RESTORE REG 

EX IT 



1589 



0016 



DIGIT PRNT .0123456789A 



} C D E F . 



CONVERT 1443 CO)E TO 1816/1053 CODE 



1599 





0000 




TC V4 5 


DC 




*-* 


159A 





6B45 






STX 


3 


TCVSV+1 


159B 





D043 






STO 




TCVSV 


159C 


1 


67 


1 5B2 




LD X 


L3 


TCVTB 


15 9E 





10AO 






SLT 




32 


159F 





C3O0 




TCV03 


LD 


3 





15A0 





1HC8 






k T f : 




H 


15A1 





F03D 






[Ilk 




TCVSV 


15A2 


1 


4C18 


1 SAB 




bZ 




TCV04 


15A4 





1 088 






SLT 




6 


16A5 





E2AD 






AND 


2 


HOOFF-T 


15A6 





F2AD 






EUk 


2 


HOOFH-TI 


15A7 


1 


4C1H 


15AD 




[)/ 




TCVEN 


15A9 





730 1 






MD X 


3 


1 


15AA 





7 OF 4 




* 
TCV04 


MD X 




TCV03 


15AB 





18D0 




XCH 






15AC 





48 18 






SKP 




+ - 



15AD O C030 

15AE 1 6700 15EO 

15B0 1 4C80 1599 



15b2 313E 

lbtS3 321A 

15b4 33 1b 

15bb 3432 

15b6 O 3536 

15B7 O 36 12 

15B8 3716 

15B9 O 38 26 



TCVEN LD TCVSP 

LDX L3 TCVSV+1 
BSC I TCV45 






SAVI: 1443 CHAR 
SET UP POINTER 

CI.F-Ak AO 

PICK UP NI-XT ENTRY IN TBL 

DELETE TR CHAR 
TtSI CHAk 

CHAR COMPARES 



RESTORE O REG=0 
SET UP TO TEST 
: ; FOR TERMINATOR 
GO TO tNl ROUTINE 



INC POINTER 
RETURN TO LOOP 

RESTORE TR CHAR 
t X IT 

SLT UP SPACE 
Rf STORE XR3 
I. X I T 



TCVTh DC 

dc: 

DC 
DC 
DC 
DC 
DC 
DC 



; ** * ** * * 



/3 13L 
/321 A 
/331fc 
/3432 
/3S36 
/361 2 
/3716 
Z3626 



A( 1443 ,T ILT-ROTATE ) 

fi 

C 

D 

L 

F 

G 

H 



81427900 

81427910 

81427920 

81427930 

81427940 

81427950 

81427960 

81 427970 

81427980 

81427990 

81428000 

81 4280 1 O 

81428020 

81428030 

81428040 

8142 80 50 

81428060 

8142 80 70 

81428080 

8 1 42 80 90 

81428100 

814281 10 

814281 20 

81 4281 30 

8 14281 40 

81 4281 50 

8 14281 60 

81 4281 70 

814281 80 

81 428 190 

8 1428200 

81 42 82 1 

8 1428220 

81 428230 

81428240 

81 428250 

81428260 

81 428270 

81428280 

81 428290 

81428300 

81 42 83 1 

81428320 

81 428330 

81428340 

81 428350 

81428360 

81428370 

81428380 

81428390 

81428400 

81 42841 

81428420 

81 428430 

81428440 

81428450 

81428460 

81 428470 

81428480 

81428490 

81428500 

81428510 

81428520 

81428530 

81428540 

81428550 

81428560 

81428570 



DATE 
EC NO. 



14N0V69 
431319 



30JAN70 
431319A 



15SEP71 

431328 



PROG ID 
PAGE 



0814- O 
21 



DATE 
EC NO. 



14 NOV 69 
431319 



30JAN70 
431319A 



1 5SEP71 
431 32 8 



PROG ID 
PAGE 



0814-0 

21 A 
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15BA 





3922 




DC 


/3922 


I 


81428580 


i see 





21 7E 




DC 


/217E 


J 


81428590 


>SBC 





225A 




DC 


/225A 


K 


81428600 


1580 





235E 




DC 


/235E 


L 


81428610 


15BE 





2*72 




DC 


/2472 


M 


81428620 


15BF 





2576 




DC 


/2576 


N 


81428630 


15C0 





2652 




DC 


/2652 





81428640 


15C1 





2756 




DC 


Z2756 


P 


81428650 


15C2 





2866 




DC 


/2866 





81428660 


15C3 





2962 




DC 


Z2962 


R 


81428670 


ISC4 





129A 




DC 


/129A 


S 


81428680 


15C5 





139E 




DC 


/139E 


T 


81428690 


15C6 





14B2 




DC 


/14B2 


U 


81428700 


15C7 





15B6 




DC 


/15B6 


V 


81428710 


15C8 





1692 




DC 


/1692 


w 


81428720 


I5C9 





1796 




DC 


/L796 


X 


81428730 


15CA 





18A6 




DC 


• 18A6 


V 


81428740 


15CB 





19A2 


* 


DC 


/19A2 


Z 


81428750 
81428760 


15CC 





01FC 




DC 


/01FC 


1( 1443. TILT-ROTATE) 


81428770 


1SCD 





0208 




DC 


/02D8 


2 


81428780 


15CE 





03DC 




DC 


/030C 


3 


81428790 


15CF 





04F0 




DC 


/04F0 


4 


81428800 


1500 





05F4 




DC 


/05F4 


5 


81428810 


1501 





060 




DC 


/06D0 


6 


81428820 


15D2 





07O4 




DC 


/07D4 


7 


81428830 


15D3 





08E4 




DC 


/08E4 


8 


81428840 


15D4 


,0 


09E0 




DC 


/09E0 


9 


81428850 


15D5- 





0AC4 


* 


DC 


/0AC4 





81428860 
81428870 


1506 





0021 




DC 


/0021 


SP( 1443.TILT-R0TATE ) 


81 428880 


15D7 





2CD6 




DC 


/2CD6 


* 


81428890 


15D8 





1CFE 




DC 


/1CFE 


( 


81428900 


15D9 





3CF6 




DC 


/3CF6 


) 


81428910 


150A 





11BC 




DC 


/11BC 


/ 


81428920 


15DB 





2084 




DC 


/2084 


- 


81428930 


15DC 





0BC2 




DC 


/0BC2 


= 


81428940 


15DD 





OOFF 


TCVTC 


DC 


/OOFF 


TERM 


81428950 


15DE 





2100 


TCVSP 


DC 


/21 00 


SPACE 


81428960 


150F 





0000 


TCVSV 


DC 





TEMP STORAGE 


81428970 


15E0 





0000 




DC 







81428980 


15E0 







PEND 


EQU 


*-l 


PROGRAM END 


81428990 


15E2 




09AC 




END 


BG1N 




81429000 


NO 


STATEMENTS 


FLAGGED IN THE 


ABOVE ASSEMBLY 
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BEGIN 
BGIN 
BRBAK 
CAWSV 
CEND1 
CEND2 
CKEND 
CKERR 
CKRTN 
( CKSTA 
' CNTDN 
CNTRL 
CRCK 
CUU11 
CYCNT 
CYCTR 
DE200 
DIGIT 
DVADR 
END 
END 11 
END12 
EPA 
ERADR 
ERASE 
ERDAT 
ERMSG 
EROUT 

ERR 

ERROR 

ERTNE 

ERTN2 

ERTN3 

ERTN4 

ERTN5 

ERTN6 

ERTN7 

ERTN8 

ERTN9 

ERTSV 

ERTIO 

ERT11 

ERT12 

ERT13 

ERT14 

ERT15 

ERT16 

ERT17 

ERT18 

FALSW 

FBRST 

FDRDY 

FECYL 

FEUCY 

FLCCH 

FLOCH 

FLMSK 

FLPCI 

FLSKP 

FLSLI 

FNURC 

FONLN 

FOVRN 

FRDVE 

FREDV 

FRESW 

FSERD 



012C 

09AC 

OB 10 

0842 

0C03 

0F4C 

103C 

1040 

0B37 

1037 

083C 

085C 

0133 

0A69 

OBFD 

0F49 

0B5B 

1589 

0851 

012E 

0CC2 

1048 

0808 

13BD 

00 11 

0E3A 

12A2 

085F 

OBDO 
0130 
12E4 
12F7 
12FF 
1309 
1313 
1317 
1320 
132C 
1335 
0844 
1337 
1349 
137B 
1388 
13A5 
13AC 
13B1 
13B3 
13B9 
OBFF 
0004 
0018 
001D 
OOOA 
0040 
0080 
OBCB 
0010 
0008 
0020 
OOOC 
0019 
0005 
10CE 
0862 
14B0 
0012 



09AC 
15E2 
0B4B 
10DF 
0AF2 
0D01 
1045 
0AE9 
OCOC 
OBOD 
113F 
0A56 



1344 
0AF4 
0D0 3 

OAEF 0CF8 OCFE 103A 

0B15 0B2O ODOE 0O40 0O4B 103C 103E 1046 

114A 

0CC6 104E 108B 1 OAB 



0A1D 

OAFE 0B2E 0B30 0B37 0C05 

0D25 0D5B 0D5F 0D61 

0B32 

157E 1583 

08FB 0A1A 1QB5 1320 

0C86 109E 

0B59 

OEAC OFEF 

13B7 

0F9D 

130F 1313 1319 131B 131D 1336 

1040 1110 111C 1134 116D 1 1 7E 11F2 UFE 12EB 12F0 12F4 12F7 1324 

1379 13B9 13BB 

0C3F 0F7C 



0860 
12E5 
12FB 
1308 
130C 
1304 
1316 
132A 
1331 
1389 
130 1 
133D 
134B 
13A4 
137D 
1339 
13AE 
1 2E7 
13AA 
0C24 



12EE 
1312 

1334 1386 1399 13A2 
13A1 



12E9 

0C2E 0C69 0C6C 0C7A 0C81 OFSB 0F66 0FD2 0FD5 0FE4 OFEB 



OBDA OEBF 



0863 

OAOD 0C85 0CC2 104A 1 OD 4 1 3D F 

09B5 13D7 13E0 14A1 14A5 



DATE 14NOV69 30JAN70 15SEP71 
EC NO. 431319 431319A 431328 



PROG ID 
PAGE 



0814- 
22 



DATE 
EC NO. 



14N0V69 
431319 



30JAN70 
431319A 



15SEP71 
431328 



PROG ID 
PAGE 



08 1 4- 

22A 



o o u o o o o o o o u (.) o (i o o o o o o o i) (j o (i (i (J o <• i\ i) o c 



JjCl (J CJ (J (1 11 (I CI CI (I (I CI <i CI CI CI CJ C) CJ CJ C.I CI CJ CI C CJ CI CI € CI C 



IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 

2311 DISK INITIALIZER PROGRAM 

1800 DIAGNOSTIC MAINTENANCE PROGRAM 



PART NO. 227946 
PAGE 23 



FSKCK 


0007 










FSKIN 


001F 


1 126 








FTROV 


0009 










FUNSF 


0010 










FUNS I 


00 I A 










FUNSL 


0015 










GDDAT 


0DB7 


1007 








GETDV 


0865 


OAOC 


0AE8 


0CF7 


10CC 14A3 


GETSN 


0868 


1124 


11E2 


12F2 




GOBI 


0B92 


0C32 


0C35 


OC41 


QC44 


GTDVE 


10AC 


0866 








GTDV1 


10AC 


10AF 








GTSNS 


I1C4 


0869 








GTSNX 


11DA 


11C4 


11C5 






GTSNO 


11CA 


11F5 


1201 






GTSN1 


11D0 


1 1D2 








GTSN2 


11E4 


1 ICE 


1 1D8 






GTSN3 


11F6 


1 1ED 








GTSN4 


1IFB 


1203 








GTSN5 


1202 


11F8 








HA 


08CO 










HADA1 


0B98 


0C8A 








HADA2, 


0BB5 


0C4B 








HADA3 


ODAA 


0FF2 








HADA4 


0E2D 


0F88 








HOC NT 


OBFE 


OBOO 


0B25 


0B27 


0B2C 0B40 0B49 


HDCTR 


0F4A 


0D22 


0D3 


0D50 


0D52 0D58 


HE5E5 


OD70 


OD IB 








HFFOO 


08 3B 


09C0 


142D 


144C 


144F 


HFOOO 


083A 










HIOXX 


089A 


090F 


093A 


I0B6 


1181 


HOAOO 


0832 










H00C6 


082A 










H00C7 


0D6F 


0D5A 








H00C8 


082B 










HOOFF 


082C 


0A34 


0C46 


0F83 


142F 14C6 14C9 15A5 


HOOOA 


0825 


153C 








HOOOC 


0886 










HOOll 


0826 


1117 


1130 






H0013 


0827 


1 IOC 


112C 






H0020 


0828 










H0027 


0829 


154 1 








H0100 


08 2D 


10B7 


1 1FA 


13EB 




H0200 


082E 


1202 








H0400 


08 2F 


10B3 








H0500 


0830 


13F0 








H0700 


0831 


10BB 


13F3 






H2000 


0833 










H2100 


0834 


1 1EF 


1 1FB 






H3 00 


0835 


0A07 








H4000 


0836 










HbOOO 


0837 










H7FFF 


0838 


140B 








H8 00 


0839 










ICCW1 


0BD2 


OBOC 








1CCW2 


0BD5 


0B14 








ICCW3 


0BE1 


0B1F 








ICCW4 


0EB7 


ODOD 


10 49 






ICCW5 


OEBA 


0D3F 








ICCW6 


0EC9 


0D4A 








ICW1 1 


OBEA 


0B02 


0B04 


0B3B 


0B44 0BD4 OBD 7 0BE3 


ICW13 


OB ED 










ICW14 


OBEF 


0AF2 


0B07 


0B3E 


0B47 OBDD 0C1A 0C4D 


ICWI5 


0BF2 


0B39 


0B42 


OBEO 


0C5C 


ICW16 


0BF6 


OBI A 


0BE6 


0C18 


OCSC 


1CW17 


0BF9 


0BE9 


0C9B 






ICW21 


0ED2 


0D29 


0D3 4 


OEBC 


OECB 


ICW23 


0ED5 


0D2B 


0D36 


0EC2 
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1CW24 
ICW25 
ICW26 
ICW27 
IER11 
. IER12 
1ER13 
IER21 
1ER22 
IER23 
IER24 
IER25 
IER26 
ILSIO 
IPA 
Kl 

KIO 

K100 

K 1000 

K127 

K128 

K2 

K20 

K3 

K4 

K500 

Kb 

K7 

Kb 

K9 

LEXIT 

LGBSY 

LI NSW 

LUG 

LPA 

LPCNT 

MAORI 

MADR2 

MATO 

MLSCF 

ML SCO 

ML SCI 

MLSC2 

NOPCC 

OBYPR 

OCHLT 

OEBYP 

(JECAW 

OECSW 

(JECXC 

UECXO 

0hCX4 

0ECX8 

UhERR 

UEGSN 

GEL IB 

OEPBL 

UESNS 

OEXIT 

OHALT 

OK 

(JLPER 

OLPST 

OPNOP 

OPRD 

OPRRS 

UPSNS 



0ED7 
OEOA 
OF 10 
0FI3 
0B91 
OBAE 
OCAS 
OD A3 
0E26 
ODCO 
0E43 
0OF3 
0E76 
1 150 
0806 
0816 

081E 

0820 

0824 

0821 

0822 

08 17 

081F 

08 18 

08 19 

082 3 

081A 

08 IB 

081C 

08 ID 

14AE 

0852 

102A 

012F 

0807 

085A 

0B90 

0EA9 

0134 

0809 

0809 

080A 

080B 

0887 

OOOD 

OOOF 

0009 

OOOD 

OOOE 

0003 

0000 

000 1 

0002 

OOOC 

OOOA 

OOOB 

0007 

OOOF 

0006 

OOOE 

OBCE 

OOOC 

0008 

0003 

0002 

0009 

0004 



0D01 00 13 0D2E 00 39 0F51 0F8A 

0D18 0D1D 0D27 0D32 OECB 0F98 0FE7 OFC 1 

OECE 0F4F 0FF4 

00 45 0ED1 1002 1021 1 02D 

0C3C 0C68 

0C7F 0FE9 

0F6E 0F7I 0F79 0F7L OF8I OFD 1 

1030 
0FC4 
101D 

0FB4 



09C2 09DE 0A09 OAOA 0A46 OADF OCEE 01324 10C3 10C5 10C7 10C9 1118 

120F 1325 139A 13F6 1480 

0B29 0C2B 0D54 0F63 1551 

0D17 154C 

1548 



0A23 10C1 

13D9 

0915 091E 0928 1412 1493 



0932 1385 

153F 1542 

13C5 13FB 

09B7 09DD 



14A6 

13BE 13C4 14AD 



OFAD OFB3 OFBD 1016 101C 1027 



OAED 
OCFC 



0947 

09C8 1273 128F 

13CC 

13AD 
1338 
134A 



1303 

12ED 

1300 1303 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 
2311 DISK C.E. PACK INITIALIZER DESCRIPTION 

1 . PURPOSE 

1*1 INTENT 

THE INTENT OF THIS PROGRAM IS TO INITIALIZE A 2311 C.E. DISK PACK 
WITH STANDARD HOME ADDRESSES AND RECORD ON ALL TRACKS OF ALL 
CYLINDERS EXCEPT THE HEAD-ALIGNMENT CYLINDERS (2-4. 71-75. «. 
200-202). 

THIS PROGRAM CONSISTS OF ONE SECTION MADE UP OF TWO ROUTINES. 

1*2 BRIEF DESCRIPTION OF ROUTINES 

1.2.1 SECTION 1. ROUTINE 1 

THIS ROUTINE WRITES HOME ADDRESS (HA) AND RECORD (RO) OF ALL 
APPLICABLE CYLINDERS. THE ROUTINE ALSO READS HA AND RO FROM 
THOSE TRACKS OF THOSE CYLINDERS TO VERIFY THAT THE WRITE PASS 
WAS SUCCESSFUL AND THAT INFORMATION CAN BE RETRIEVED ERROR-FREE 
FROM THOSE TRACKS. 

1.2.2 SECTION 1. ROUTINE 2 

THIS ROUTINE WRITES AN RO OF 100 BYTES (PLUS THE NORMAL COUNT 
FIELD) OF WORST-CASE DATA (/E5> ON ALL TRACKS OF CYLINDERS 1 AND 199. 
THE ROUTINE ALSO READS RO FROM THOSE TRACKS OF THOSE CYLINDERS TO 
VERIFY THAT INFORMATION CAN BE RETRIEVED FRROR-FREE FROM THOSE 
TRACKS. 

2. REQUIREMENTS 

2.1 PROGRAM 

THIS PROGRAM IS RUN UNDER THE CONTROL OF THE 1800 DIAGNOSTIC 
MONITOR (DM). ROUTINES SHOULD BE EXECUTED IN SEQUENTIAL ORDER FOR 
CORRECT OPERATION. 

2.2 EOUIPMENT 

THE FOLLOWING EOUIPMENT IS REQUIRED FOR PROGRAM OPERATION. 

2841 FILE CONTROL UNIT 

2311 ACCESS MECHANISM. 

HARD COPY OUTPUT DEVICE. 

A PROGRAM LOADING DEVICE. 

A 2311 C.E. DISK PACK TO BE INITIALIZED 
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OPERATING PROCEDURES 



3.1 



e 
e 

* 

c 



3.2 



LOADING 

STANDARD LOADING PROCEDURE AS DESCRIBED IN THE DIAGNOSTIC MONITOR 
USE PROCEDURE. 

NOTE 00 NOT INCLUDE DEVICE ADDRESS ON DM EDIT. WHEN 'SELECT 

OPTIONS' MESSAGE IS PRINTED BY THE PROGRAM. ENTER THE 2311 
DISK DRIVE ADDRESS (0-7) INTO BITS 12-15 AND THE 2841 
CHANNEL INTERFACE ADDRESS INTO BITS 8-11 OF SWITCH FNC 2. 

IF THE 2841 IS EQUIPPED WITH A 2-CHANNEL SWITCH FEATURE THE 
UNUSED INTERFACE OF THE 2-CHANNEL SWITCH SHOULD BE MANUALLY 
DISABLED BY PLACING THE ASSOCIATED INTERFACE 'ENABLE/DISABLE" SWITCH 
IN THE 'DISABLE' POSITION IN ORDER TO PREVENT ANY EXTRANEOUS 
INTERRUPTS VIA THE UNUSED INTERFACE. 



OPERATION 

1 > I NSTALL CE PACK TO 



INITIALIZED ON THE ACCESS TO BE USED. 



2) PROGRAM OPTION SWITCHES - SW FNC 0. 

(NORMAL RUN. WITH ALL SWITCHES OFF. GIVES ERROR PRINTOUTS 
AH> CONTINUES ON ERROH.) 

**NOTE - 'TURN ON' OPTION SWS IMPLIES SETTING THE SPECIFIED 
BITS ON IN THE INDICATED SWITCH FUNCTION BY SETTING UP 
THE SENSE/PROGRA* AND DATA ENTRY SWITCHES AND PERFORMING 
A 'CONSOLE INTERRUPT'. 



THE PROGRAM FUNCTION SWITCHES SHOWN BELOW ARE IN THE MONITOR 
INTERFACE TABLE IN THE PROGRAM LISTING. BITS ARE ZERO WHEN OFF 
AND ONE WHEN ON. 



DISK INITIALIZER FUNCTION 
CONTROL FUNCTION 

ft******************** i. SET FUNCTION 00 IN S/P SWS O AND 1 

* SENSE/PROGRAM * 2. SET P ID IN S/P SWS 2-THRU-7. 

* 01234S67 * 3. SET DESIRED CONTROL OPTIONS IN D/E 

* » SWS 8-15. AS SHOWN. 

* 00010100 * 4. PRESS CONSOLE INTERRUPT. 
***************************************************************** 

* DATA ENTRY SWITCMKS DESCRIPTION * 

* 1 2 3 4 S 6 7 8 9 10 11 12 13 i4 15 * 

* * 

* 1* . EXIT ERR HALT LOOP * 

* 1 • • . HALT-ON -ERROR * 

* 1. . . . . BYPASS ALL PRINTOUTS* 

* 1 ..... • LOOP-ON-ERROR * 

* 1....... ALLOW WRITE • 

* 1.. ....... PRINT RTN TITLES * 

* 1........... PRINT ALL DATA TBLS * 

* 1. ........... LOOP START I/O * 

* (TIGHT SCOPE LOOP) * 

* * 
**********•*•••*•*•****•«•*******•*****••**••******•**•********** 



••NOTE** THE OBJECT OF OPTION SW 8 IS TO PROVIDE * 
SCOPING OR TROUBLE-SHOOTING LOOP THAT 
CONSTANTLY REPEATS A SINGLE SIO PERTAINING 
TO A CCW CHAIN. THE MOST EFFECTIVE WAY TO 
USE THIS SENSE SW IS IN CONJUNCTION 

WITH THE OPTION SW 14 HALT-ON-ERROR • 

WHEN AN ERROR MESSAGE IS PRINTED BY A RTN. 
A HALT OCCURS IF THE HALT-ON-ERROR SWITCH 
(SW FNC 3. BIT 14) IS ON. IF DURING THIS 
HALT. SW 8 WERE TURNED ON. THE CHAIN THAT 
CAUSED THE ERROR IS LOOPED WHEN THE PROGRAM 
EXECUTION IS RESUMED. 

3) ROUTINE SELECTION SWITCHES- SW FNC 1. THIS SWITCH IS USED TO 
SELECT ROUTINES FOR EXECUTION. THE FORMAT OF THE SWITCHES IS OOSR, 
WHERE 'S' IS THE SELECTED SECTION AND 'R' IS THE SELECTED ROUTINE 
WITHIN THAT SECTION. IF R=0 ALL ROUTINES IN THE SELECTED SECTION 
WILL BE RUN. IF S=0 ALL NORMAL SECTIONS (1) WILL BE RUN 
WHENEVER A SECTION OR A ROUTINE IS INDIVIDUALLY SPECIFIED. THAT 
SECTION OR ROUTINE WILL BE LOOPED . 



DISK INITIALIZER FUNCTION 1 

ROUTINE SELECTION FUNCTION 



• 
• 



********************* 

• SENSE/PROGRAM * 

• 01234567 * 

• • 

• 01010100 • 



1. SET FUNCTION 01 IN S/P SWS O AMD 1. 

2. SET P1D IN S/P SWS 2-THRU-7. 

3. SET DESIRED SECT/RTN CONFIGURATION 

IN O/E SWS 8-11. 12-15. RESPECTIVELY 

4. DEPRESS CONSOLE INTERRUPT. 



******************************** *********»*»*********»*»*»#*•*»*»» 



* 
* 
* 
* 
* 



1 



DATA ENTRY SWITCHES 
2 3 4 5 6 7 8 9 10 11 12 13 14 15 



DESCRIPTION 



s s s 



R R R R. . ROUTINE • IN HEX 
(O-RUN ALL RTMS) 
S. ....... SECTION » IN HEX 

(O-RUN ALL SECTS! 



* 

* 
* 

* 

* 
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4) DEVICE SELECTION. SW FNC 2 IS USED TO SeLECT THE DEVICE 
UNDER TEST. THE UNIT ADDRESS IS PLACED IN THE 4 LOW-ORDER BITS 
OF THE D/E SWS (BITS 12-15). THE PRIMARY FILE CONTROL INTERFACE 
ADDRESS IS INSERTED IN BITS 8-11. 



o 
o 

o 

o 



DATE 14N0V69 30JAN70 15SEP71 
EC NO. 431319 431319A 431328 



ntoc to 08i 4-* 

MICE 2A 



I < . I < ( I < . < I 

W IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 
A 2311 DISK C.E. PACK INITIALIZER DESCRIPTION 



i i 



o 

o 



DISK INITIALIZER FUNCTION 2 

DEVICE SELECTION FUNCTION 
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SENSE PROGRAM 
01234567 



10 10 10 



1. SET FUNCTION 10 IN S/P SWS O AND 1. 

2. SET PIO IN S/P SWS 2-THRU-7. 

3. SET 2841/2311 ADDRESS INTO D/E SWS 

8-15 t AS SHOWN. 

4. PRESS CONSOLE INTERRUPT. 



******************************** ************************** ******* 
» DATA ENTRY SWITCHES DESCRIPTION * 

* 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 * 

* * 

* \) \} V \>» » 2311 UNIT TO BE USED* 

* AAA A. ....... 2841 INTF ADDRESS * 

* * 
I:**************************************************************** 
PROGRAM HALTS. 



1400 *** SELECT OPTIONS *»* 

THIS HALT LOOP OCCURS PRIOR TO PROGRAM EXECUTION TO ALLOW 
ScTTING OF THE FUNCTION (OPTION) SWITCHES. IF OPTIONS ARE 
DESIRED THEY MUST BE ENTERtD BEFORE ENTERING FUNCTION SW 2 
C INTERFACE-DEVICE SELECT). AS PROGRAM EXECUTION BEGINS AT 
THIS TIME. 

1400 ***HALT — DISK INITIALIZER ADRS AAAA 

TO CLEAR HALT SET SWITCHES 

S/P OOPP PPPP. P=PID 
DES XXXX XXXX XXXX XXXO 
-PRESS CONSOLE INTERRUPT 

HALT AFTER ERROR. UNLESS BYPASSED. IS A LOOP THAT ALLOWS 
SELECTION AND LOOP EXIT USING THE SAME SWITCH FUNCTION (FNC 0). 
BESIDES THE NORMAL HALT AFTER ERROR DESCRIBED ABOVE, THERE 
ARE SEVERAL ERROR CONDITIONS IN WHICH THE PROGRAM CANNOT 
CONTINUE. (EXAMPLE ACCESS NOT READY. HANG UP BUSY, ETC.) 
THE ERROR MESSAGE WILL IDENTIFY SUCH CONDITIONS. 



NECESSARY INSTRUCTION TO EXIT THE ERROR HALT LOOP ACCOMPANY 
ENTRY TO THE LOOP VIA A PRINTOUT. WHILE IN THE LOOP VARIOUS 
SWITCH FUNCTION OPTIONS CAN BE ENTERED ALONG WITH BIT 15=0, 
WHICH PROVIDES THE EXIT. BIT 15=0 ALONE WILL RESULT IN A NORMAL 
EXIT. IN MOST CASES THE ROUTINE WILL TERMINATE. 



1) SETTING BIT 12 WILL EXIT TO THE SEOUENCE THAT PRODUCED 
THE ERROR. THIS WILL USUALLY Be THE START OF THE ROUTINE. 

2) SETTING BIT 8 »1TH 13 WILL EXIT TO THE FAILING FUNCTION 
AND LOOP ON THE FUNCTION CAUSING THE ERROR WITHOUT ERROR 
PRINTOUTS. (TIGHT SCOPE LOOP) 

3) SETTING BIT 13 WITH 12 WILL EXIT TO THE FAILING SEQUENCE 
AND LOOP THROUGH THE ROUTINE WITHOUT PRINTING ERRORS OR 
HALTING ON THE ERROR. (LONG SCOPE LOOP) THESE OPTIONS SHOULD 
BE THE MOST USEFUL. SEE TABLE OF OPTIONS FOR OTHER 
APPLICATIONS. 



9 



3.4 



*»NOTE»» THIS PROGRAM IS DESIGNED TO BE THE MOST EFFECTIVE 
WHEN RUNNING UNDER HALT-AFTER-ERROR-PRINTOUT MODF . 
IF THE USER WISHES TO RUN IN THIS MODE. SW FUNCTION 0. 
BIT 14 MUST BE •ON*. 

••NOTE** IF THE SELECTOR CHANNEL AND THE LOG DEVICE SHARE 
A DATA CHANNEL. CAUSING A CONSOLE INTERRUPT HAY 
RESULT IN MONITOR "WAIT 9". (3009) 

PROGRAM TERMINATION. 

1400 **END OF OFT** 

END-OF-OFT MESSAGE IS PRINTED AT COMPLETION OF NORMAL TEST. 
PROGRAM WILL TERMINATE UNLESS MONITOR SW FNC LOOP PROGRAMS 
OPTION (BIT 11) IS SELECTED. 



PRINTOUTS 



MESSAGE FORMATS 



ERROR MESSAGES 

THE PRIMARY MESSAGE FROM THIS PROGRAM IS AN ERROR NUMBER. THE 
PURPOSE OF THE NUMBER IS TO REFER THE USER TO A DESCRIPTION OF THE 
ERROR CONDITION IN THIS DOCUMENT. (SECT 4.2) THE ERROR DESCRIPTION 
PROVIOES DIAGNOSTIC INFORMATION ABOUT THE ERROR AND SCOPE-LOOP 
OPTIONS. 

ERROR NUMBER FORMAT 

1) SIO, TIO. SENSE I/O ERRORS — 

1400 **ERR- ERROR ON SIO. SECTION S. ROUTINE R. UNIT OU AORS A*#« 

2) ERROR NUMBER WITH MESSAGE. 

1400 **ER XX ......MESSAGE...... UNIT KM ADRS AAAA 

3) NORMAL ERROR NUMBER PRINTOUT. 
1400 **ER SRXX UNIT VV AORS AAAA 

4) THE SECOND LINE OF AN ERROR PRINTOUT GIVES VARIABLE DATA 

ON MACHINE CONDITIONS. SENSE BYTES WILL USUALLY NOT BE PRINTED. 

CAW KKKK CSW YYYV UUZZ ADRS CNTR SNS B-B B-B B-B B-B 

5) LEGEND OF CHARACTERS- 

S SECTION NUMBER 

R ROUTINE NUMBER 

XX SEQUENTIAL ERROR NUMBER WITHIN EACH ROUTINE 

UU CHANNEL AND DEVICE ADDRESS ADDRESS IN HEX 

AAAA ADORESS OF ERROR BRANCH t STORE I -REG 1NSTR 

IN PROGRAM LISTING. 

KKKK CHANNEL ADDRESS WORD FOR THE CCW CHAIN 

AORS CHANNEL CCW ADORESS REGISTER 

YYYY CHANNEL STATUS IN HEX 

UUZZ UNIT ADDRESS/UNIT STATUS IN HEX 

CNTR CHANNEL BYTE COUNT REGISTER 

B-B SENSE BYTES IN BINARY 
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4.1 OPERATOR MESSAGES 

••CAUTION - THE ENTIRE PACK ON DRIVE SPECIFIED 
KILL BE RE-WRITTEN. TURN ON BIT 11 OF SWITCH 
FUNCTION O AND EXIT LOOP TO CONTINUE •• 

THIS MESSAGE FOLLOWS THE PROGRAM TITLE MESSAGE 
AND INSTRUCTIONS MUST BE FOLLOWS) TO CONTINUE. 

4.2 STATUS MESSAGES 

4.2.1 2-OIGIT ERROR NUMBERS (ERXX) 

THESE ERRORS ARE DETECTED AND PRINTED BY THE HOUSEKEEPING 
(COMMON) SUBROUTINES OF THE PROGRAM. 



1400 **EROO UNEXPECTED INTERRUPT 

AN INTERRUPT OCCURRED ON THE SELECTOR CHANNEL WHILE THIS PROGRAM 
DID NOT >OWN« THE CHANNEL. OR THE INTERRUPT WAS NOT FROM THE UNIT 
UNDER TEST. EXAMINE THE CSW FOR FURTHER INFORMATION. 



1*00 *»ER02 ADAPTER HUNG BUSY 

AN ADAPTER BUSY CONDITION WAS DETECTED ON THE TEST I/O AT 
THE BEGINNING OF THE START I/O SUBROUTINE. 

•ADAPTER BUSY' INDICATES CHANNEL OR SUB-CHANNEL BUSY. THIS 
INDICATES MISSING DEVICE END ON PREVIOl/S OPERATION. CAW 
PRINTOUT INDICATES PREVIOUSLY EXECUTED COMMAND CHAIN. RECOMMEND 
PLUGGING DISPLAY PORTION OF CE I/O MONITOR BOX. 

USER SHOULD DO A RESET-RESTART TO CLEAR BUSY CHANNEL. 



1400 **ER06 CHANNEL HUNG AFTER TEST I/O 

THE CAW Aro CSW ARE PRINTED WITH THIS MESSAGE. THIS MESSAGE 
INDICATES THAT AN ADAPTER BUSY CONDITION WAS DETECTED BY THE 
TEST I/O ROUTINE AFTER THE TEST I/O WAS ISSUED. 

IF CONTROL UNIT IS HUNG-UP TRY RESET-RESTART. 



1400 **ER21 ERROR ON SNS SECT X. RTN X 

PROGRAM DETECTED UNIT CHECK ON A SENSE I/O IN THE SENSE I/O 
SUBROUTINE. TEST I/O AMJ START I/O HAVE ALREAOY BEEN TESTED. 
SHOULD NOT GET THIS ERROR EXCEPT ON INTERMITTENT FAILURES. THE 
SECTION AND ROUTINE BEING EXECUTED *HEN THE ERROR OCCUREO IS 
PRINTED WITH ERROR NUMBER. EXAMINE ACCUMULATED STATUS DATA IN CSW 
FOR CLUES TO FAILURES. 
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1400 **ER22 ERROR ON SNS SECT X, RTN X 

PROGRAM EXECUTED A SENSE I/O AND RECEIVED A BUSY CONDITION. 
PRINTOUT GIVES SECTION AND ROUTINE BEING EXECUTED WHEN THE 
ERROR OCCURED . 

DETERMINE WHY CONTROL UNIT WENT BUSY. SHOULD BE RELATED TO THE 
ROUTINE BEING EXECUTED. CAW PRINTOUT INDICATES PREVIOUSLY EXECU- 
TED COMMAND CHAIN. 

11 USER SHOULD DO A RESET-RESTART TO CLEAR BUSY CONDITION. 
21 CONTROL UNIT HUNG UP - PROBABLY CAN«T LOOP. 
3) TRY LOOPING IN ROUTINE. 

1400 **ER23 ERROR ON SNS SECT X, RTN X 
NOT OPERATIONAL ON SENSE I/O - 

4.3 TITLE MESSAGES 

4.3.1 PROGRAM TITLE MESSAGE 

1400 DISK INITIALIZATION ON UNIT XX 
PASS- XX 

4.3.2 ROUTINE TITLE MESSAGES 

TITLE MESSAGES ARE PRINTED PRIOR TO EXECUTION OF EACH ROUTINE 
IF BIT 10 OF SW FNC O IS ON. 

1400 SECT l.RT 1- 

-2311 C.E. PACK INITIALIZATION-ROUT 1 WR HA AND RO- 

1400 SECT l.RT 2- 

2311 C.E. PACK INITIALIZATION 
-ROUT 2 WR CYLS 1 AND 199 WITH RO 
EO. TO 100 BYTES OF WORST CASE DATA 
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4.4 



OTHER MESSAGES 

MESSAGES FOR SECT 1. RTN 1 

THE FOLLOWING MESSAGE WILL BE PRINTED IF OPTION SW 10 (PRINT DATA 
TABLES) IS ON WHEN NO DATA COMPARE ERROR IS DETECTED. 



1400 — OK 



-HA RD AAAABBBBCCCC 



RO RD 



DDDDEEEEFFFFGGGG 



THE FOLLOWING MESSAGE WILL BE PRINTED IF A DATA COMPARE ERROR 
IS DETECTED. 



1400 —ERR -HA RD AAAABBBBCCCC 
HA SHLD BE AAAABBBBCCCC 



RO RD DDDDEEEEFFFFGGGG 
RO SHLD BE DDDDEEEEFFFFGGGG 



MESSAGES FOR SECT I. RTN 2 

THE FOLLOWING MESSAGE WILL BE PRINTS) IF OPTION SW 10 (PRINT DATA 
TABLES) IS ON WHEN NO DATA COMPARE ERROR IS DETECTED. 

1400 — OK -HA RD AAAABBBBCCCC RO RD DDDDEEEEFFFFGGGG 
E5ESE5. .......... (TOTAL OF SO BYTES IN THIS LINE ) . ... .E5E5 

ESESES... ........ (TOTAL OF SO BYTLS IN THIS LINE >..... ESES 

THE FOLLOWING MESSAGE WILL BE PRINTED IF A DATA COMPARE ERROR 
IS DETECTED. 

1400 —ERR -HA RD AAAABBBBCCCC RO RD DDDDEEEEFFFFGGGG 

XXXXXX .....(TOTAL OF SO BYTES IN THIS LINE) XXXX 

XXXXXX (TOTAL OF 50 BYTES IN THIS LINE) XXXX 

--HA SHLD BE AAAABBBBCCCC RO SHLD BE DOO DEEEEFFFFGGGG 

ESESES .....(TOTAL OF SO BYTES IN THIS LINE ) . . . . .E5E5 



ESESES. 



.(TOTAL OF 50 BYTES IN THIS LINE ).. ...ESES 



c 





LEGEND AAAA = HA FLAG (OOFF) 

BBBB = HA CYL* 

CCCC » HA W)» 

DDDD = RO CYL* 

EEEE 'ROW I 

FFFF = RO REC*/KEY LENGTH (0000) 

GGGG = RO DATA LENGTH 

XXXX = DATA READ 



O 



O 
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COMMENTS 



S.l 



5*1.1 



5.1.2 



5*2 



IF AN INTERMITTENT DATA ERROR OCCURS. THE PGM REQUIRES 10 SEQUENTIAL 
SUCCESSFUL RETRY OPERATIONS BEFORE ASSUMING THE ERROR TO BE RANDOM, 
THEREFORE IGNORING IT. IF A DATA COMPARE ERROR IS DETECTED THE 
PGM WILL ENTER THE 'RETRY' PHASE. EXPECTING THE 10 SUCCESSFUL 
REPEAT OPERATIONS. IF ANOTHER ERROR OCCURS PRIOR TO THE 10TH 
SUCCESSFUL REPEAT, THE *REPEATS COUNTER IS RE-INITIALIZED AND THE 
RETRY PHASE IS RESTARTED, AGAIN EXPECTING 10 SUCCESSFUL OPERATIONS. 
THIS PROCEDURE IS REPEATED UP TO 16 TIMES. IF NECESSARY. IF THE 
RETRY IS STILL UNSUCCESSFUL. A 'BAD PACK" MESSAGE IS PRINTED AND 
PROGRAM IS TERMINATED. 

THE ERROR NUMBERS ARE REFFRRED TO AS SRXX IN THE FOLLOWING ROUTINE 
DESCRIPTIONS. THE MESSAGES ARE DESCRIBED INDIVIDUALLY IN THE MESSAGE 
DESCRIPTION SECTION. THE 'XX' PORTION OF THFSE MESSAGES MUST NOT 
BE CONFUSED WITH THE 2-OIGIT MESSAGE NUMBERS «XX«. WHICH ARE COMMON 
TO ALL SECTIONS/ROUTINES. 

COMMENTS BY SECTION AM) ROUTINE 

SECTION 1, ROUTINE 1 

THIS ROUTINE WRITES HOME ADDRESSES (HA) AND RECORD O (RO) ON ALL 
TRACKS OF ALL CYLINDERS EXCEPT THE HEAD-ALIGNMENT CYLINDERS (OO2-004. 
071-075. AND 200-^02). AFTER HA AND RO HAVE BEEN WRITTEN ON EACH 
TRACK, THIS ROUTINE IMMEDIATELY READS THE HA AND RO AND COMPARES 
THEM AGAINST THE EXPECTED HA AND RO TO INSURE THAT INFORMATION CAN 
BE SUCCESSFULLY READ FROM EACH TRACK WITHOUT ERROR. AFTER ALL 
TRACKS OF ALL CYLINDERS HAVE BEEN THUS WRITTEN AND VERIFIED. A 
SECOND READ PASS IS MADE ACROSS ALL TRACKS OF ALL CYLINDERS. AGAIN 
READING HA AM) RO. DOUBLE CHECKING THAT THE HA ANC RO CAN BE *EAD 
ERROR FREE, AND ALSO VERIFYING THAT THE SEEKS EXECUTED DURING 
THE WRITE PASS FUNCTIONED PROPERLY. ANY COMPARISON ERRORS. AS 
WELL AS STATUS ERRORS RECEIVED FROM THE OEVICE OR CHANNEL. ARE 
DISPLAYED ON THE PRINTER. 

SECTION 1. ROUTINE 2 

THIS ROUTINE WRITES AND VERIFIES 100 BYTES (50 WORDS) OF WORST/'CASE 
DATA PATTERN (/ES) ON ALL TRACKS OF CYLINDERS 001 ANO 199, WHICH 
IS REQUIRED BY OTHER 2311 DIAGNOSTIC PROGRAMS. A WRITE PASS IS 
MADE ON EACH TRACK, WRITING 100 BYTES OF RO , FOLLOWED IMMEDIATELY 
BY A READ AND COMPARE OF THE RO JUST KRITTEN. THE RO READ IS 
COMPARED AGAINST THE EXPECTED RO TO INSURE THAT INFORMATION CAN 
BE SUCCESSFULLY READ FROM EACH TRACK WITHOUT ESROR. AFTER RO HAS 
BEEN WRITTEN AND VERIFIED ON EACH TRACK OF CYLINDERS 001 AND 199, A 
SECOND REAO PASS IS MADE ACROSS ALL TRACKS OF CYLINDERS 001 ANO 199, 
DOUBLE CHECKING THAT INFORMATION CAN BE READ ERROR FREE FROM THOSE 
TRACKS. AND ALSO VERIFYING THAT THE SEEKS EXECUTED DURING THE 
WRITE PASS FUNCTIONED PROPERLY. ANY COMPARISON ERRORS. AS WELL AS 
STATUS ERRORS RECEIVED FROM THE DEVICE OR CHANNEL. ARE DISPLAYED 
ON THE PRINTER 



COMMENTS BY ERROR NUMBER 

1400 **ER-SR01 UNIT UU.ADRS AAAA 

CAW AAAA CSW XXXX XXXX XXXX 0000 SNS X X X X X X X- 



ERROR 



• SR01 



COMMENT 



THIS IS THE GENERAL ERROR NUMBER WHICH IS PRINTED IN THE 
EVENT OF ANY UNUSUAL DEVICE OR 'ELECTOR CHANNEL STATUS. 
EXAMINE THE CSW AND SENSE BYTES FOR DETAILS OF THE ERROR 
CONDITION. TAKE APPROPRIATE CORRECTIVE ACTION. 
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j W DATE 

EC NO. 



5.3 COMMON SUBROUTINES 

1) CET SENSE 

THIS SUBROUTINE IS USED BV MOST ROUTINES TO GET FOUR (4) SENSE 
BYTES OF ACCESS STATUS INFORMATION. AFTER THE SUBROU1INE HAS 
PERFORMED THE START I/O ArO CHECKED THAT THE SENSE COMMAND 
HAS BEEN ACCEPTED, IT WILL WAIT IN A TEST I/O ADAPTER BUSY LOOP 
FOR THE 4 BYTES TO TRANSFER. THE PROGRAM WILL HANG-UP IF IT 
FOREVER RECEIVES ADAPTER BUSY. 

2) START I/O 

THIS SUBROUTINE IS USED BV ALL ROUTINES TO START A CHAIN OF 
CCWfS) (CHANNEL COMMAND WORDS). BEFORE THE START I/O IS 
EXECUTED, THE SUBROUTINE PERFORMS A TEST I/O TO CHECK THAT THE 
ACCESS IS AVAILABLE. THE PROGRAM THEN SETS UP THE CAW, 
EXECUTES A START I/O AND CHECKS THAT THE COMMAND WAS ACCEPTED. 
THE 'WAIT* SUBROUTINE IS USED TO WAIT FOR COMPLETION OF THE 
CHAIN OF COMMANDS BEFORE RETURNING TO THE CALLING ROUTINE. 

3) EROUT 

THIS SUBROUTINE IS USED BY ALL ROUTINES TO kRINT OUT AN ERROR 
NUMBER OR ERROR MESSAGE. THE CAW. CSW. AND /OR SENSE INFORMATION. 
THE ROUTINE ALSO PROVIDES FOR PRINTING A BLANK LINE AS A 
SEPARATOR. WILL GET THE SENSE BYTES. STOP AFTER PRINTING ERROR, 
RETURN TO PROGRAM VIA AN OPTIONAL REG, AND OR EXIT TO NEXT 
ROUTINE. 
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APPEND I X 



6.1 



CHANNEL STATUS WORDS DEVICE AND CHANNEL STATUS BITS LAYOUT IN HEX 
CSW AORS YYYY UUZZ CNTR 

8000 ... UNIT NOT 0PERA1 IONAL 



4000 
2000 
1000 

oeoo 

0400 
0200 
0100 



• 
• 



80. 
40. 
20. 
10. 
08. 
04. 
02. 
01. 



UNIT STATUS PENDING 
PROGRAM CONTROL INTERRUPT 
PROGRAM CHECK 
DATA CHECK 
CONTROL CHECK 
INCORRECT LENGTH 
ADAPTER BUSY 

. . ATTENTION 

. . STATUS MODIFIER 

• . CONTROL UNIT END 
. . BUSY 

• • CHANNEL END 

• • DEVICE END 
. . UNIT CHECK 

. . UNIT EXCEPTION 



6.2 



AORS = CHANNEL CCW ADDRESS REGISTER 
YYYY = CHANNEL STATUS IN HEX 
UUZZ * UNIT ADDRESS/UNIT STATUS IN HEX 
CNTR = CHANNEL BYTE COUNT REGISTER 

SENSE BYTES RECEIVED ON A SENSE I/O COMMAND 
BIT LAYOUT IN BINARY 

BYTE O. BIT O = COMMAND REJECT 

1 = INTERVENTION REQUIRED 

2 = BUS OUT PARITY 

3 « EQUIP CHECK 

4 « DATA (BURST) CHECK 

5 * CHANNEL/2841 OVRN 

6 ■ TRACK CONDITION CHECK 

7 » SEEK CHECK 

BYTE 1, BIT O = DATA CHECK IN COUNT FIELD 

1 * TRACK OVERFLOW 

2 = END OF CYLINDER 

3 a INVALID SEOUENCE 
* * NO RECORD FOUND 

5 ■ FILE PROTECTED 

6 ■ MISSING ADDRESS MARKER 

7 m OVERFLOW INCOMPLETE 



BYTE 2. BIT 3 



3 UNSAFE 



2 « SEROES CHECK 

3 * 

4 a 2841 ALU CHECK 

5 » UNSELECTED FILE STATUS 

6 » 

7 ■ 

BYTE 3, BIT = DRIVE READY 

1 ■ ON LINE 

2 » UNSAFE 

3 « 

4 m ONLINE 

5 " END OF CYLINDER 

6 » 

7 » SEEK INCOMPLETE 
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6.3 


THE FOLLOWING EDIT CARDS ARE REQUIRED BY THIS PROGRAM: 

1. CARD - MUST CONTAIN 2 EDITS. THE FIRST MUST DEFINE THE LOG DEVICE AND THE SECOND MUST DEFINE THE St' 

2. END CARD - MUST HAVE FFFF IN COLUMNS 7-10. 

THE DEVICE DEFINITION EDIT FIELD (DDEF) INCLUDES THE FOLLOWING: 

1. THE INTERRUPT LEVEL ASSOCIATED WITH THE DEVICE. 

2. THE ILSW BIT POSITION ASSOCIATED WITH THIS DEVICE. 

3. THE CHANNEL ASSIGNED TO THIS DEVICE. 

NOTE 1 - THIS PROGRAM HAS ITS OWN LOG ROUTINE. THE FIRST ENTRY ON THE EDIT CARD IS ASSOCIATED WITH 

NOTE 2 - THE SELECTOR CHANNEL EDIT ^NTRY FOR THE DIAGNOSTIC MONITOR (DM) SHOULD NOT CONTAIN A UNIT 
i.e. 9000 

DDEF DDEF 
SEL. 
LOG DEV. CHAN. 
NOTE 1. NOTE 2. 


ECTOR CHANNEL. 

THE C.E. LOG 
ADDRESS FOR A 


DEVICE. 
2311 D'SK 


DRIVE OR A 2841 CONTROL 


UNIT. 








* 

o 

o 
o 
u. 
a. 








a. 

z 

UJ 

o 

z 

Ul 

=> 

o 

UJ 

to 

a 
S 

< 






cn 

Ul 

CC 

1- 
z 

Ul 

u. 

o 

o£ 
Ul 
CD 

X 
3 
Z 




INTERRUPT LEVEL 

(HEX) 
ILSW 3 IT (HEX) 
CHANNEL OR F 




INTERRUPT LEVEL 

(HEX) 
ILSW BIT (HEX) 
CHANNEL 










































COLUMN 


! 


bL,U 
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9|10 


11 


12 


13 


l-?'5 


16 


17 


18 


19 


?0 

1 — 1 


21 










2? 










31 










>S 










M 










U6 


1 






51 










r,.' 










61 


1 






66 










71 


! ! 1 


CARD 
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°i E 





0^5 








-r — -r* 

° 2 ^ 
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END EC. 


E 


1 


k 








S 


F 


F 


FF 


$3 










8 










8 










^ 










8 










K 










8 










s 










8 




l 


8 










^ 








S 










K 






1 




















8 








S 










S 










8 










s 








K 










SI 










§ 










§ 










§ 








8 








8 








^ 






§ 






















8 










8 








K 










8 






N 








S 








K 








8 










S 










§ 








& 










8 




I 


N 










^ 


I 


















^ 










§ 










§ 










S 











a 










B 










§ 










s 


! 






§ 










§ 










S 










8 










S 










^ 
^ 


I 







DATE 14N0V69 30JAN70 22N0V7' 

EC NO. *Q1319 U31319A ^31328 



PROG ID Q814-* 
PAGE 7 



o 






o 

O 
D 


D 



« ( i < i r i ( < ( i i x x i < i < < < < t t < < < < < ( < ( ( ( 



IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 
1800 AUX CORE FUNCTION TEST (MAIN LINE) 



PART NO. 2279454 i IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 
PAGE 1 | 

1800 AUX CORE FUNCTION TEST (MAIN LINE) 



PART NO. 2279454 
PAGE 1A 



;~> 



J 



u 




j 



3 



) 
) 
) 
) 



DATE 
EC NO. 



TABLE OF CONTENTS 
PARAGRAPH DA __ 

PAGE 

1. PURPOSE i 

2. REQUIREMENTS i 

2.1 PROGRAM REQUIREMENTS 

2.2 EQUIPMENT REQUIREMENTS 

3. OPERATING PROCEDURE . . . 1A 

3.1 PROGRAM LOADING 

3.2 PROGRAM OPERATION 

3.2.1 TABLE 0-PROGRAM CONTROL FUNCTION 

3.2.2 TABLE 1-ROUTINE SELECT FUNCTION 

3.2.3 TABLE 2-STARTING ADDRESS FUNCTION 

3.2.4 AUX CORE ADJUST PROCEDURE (SHMOO) 

3.3 PROGRAM HALTS 

3.4 PROGRAM TERMINATION 

4. PRINTOUTS ...... , 

4.1 STATUS MESSAGES 

4.2 ERROR MESSAGES 

5. COMMENTS .,» 6A 

5.1 PROGRAM DESCRIPTION- 

5.2 TEST ROUTINES 

6. APPENDIX 8 

6.1 EDIT PROCEDURE 

1. PURPOSE 

THE AUX CORE FUNCTION TEST IS DESIGNED TO TEST THE 1800 FEAT 2 AUX CORF 
FOR COMPLIANCE WITH THE PRODUCT SPECIFICATIONS. 

2. REQUIREMENTS 

2.1 PROGRAM REQUIREMENTS 

THIS PROGRAM RUNS UNDER CONTROL OF THE DIAGNOSTIC MONITOR. THIS 
PROGRAM THEREFORE REQUIRES THE SAME PREREQUISITES AND DECKS AS THE 
DIAGNOSTIC MONITOR. (REFERENCE DIAGNOSTIC MONITOR, PID 0801, 
SECTION 2). MAIN MEMORY AND THE CPU MUST BOTH BE OPERATING CORRECTLY 
PRIOR TO RUNNING THIS PROGRAM. 

*** NOTE *** 

THIS PROGRAM WILL NOT RUN ON-LINE UNDER THE MPX SYSTEM. 

2.2 EQUIPMENT REQUIREMENTS 

A. 1800 FEAT 2 AUXILLARY MEMORY. 

B. HARDWARE AS REQUIRED BY DIAGNOSTIC MONITOR. (PID 0801-SECTION 2) 



3. OPERATING PRECEDURE 



14N0V69 
431319 



06NOV70 
431323 



PROG ID 
PAGE 



3.1 



3.2 



PROGRAM LOADING 

THE STANDARD LOADING PROCEDURE AS DESCRIBED IN THE DIAGNOSTIC 
MONITOR OPERATING PROCEDURE. (PID 0801-SECTlON 3) 

PROGRAM OPERATION 

THE STANDARD DIAGNOSTIC MONITOR OPERATING PROCEDURES APPLY. THESE 
PROCEDURES ARE SUMMARIZED HERE. REFERENCE DIAGNOSTIC MONITOR 
OPERATING PROCEDURES FOR THE DETAILS OF PARTS 1 THROUGH 4 AND *6 
BELOW. (PID 0801-SECTION 3) 

1. CLEAR STORAGE. 

2. LOAD DIAGNOSTIC MONITOR. 

3. SELECT MODE OF EXECUTION. 

4. SELECT MONITOR CONTROL OPTIONS. 

5. SELECT THIS PROGRAMS OPTIONS FROM TABLES THRU 2 BELOW. 

IF NO OPTIONS ARE SELECTED, THE PROGRAM WILL AUTOMATICALLY RUN 
ALL ROUTINES IN SEQUENCE. EACH ROUTINE WILL TEST ALL OF AUX 

CORE. WHEN all routines are completed the program will 

TERMINATE, UNLESS THE DIAGNOSTIC MONITOR OPTION, 'LOOP ALL 
PROGRAMS', IS SELECTED. 

TABLE 0-PROGRAM CONTROL FUNCTION 
TABLE 1-ROUTINE SELECT FUNCTION 
TABLE 2-STARTING ADDRESS SELECTION. 

6. INSTRUCT MONITOR TO EXECUTE. 



****************$$$ WARNING 
* 

* DATA STORED IN AUX CORE W 

* AS A RESULT OF RUNNING TH 

* RUNNING, DUMP ERROR LOGS. 

* MACHINE TO THE CUSTOMER, 

* PER INSTRUCTIONS GIVEN IN 
RELOAD AUX LOADER AND AUX 
(IF DESIRED). 






******** *********** 
* 

ILL BE DESTROYED 
IS PROGRAM. BEFORE 

BEFORE RETURNING 
CLEAR AUX CORE AS 

SECTION 3.4. 

1442 EXERCISER 



i******************^.^********!**;;, $$$$;)::(,#$:(. $$$ 
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*: 

* 

* 

* 
* 
* 

* 

* 
* 
* 

* 

* 

# 

* 

* 
* 

* 
* 



3.2.1 



************ ***** 



TABLE o 



PROGRAM CONTROL FUNCTION 



SENSE/PROGRAM * 
01234567* 



1. SET FUNCTION 00 IN SENSE/PROGRAM SWITCHES AND 1. 
(AS SHOWN) 

2. SET PID IN SENSE/PROGRAM SWITCHES 2 THROUGH 7. 
(AS SHOWN) 

3. SET DESIRED CONTROL OPTIONS IN DATA ENTRY SWITCHES 0-15. 
* 4. PRESS CONSOLE INTERRUPT. 

00011111* 

*********************************£.;,.). 

DATA ENTRY SWITCHES * DESCRIPTION 
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 * 

1. .TERMINATE PROGRAM. THIS OPTION WILL 
CAUSE THE PROGRAM TO TERMINATE 
IMMEDIATELY. 



******************************** *-.**^.^ ! j :(! 

* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 



1 BYPASS LOG MESSAGES. ALL PRINTOUTS 

EXCEPT ERROR MESSAGES ARE BYPASSED. 
(REFERENCE DIAG. HON. OPTIONS TO 
BYPASS ERROR MESSAGES) 

1 LOCK ON ERROR. THE PROGRAM WILL LOOP 

THE PORTION OF THE ROUTINE 
ENCOUNTERING THE ERROR AS LONG AS 
THE ERROR PERSISTS. 

1 PRINT 1ST ERROR ONLY. THE PROGRAM 

WILL PRINT O'^LY THE FIRST ERROR 
ENCOUNTERED IN EACH TEST ROUTINE. 



.REQUEST ROUTINE BEGINNING MESSAGES. 
THE PROGRAM Wl|_L PROVIDE A STATUS 
MESSAGE AS EACH TEST ROUTINE BEGINS. 

1 LOCK ON SINGLE ADDRESS. EACH ROUTINE 

WILL TEST ONLY THE SINGLE AUX ADDRESS 



* 
* 
* 

* 
* 

* 
* 

* 
* 



SPECIFIED IN SWITCH FUNCTION 3 (TABLE * 
2) 



1 LOCK ON SINGLE BLOCK. EACH ROUTINE 

WILL BEGIN TESTING WITH THE AUX 
ADDRESS SPECIFIED IN SWITCH FUNCTION 
3 (TABLE 2) AND CONTINUE TO THE END 
OF THAT 256 WORD BLOCK OF AUX CORE. 

NOTE-IF BOTH BITS 7 AND 8 ARE SELECTED THE PROGRAM WILL LOCK ON SINGLE 
ADDRESS. 

*************************************3****** 



* 

* 
* 

* 
******************************* 



3.2.2 



TABLE 1 



ROUTINE SELECT FUNCTION 



******************* 1# SET FUNCTION 01 IN SENSE/PROGRAM SWITCHES AND 1. 

* * (AS SHOWN) 

* SENSE/PROGRAM * 2. SET PID IN SENSE/PROGRAM SWITCHES 2-7. 

* * (AS SHOWN) 

* 1 2 3 4 5 6 7 * 3. SET DESIRED ROUTINE IN DATA ENTRY SWITCHES 12-15. 

* * 4. PRESS CONSOLE INTERRUPT. 
*01011111* 
*************************************************** *****££3S* ***********$$*$.>..,. 

* DATA ENTRY SWITCHES * DESCRIPTION 

* 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 * 



* 
* 
* 
* 



X X... ROUTINE TO BE LOOPED. 

ENTER A HEX NUMBER FROM 1 TO 9. 
NOTE- 

A NUMBER GREATER THAN 9 OR A NEGATIVE NUMBER ENTERED IN THIS FUNCTION 
WILL RESULT IN AN ERROR MESSAGE AND TERMINATION OF THE PROGRAM. 

THE PROGRAM CAN BE CAUSED TO START WITH A SELECTED ROUTINE AND THEN 
RUN THE REMAINING ROUTINES IN SEQUENCE BY- 

A. ENTER STARTING ROUTINE INTO THIs FUNCTION. 

B. EXECUTE THIS PROGRAM. 

C. ENTER HEX 0000 INTO THIS FUNCTION. 

WHEN THIS FUNCTION CONTAINS HEX 0000 ALL ROUTINES ARE RUN IN SEQUENCE 



* ROUTINE NUMBER 
* 

1 

2 

3 
4 
5 
6 
7 
8 
9 



DESCRIPTION 

TEST INSTRUCTIONS WHICH CAN REFERENCE AuX CORE 

AUX CORE ADDRESSING TEST 

FLOATING ONE PATTERN TEST 

FLOATING ZERO PATTERN TEST 

WORST CASE" PATTERN TEST 

COMPLEMENT WORST CASE PATTERN TEST 

ALTERNATE ZERO/ONE BIT PATTERN TEST 

ALTERNATE ONE/ZERO BIT PATTERN TEST 

ILLEGAL ADDRESSING TEST 



* 
* 
* 
* 
* 
* 
* 
* 
* 
* 

* REFERENCE SECTION 5.2 FOR A COMPLETE DESCRIPTION OF EACH TEST ROUTINE, 
^^^^^^^^s^*****************************************^^^^^^^^.,... 



** 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 

* 
■ * 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
=* 
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3.2.3 



TABLE 2 



STARTING ADDRESS FUNCTION 



******************* 
* * 

* 

* 
* 



1. SET FUNCTION 11 IN SENSE/PROGRAM SWITCHES AND 1. 
(AS SHOWN) ~^r- 
SENSE/PROGRAM * 2. SET PID IN SENSE/PROGRAM SWITCHES 2-7. 

* (AS SHOWN) 

* 3. SET SELECTED ADDRESS IN DATA ENTRY SWITCHES 0-15. 
*01234567* 4. PRESS CONSOLE INTERRUPT 

* * 

* . 1 1,011111* 
s********************************,***;^^^*-.^*^^^ 

* D*ATA -ENTRY SWITCHES * DESCRIPTION 

* 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 * 



*XXXXOOO,XXX 



* 
* 
* 

* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 



lA A 



X X X... STARTING AUX CORE ADDRESS. ENTER 
ANY LEGAL AUX AdRS HEX 0000-F1FF. 



THIS ADDRESS IS USED IN THE PROGRAM AS FOLLOWs- 

SWITCH FUNCTION 00 

BITS 7-8 = OO-EACH TEST ROUTINE BEGINS WITH THE ADDRESS IN THIS SW. FNC. 
, AND CONTINUES TESTING SEQUENTIAL ADDRESSES THRU THE MAXIMUM 
ADDRESS AS ENTERED ON THE EDIT CARD. 

BITS 7-8 = 10-EACH TEST ROUTINE BEGINS WITH THE ADDRESS IN THIS SW. FNC. 
AND CONTINUES TESTING SEQUENTIAL ADDRESSES THRU THE END 
OF THE 256 WORD 8L0CK ASSOCIATED WITH THIS ADDRESS. 

BITS 7-8 = 01 

BITS 7-8 = 11-EACH TEST ROUTINE WILL TEST ONLY THE SINGLE ADDRESS 
SPECIFIED BY THIS SWITCH FUNCTION. 

*** NOTE *** 
ANY OF THE FOLLOWING CONDITIONS IN THE ADDRESS ENTERED WILL RESULT IN 
AN ERROR MESSAGE AND TERMINATION OF THE PROGRAM. 

1. ANY OF BITS 4-5-6 = 1. 

2. BIT 3=1 AND BIT 7=0. 

3. BIT 3=0 AND BIT 7=1. 

4. SELECTION OF AN ADDRESS WHICH IS GREATER THAN THE MAXIMUM 
ADDRESS ENTERED ON THE PROGRAM EDIT CARD. 



***************-- !S: *«*4 ! ---« #s ^^^^^^^^^^ ss ^^^^^^^ ss ^^^ ts ^^^^^^^^^^^^^^^^^^^^^^^^^ !ti 



* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 
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3.3 



3.4 



DATE 
EC NO. 



14N0V69 
431319 



1. 
2. 
3. 
4. 
5. 

6. 
7. 

8. 
9. 

10. 

11. 

12. 

13. 
14. 

15. 
16. 
17. 



18. 



SELECT ROUTINE 5 AS ROUTINE TO BE LOOPED. 

CLEAR SWITCH FUNCTION 11. 

SET BIT 9 TO A ONE IN SWITCH FUNCTION 00. 

EXECUTE PROGRAM. 

WHEN THE 'A001' MESSAGE IS RECEIVED THE SECOND TIME - PRESS 

THE 'STOP' BUTTON ON THE CONSOLE. 

SET 'I-CQUNTER' TO THE DESIRED AUX CORE 256 WORD BLOCK. 

PLACE MODE SWITCH IN 'DISPLAY'. 

SET THE 'FORCE AUX' SWITCH TO ON. 

WHILE HOLDING DOWN THE CLEAR STORAGE PUSHBUTTON DEPRESS THE START 

rUonUU I I UN • 

LOWER V(REF) UNTIL A PARITY FAILURE OCCURS. 

RECORD THE VALUE OF V(REF). 

SET V(REF) TO A POINT WITHIN THE OPERATABLE RANGE AND REPEAT 

STEPS 6 THROUGH 9. 

RAISE V(REF) UNTIL A PARITY ERROR OCCURS. 

RECORD THE VALUE OF V(REF). 

SELECT ROUTINE 6 AS THE ROUTINE TO BE LOOPED. 

SET V(REF) TO A POINT WITHIN THE OPERATABLE RANGE AND REPEAT 

STEPS 2 THROUGH 11. 

SET V(Z) AT VIZ) NOMINAL+6 PERCENT. 

REPEAT STEPS 1 THROUGH \\ FOR THIs VALUE OF V(Z). 

TAKE THE HIGHEST OF THE VALUES OF V(REF) FOUND BY LOWERING V(REF) 

AND THE LOWEST OF THE FOUR VALUES OF V(REF) FOUND BY RAISING 

V(REF). SET V(REF) TO THE VALUE WHICH IS THE AVERAGE OF THESE 

TWO VOLTAGES. 

REPEAT STEPS 1 THROUGH 17 UNTIL ALL V(REF) POTENTIOMETERS 

HAVE BEEN ADJUSTED. 



PROGRAM HALTS 

THERE ARE NO WAITS IN THIS PROGRAM, THEREFORE, IT SHOULD NEVER WAIT 
UNLESS THE DIAGNOSTIC MONITOR OPTION OF HALT ON ERROR IS SELECTED. 

PROGRAM TERMINATION 

THE PROGRAM NORMALLY TERMINATES AT THE COMPLETION OF ALL TEST 
ROUTINES. THE PROGRAM CAN BE MANUALLY TERMINATED PRIOR TO NORMAL 
TERMINATION- 

1. THROUGH USE OF THE MONITOR DE-EXECUTE OPTION. 

2. THROUGH USE OF THE SW FNC OO-BlT 15 OPTION IN THIS PROGRAM. 

.THE PROGRAM WILL FORCE TERMINATION (AFTER AN ERROR MESSAGE) IF ONE 
OF THE FOLLOWING ERRORS ARE ENCOUNTERED- 

1. THE MAXIMUM ADDRESS EDIT ENTRY IS IN ERROR. 

A. ANY OF BITS 4-5-6 ARE EQUAL TO 1. 

B. BIT 3 IS EQUAL TO AND BIT 7 IS EQUAL TO 1. 

C. BIT 3 IS EQUAL TO 1 AND BIT 7 IS EQUAL TO 0. 
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2. AN ILLEGAL ROUTINE NUMBER IS SELECTED IN SWITCH FUNCTION 01. 

A. NUMBER IN SWITCH FUNCTION 01 IS GREATER THAN 9. 

B. NUMBER IN SWITCH FUNCTION 01 IS NEGATIVE. 

3. AN ILLEGAL ADDRESS IS SELECTED IN SWITCH FUNCTION 11. 



\4y 




4. 



A. ADDRESS IN SWITCH FUNCTION 11 Is GREATER THAN THE 
MAXIMUM ADDRESS AS ENTERED ON EDIT CARD EDOO. 

B. ANY OF BITS 4-5-6 ARE EQUAL TO 1. 

C. BIT 3 IS EQUAL TO 1 AND BIT 7 IS EQUAL TO 0. 

D. BIT 3 IS EQUAL TO AND BIT 7 IS EQUAL TO 1. 

AN ATTEMPT BY THE PROGRAM TO STORE INTO AUX ADDRESS-0000 
RESULTED IN STORING INTO MAIN MEMORY AT ADDRESS 0000. 



AT THE CONCLUSION OF RUNNING THIS PROGRAM (JUST PRIOR TO 
RETURNING THE MACHINE TO THE CUSTOMER), CLEAR AUX CORE 
IN THE FOLLOWING WAY. 

1. TURN 'FORCE AUX< SWITCH ON. 

2. LOAD I-REG TO EACH OF THE FOLLOWING LOCATIONS AND CLEAR 
EACH BLOCK OF AUX CORE TO ZERO. (D.E. SWITCHES TO /OOOO 
UNTIL 'STOP SWITCH' DEPRESSED 

/OOOO /1100 _ , . . 

j i ! yzo-cro /3100 f' °& yn j> /r-.&sit /jzt '* 

Si frmo /5100 ' -*~<f fffrtUA.**^ 

0\ T^Jtroo moo 

3., RELOAD AUX LOADER (PIO 08A1). 

4. TURN 'FORCE AUX' SWITCH OFF. 

5. LOAD AUX 1442 (PID 08A9 OR 08aA) PROGRAM IF DESIRED. 

6. IF 2790 IS PRESENT, RESET A.S. ERR CNTS WITH THE CE CORELOAD. 
THE ABOVE PROCEDURE WILL RESET ERROR LOGS AND RESTORE AUX CORE. 



^ 



SL- 



J2^ Jf y$(yX ^^ 






PRINTOUTS 

maL^d INT ° UTS PR0VIDED BY THIS PROGRAM ARE STRUCTURED IN THE FOLLOWING 

MANNER* 



PID MID RID RAD MODI 



-M0D7 



3 

D 

) 
) 
) 
) 

) 



WHERE- 

PID -PROGRAM ID IN HEX (1F00) 

r!d iSSfJSi numLMn hex X ! X - STATUS MESSaGEs ' *™-w°« ^ssages, 

RAD -ROUTINE ADDRESS IN HEX. 

MODI THROUGH M0D7 ARE OPTIONAL HEX WORDS. REFERENCE INDIVIDUAL MESSAGES. 
4.1 STATUS MESSAGES 

PID MID RID RAD 

1F00 A001 XXXX XXXX 

™ E R UTINE SPECIFIED BY RID IS BEGINNING. THIS PRINTOUT IS OPTIONAL AND 
OCCURS ONLY IF SELECTED IN SWITCH FUNCTION 00. (REFERENCE 3.2-TABLE 01 

PID MID RID RAD 
1F00 A002 0008 XXXX 

THE PROGRAM IS COMPLETE. RID AND RAD HAVE NO MEANING IN THIS MESSAGE. 



DATE 
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PROG ID 
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081F-* DATE 
4 JEC NO. 



PID MID RID RAD 

1F00 A003 XXXX XXXX 

THE PROGRAM IS TERMINATED BECAUSE OF OPERATOR REQUEST THRU BIT 15 OF 
SWITCH FUNCTION 00. RID AND RAD SPECIFY THE ROUTINE WHICH WAS RUNNING 
AT THE TIME OF THE TERMINATION. 

4.2 ERROR MESSAGES 

PID MID RID RAD MODI 

1F00 E001 OOOO XXXX XXXX 

THE MAXIMUM ADDRESS EDITED INTO THE PROGRAM Is ILLEGAL. THE PROGRAM IS 
TERMINATED. RID AND RAD HAVE NO MEANING IN THIS MESSAGE. 

MODI-CONTENTS OF EDIT ENTRY IN HEX. 

EDIT CARD EDOO CONTAINS ONE OR MORE OF THE FOLLOWING ERRORS IN THE MAXIMUM 
AUX CORE ADDRESS ENTRY. THE PROGRAM IS TERMINATED. 

1. ONE OR MORE OF BITS 4-5-6 IS EQUAL TO 1. 

2. BIT 3 EQUAL TO AND BIT 7 EQUAL TO 1. 

3. BIT 3 EQUAL TO 1 AND BIT 7 EQUAL TO 0. 

PID MID RID RAD MODI 
1F00 E002 XXXX XXXX XXXX 

AN ILLEGAL ROUTINE NUMBER IS SELECTED IN SWITCH FUNCTION 01. THE PROGRAM 

IS TERMINATED. 

MODI-CONTENTS OF SWITCH FUNCTION Ol IN HEX. 
SWITCH FUNCTION 01 CONTAINS ONE OF THE FOLLOWING ERRORS. 

1. A' NUMBER GREATER THAN 9. 

2. A NEGATIVE NUMBER. 

PID MID RID RAD MODI 
1F00 E003 XXXX XXXX XXXX 

AN ILLEGAL AUX ADDRESS IS SPECIFIED IN SWITCH FUNCTION 11. THE PROGRAM 

IS TERMINATED. 

MODI-CONTENTS OF SWITCH FUNCTION 11 IN HEX. 
SWITCH FUNCTION 11 CONTAINS ONE OR MORE OF THE FOLLOWING ERRORS. 

1. AN ADDRESS GREATER THAN THE MAXIMUM AUX ADDRESS EDITED INTO THE 
PROGRAM. 

2. ONE OR MORE OF BITS 4-5-6 IS EQUAL TO 1. 

3. BIT 3 IS EQUAL TO AND BIT 7 Is EQUAL TO 1. 

4. BIT 3 IS EQUAL TO 1 AND BIT 7 IS EQUAL TO 0. 

PID MID RID RAD 

1F00 E004 OOOO XXXX 

AN ATTEMPT TO STORE INTO AUX ADDRESS HEX OOOO RESULTED IN STORING INTO 
MAIN ADDRESS HEX OOOO. THE PROGRAM IS TERMINATED UNLESS LOCK ON ERROR 
OPTION IS SELECTED IN SWITCH FUNCTION 00. RID AND RAD HAVE NO MEANING IN 
THIS MESSAGE. 
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PID MID RID RAD MODI MOD 2 M0D3 

1F00 E005 XXXX XXXX XXXX XXXX XXXX 

AN ATTEMPT TO REFERENCE A LEGAL AUX CORE ADDRESS RESULTED In An INTERNAL 
ERROR INTERRUPT. T H E MOST PROBABLE CAUSE I S THE STORAGE PROTECT BIT IS 
SET ON THIS ADDRESS. CLEAR AUX CORE AND RETRY THE TEST. 

MODI-FAILING AUX CORE ADDRESS IN HEX. 

M0D2-THE INSTRUCTION (IN HEX) WHICH CAUSED THE FAILURE. 

M0D3-THE ADDRESS PORTION OF THE FAILING INSTRUCTION. 

*** NOTE *** 

IN THE CASE OF INDEXED'OR INDIRECT INSTRUCTIONS 'MODI* AND 
'MODS' WILL NOT AGREE IN THE ABOVE PRINTOUT. 'MODI' WILL 
ALWAYS SPECIFY THE ACTUAL AUX ADDRESS REFERENCED BY THE 
INSTRUCTION IN »M0D2« AND 'M0D3'. 

PID MID RID RAD MODI M0D2 M0D3 M0D4 
1F00 E006 0001 XXXX XXXX FFFF 0000 XXXX 

THE SEQUENCE 'STO L'-'LD L' USING AUX CORE FAILED. 

M0D1-AUX ADDRESS BEING TESTED IN HEX. 

M0D2-THE CONTENTS OF THE A-REGISTER PRIOR TO ISSUING THE STORE 

INSTRUCTION. (SHOULD BE) 
M0D3-THE PRE-SET CONTENTS OF THE A-REGISTER PRIOR TO ISSUING THE 

LOAD INSTRUCTION. 
M0D4-THE CONTENTS OF THE A-REGISTER AFTER ISSUING THE LOAD 

INSTRUCTION. (WAS) 



PID MID RID RAD MODI M0D2 M0D3 M0D4 
1F00 E007 0001 XXXX XXXX 0000 FFFF XXXX 

THE SEQUENCE 'STO I'-'LD I' USING AUX CORE FAILED. 

'E006' FOR THE MEANING OF MODI THROUGH M0D4. 

PID MID RID RAD MODI M0D2 M0D2 M0D4 
1F00 E008 0001 XXXX XXXX FFFF 0000 XXXX 

THE SEQUENCE 'STO I'-'LD I' USING AUX CORE FAILED. 

•E006' FOR THE MEANING OF MODI THROUGH M0D4. 

PID MID RID RAD MODI M0D2 M0D3 M0D4 
1F00 E009 0001 XXXX XXXX 0000 FFFF XXXX 

THE SEQUENCE 'STO I'-'LD LI' USING AUX CORE FAILED. 

'E006' FOR THE MEANING OF MODI THROUGH M0D4. 

PID MID RID RAD MODI M0D2 H0D3 M0D4 

1F00 E010 0001 XXXX XXXX FFFF 0000 XXXX 

THE SEQUENCE 'STO Ll'-'LD L' USING AUX CORE FAILED. 

»E006' FOR THE MEANING OF MODI THROUGH M0D4. 



REFERENCE MESSAGE 



REFERENCE MESSAGE 



REFERENCE MESSAGE 



REFERENCE MESSAGE 



) 
) 
) 



PID MID RID RAD MODI M0D2 M0D3 K0D4 HODS M0D6 MOD 7 
1F00 E011 0001 XXXX XXXX 0000 0000 FFFF FFFF XXXX XXXX 
THE SEQUENCE "STD L'-'LDD L' USING AUX CORE FAILED. 

M0D1-THE EVEN ADDRESS OF THE EVEN/ODD ADDRESSES BEING TESTED IN HEX. 
M0D2-THE CONTENTS OF THE A-REGISTER PRIOR TO ISSUING Trif STORE DOUBLE 

INSTRUCTION. (SHOULD BE) 
M0D3-THE CONTENTS OF THE Q-REGISTER PRIOR TO ISSUING Ti-c STORE DOUBLE 

INSTRUCTION. (SHOULD BE) 
M0D4-THE PRE-SET CONTENTS OF THE A-REGISTER PRIOR TO ISSUING THE 

LOAD DOUBLE INSTRUCTION. 
M0D5-THE PRE-SET CONTENTS OF THE Q-REGISTER PRIOR TO ISSUING THE 

LOAD DOUBLE INSTRUCTION. 
M0D6-THE CONTENTS OF THE A-REGISTER AFTER ISSUING THE LOAD DOUBLE 

INSTRUCTION. (WAS) 
M0D7-THE CONTENTS OF THE Q-REGISTER AFTER ISSUING THE LOAD DOUBLE 

INSTRUCTION. (WAS) 

PID MID RID RAD MODI M0D2 M0D3 M0D4 M0D5 M0D6 M0D7 

1F00 E012 0001 XXXX XXXX AAAA AAAA 0000 0000 XXXX XXXX 

THE SEQUENCE 'STD I'-'LDD I' USING AUX CORE FAILED. REFERENCE MESSAGE 

•E011' FOR THE MEANING OF MODI THROUGH M0D7. 



REFERENCE MESSAGE 



PID MID RID RAD MODI M0D2 M0D3 M0D4 M0D5 M0D6 M0D7 
1F00 E013 0001 XXXX XXXX 5555 5555 0000 0000 XXXX XXXX 

THE SEQUENCE 'STD L2'-»LDD L2 ' USING AUX CORE FAILED. 

•E011' FOR THE MEANING OF MODI THROUGH M0D7. 

PID MID RID RAD MODI M0D2 M0D3 M0D4 M0D5 
1F00 E014 0001 XXXX XXXX AAAA 5555 0000 XXXX 

THE SEQUENCE 'STO I '-'AND L' USING AUX CORE FAILED. 

M0D1-THE AUX ADDRESS BEING TESTED IN HEX. 

M0D2-THE CONTENTS OF THE A-REGISTER PRIOR TO ISSUING THE STORE 

INDIRECT INSTRUCTION. 
M0D3-THE PRE-SET CONTENTS OF THE A-REGISTER PRIOR TO ISSUING THE 

'AND' ('OR'-'EOR') INSTRUCTION. 
M0D4-THE EXPECTED CONTENTS OF THE A-REGISTER AFTER ISSUING THE 

'AND' ('OR'-'EOR') INSTRUCTION. 
M0D5-THE ACTUAL CONTENTS OF THE A-REGISTER AFTER ISSUING THE 

'AND' ( 'OR'-'EOR') INSTRUCTION. 



PID MID RID RAD MODI M0D2 M0D3 M0D4 M0D5 
1F00 E015 0001 XXXX XXXX AAAA FFFF AAAA XXXX 

THE SEQUENCE 'STO I'-'AND I» USING AUX CORE FAILED. 

•E014' FOR THE MEANING OF MODI THROUGH M0D5. 

PID MID RID RAD MODI M0D2 M0D3 M0D4 M0D5 
1F00 E016 0001 XXXX XXXX AAAA 5555 0000 XXXX 

THE SEQUENCE 'STO I'-'AND L3 ' USING AUX CORE FAILED. 

'E014' FOR THE MEANING OF MODI THROUGH M0D5. 

PID MID RID RAD MODI M0D2 M0D3 M0D4 M0D5 
1F00 E017 0001 XXXX XXXX AAAA 0000 AAAA XXXX 

THE SEQUENCE 'STO I'-'OR L' USING AUX CORE FAILED. 

'E014' FOR THE MEANING OF MODI THROUGH M0D5. 



REFERENCE MESSAGE 



REFERENCE MESSAGE 



REFERENCE MESSAGE 



PID MID RID RAD MODI M0D2 M0D3 M0D4 M0D5 
1F00 E018 0001 XXXX XXXX AAAA 0000 AAAA XXXX 

THE SEQUENCE 'STO I'-'OR I' USING AUX CORE FAILED. REFERENCE MESSAGE 

'E014' FOR THE MEANING OF MODI THROUGH M0D5. 
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PID MID RID RAD MODI M0D2 M0D3 M0D4 M0D5 
1F00 E019 0001 XXXX XXXX AAAA 0000 AAAA XXXX 

THE SEQUENCE 'STO I'-'OR LI" USING AUX CORE FAILED. 

•E014' FOR THE MEANING OF MODI THROUGH M0D5. 

PID MID RID RAD MODI M0D2 M0D3 M0D4 MODS 
1F00 E020 0001 XXXX XXXX AAAA AAAA 0000 XXXX 

THE SEQUENCE 'STO I'-'EOR L' USING AUX CORE FAILED. 

•E014' FOR THE MEANING OF MODI THROUGH MODS. 

PID MID RID RAD MODI M0D2 M0D3 M0D4 M0D5 

1F00 E021 0001 XXXX XXXX AAAA AAAA 0000 XXXX 

THE SEQUENCE 'STO I'-'EOR I' USING AUX CORE FAILED. 

'E014' FOR THE MEANING OF MODI THROUGH M005. 

PID MID RID RAD MODI M0D2 M0D3 M0D4 M0D5 
1F00 E022 0001 XXXX XXXX AAAA 0000 AAAA XXXX 

THE SEQUENCE 'STO I'-«EO R L2' USING AUX CORE FAILED. 

•E014' FOR THE MEANING OF MODI THROUGH M0D5. 
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Reference message 



REFERENCE MESSAGE 



Reference message 



PID MID RID RAD MODI M0D2 M0D3 

1F00 E028 0008 XXXX XXXX AAAA XXXX 

THE ALTERNATE 1/0 PATTERN TEST FAILED. THIS ROUTINE SETS AUX CORF TO THF 
DATA PATTERN OF HEX AAAA USING A -STO I'. THE ROUTINE THEN CHECKS EACH AUX 
CORE LOCATION FOR THE CORRECT DATA USING A »LD I'. REFERENCE MESSAGE 
'E023' FOR THE MEANING OF MODI THROUGH M0D3. " 



PID MID RID RAD MODI 

1F00 E029 0009 XXXX XXXX 

WHEN A 'LD I' FROM AUX CORE WAS 
INTERNAL ERROR INTERRUPT FAILED 



EXECUTED USING 
TO OCCUR. 



AN ILLEGAL AUX ADDRESS, THE 



MODI-ILLEGAL AUX ADDRESS BEING USED. (IN HEX) 



5. COMMENTS 



5.1 



PROGRAM DESCRIPTION 



PID MID RID RAD MODI M0D2 M0D3 

1F00 E023 0002 XXXX XXXX XXXX XXXX 

THE ADDRESSING TEST FARED. THIS ROUTINE STORES ITS OWN AnnRPS*; iMTn 
EACH AUX CORE ADDRESS AND CHECKS THAT EACH ADDRESS wStAiJS ITS oJ! 
ADDRESS. THE ROUTINE USES THE SEQUENCE 'STO I«" LD p. ° 



M0D1-AUX ADDRESS BEING TESTED IN HEX. 
M0D2-DATA WHICH WAS STORED INTO AUX CORE 
M0D3-DATA RECEIVED FROM AUX CORE (WAS) 



THIS PROGRAM RUNS UNDER CONTROL OF THE DIAGNOSTIC MONITOR AND THEREFORE 
CONFORMS TO ALL REQUIREMENTS OF THE MONITOR. THE PROGRAM BASICALLY 
CONSISTS OF A CONTROL ROUTINE AND A SERIES OF TEST ROUTINES. 

THERE IS ONE COMMON TABLE AROUND WHICH ALL ROUTINES ARE ORlFNTFD. THIS 

S°by T ?he E prSgrJm" S ALL ™ E C0NSTaNTS ' ™°gr U Jm N sw S ikhes anTwork locations 



(SHOULD BE) 



PID MID RID RAD MODI M0D2 M0D3 
1F00 E024 0003 XXXX XXXX XXXX XXXX 

s 6 Xo; s c;°»^: tD ■•• reference ™«"« •»«*• ™ ™ ™*s g „ f ihe 

PID MID RID RAD MODI M0D2 M0D3 
1F00 E025 0004 XXXX XXXX XXXX XXXX 

%$%&£?&:" "• * irMKe " ES " G£ •""• ™ ™""Ku u £"S ™ 

PID MID RID RAO MODI M0D2 M0D3 

1F00 E026 OOOX XXXX XXXX XXXX XXXX 

RID = 0005-THE WORST CASE PATTERN TEST FAILED. 

RID = 0006-THE COMPLEMENT WORST CASE PATTERN TEST FAILED. 

THIS ROUTINE SETS AUX CORE TO THE PATTERN USING A 'STO I'. THE ROUTINE 

THEN CHECKS EACH AUX CORE LOCATION FOR THE CORRECT DATA USING A 

REFERENCE MESSAGE -E023' FOR THE MEANING OF MODI THROUGH MOdI. ' 

PID MID RID RAD MODI M0D2 M0D3 

1F00 E027 0007 XXXX XXXX 5555 XXXX 

THE ALTERNATE 0/1 PATTERN TEST FAILED. THIS ROUTINE SETS AUX CnRF Tn the 
DATA PATTERN OF HEX 5555 USING A 'STO I'. T HE ROUTINE THEN CHECKS EACH AUX 
CORE LOCATION FOR THE CORRECT DATA USING A 'LD I'. REFERENCE MESSAGE 
•E023« FOR THE MEANING OF MODI THROUGH M0D3. "tFEKENCE MESSAGE 



5.2 

ROUTINE 
NUMBER 



TEST ROUTINES 
ROUTINE DESCRIPTION 



THIS ROUTINE TESTS THE INSTRUCTIONS WHICH CAN REFERENCE AUX CORE. 
THE ROUTINE CHECKS ONE AUX ADDRESS USING ALL THE BELOW SEQUENCES 
BEFORE ADVANCING TO THE NEXT ADDRESS. THE ROUTINE CONTINUES TO THE 
END OF AUX CORE, UNLESS LOCK ON SINGLE ADDRESS OR LOCK ON SINGLE 
BLOCK OPTION IS SELECTED. THE ROUTINE FORCES ALL ODD ADDRESSES TO 
EVEN WHEN TESTING THE LOAD AND STORE DOUBLE SEQUENCES. 



rHE 


INSTRUCTION SEQUENCES TESTED ARE 


l. 


STO 


L - LD L 


2. 


STO 


I - LD I 


3. 


STO 


I - LD LI 


4. 


STO 


LI - LD L 


5. 


STD 


L - LDD L 


6. 


STD 


I - LDD I 


7. 


STD 


L2 - LDD L2 


8. 


STO 


I - AND L 


9. 


STO 


I - AND I 


10. 


STO 


I - AND L3 


11. 


STO 


I - OR L 


12. 


STO 


I - OR I 


13. 


STO 


I - OR LI 


14. 


STO 


I - EOR L 


15. 


STO 


I - EOR I 


16. 


STO 


I - EOR L2 



THIS ROUTINE PROVIDES A UNIQUE ERROR MESSAGE FOR EACH OF THE ABOVE 
COMBINATIONS IN CASE OF A FAILURE. 
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THIS ROUTINE WILL SET AN AUX CORE LOCATION TO ITS OWN ADDRESS USING 
A 'STO I' INSTRUCTION. THE LOCATION WILL THEN BE LOADED USING A >LD 1' 
INSTRUCTION AND THE RESULT CHECKED FOR ACCURACY. THE ROUTINE PROVIDES 
A UNIQUE ERROR MESSAGE IN CASE OF A FAILURE. AS EACH ADDRESS IS TESTED 
THE ROUTINE ThEN PROCEEDS TO THE NEXT ADDRESS UNTIL ALL OF AUX CORE 
HAS BEEN TESTED. (UNLESS LOCK ON SINGLE ADDRESS OR LOCK ON SINGLE 
BLOCK OPTION IS SELECTED) U 

THIS ROUTINE IS THE SAME AS ROUTINE 2 EXCEPT THAT A FLOATING ONE 
PATTERN IS USED. EACH AUX LOCATION Is TESTED USING EACH OF THE 
PATTERN WORDS BELOW BEFORE ADVANCING TO THE NEXT LOCATION. 
THE PATTERN WORDS USED ARE HEX- 



1. 

2. 

3. 

4. 

5. 

6. 

7. 

8. 

9. 
10. 
11. 
12. 
13. 
14. 
15. 
16. 
17. 



0000 
8000 
4000 
2000 
1000 
0800 
0400 
0200 
0100 
0080 
0040 
0020 
0010 
0008 
0004 
0002 
0001 



THIS IS THE WORST CASE PATTERN TEST. THE ROUTlNF IS A TWO PASS 
ROUTINE. ON ThE FIRST PASS ALL OF AUX CORE IS SET TO THE WORST CASE 
PATTERN, UNLESS LOCK ON SINGLE ADDRESS OR LOCK ON SINGLE BLOCK OPTION 
IS SELECTED. IN THIS CASE ALL THE SELECTED AUX CORE IS SET TO THE 
PATTERN. ON THE SECOND PASS THE ROUTINE CHECKS ALL THE PREVIOUSLY 
SET CORE FOR THE CORRECT DATA. A UNIQUE ERROR MESSAGE IS PROVIDED IN 
CASE OF A FAILURE. 

HEX- 



THE 



THIS ROUTINE IS THE SAME AS ROUTINE 3 
IS USED. 

THE PATTERN WORDS USED ARE HEX- 

1. 7FFF 

2. BFFF 

3. DFFF 

4. EFFF 

5. F7FF 

6. FBFF 

7. FDFF 

8. FEFF 

9. FF7F 

10. FFBF 

11. FFDF 

12. FFEF 

13. FFF7 

14. FFFB 

15. FFFD 

16. FFFE 



EXCEPT A FLOATING ZERO PATTERN 



PATTERN USED IS 

FFFF (64 WORDS) 

0000 (64 WORDS) 

FFFF (64 WORDS) 

0000 (64 WORDS) " 

0000 (64 WORDS) 

FFFF (64 WORDS) 

0000 (64 WORDS) 

FFFF (64 WORDS) 

REPEAT THE ENTIRE PATTERN 

THIS ROUTINE IS THE SAME AS ROUTINE 5, EXCEPT THE COMPLEMENT WORST 
CASE PATTERN IS USED. 

THE PATTERN USED IS HEX- 

0000 (64 WORDS) 

FFFF (64 WORDS) 

0000 (64 WORDS) 

FFFF (64 WORDS) 

FFFF (64 WORDS) 

0000 (64 WORDS) 

FFFF (64 WORDS) 

0000 (64 WORDS) 

REPEAT THE ENTIRE PATTERN 

THIS ROUTINE SETS ALL SELECTED AUX CORE TO THE HEX VALUE OF 5555. EACH 
CORE LOCATION IS THEN CHECKED FOR CORRECT DATA. A UNIQUE ERROR MESSAGE 
IS PROVIDED IN CASE OF AN ERROR. 

THIS ROUTINE IS' THE SAME AS ROUTINE 7 EXCEPT THE DATA USED IS HEX AAAA. 

THIS ROUTINE SETS BIT 6 = 1 IN EACH LEGAL AUX ADDRESS SELECTED AND 
EXECUTES A <LD I< INSTRUCTION TO AUX CORE. IF THIS DOES NOT RESULT 
IN AN INTERNAL ERROR INTERRUPT AN ERROR MESSAGE IS PROVIDED. 



DATE 

EC NO. 



14N0V69 
431319 



06N0V70 
431323 
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********* 


****** 


************** 


***** 


********* 


******************* 


***** 

** 
** 


********* 


************** 


******* 


***** 


********* 


■^************* 


***** 
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** 


** 


NN 


NN 


000000000000 


TTTTTTTTTTTT 


EEEEEEEEEEEE 


** 


** 


NNN 


NN 


000000000000 


TTTTTTTTTTTT 


EEEEEEEEEEEE 


** 


** 


NNNN 


NN 


00 


00 




TT 


EE 


** 


** 


NN NN 


NN 


00 


00 




TT 


EE 


** 


** 


NN NN 


NN 


00 


00 




TT 


EE 


** 


** 


NN NN 


NN 


00 


00 




TT 


EEEEEEEE 


** 


** 


NN NN 


NN 


00 


00 




TT 


EEEEEEEE 


** 


** 


NN NN NN 


00 


00 




TT 


EE 


** 


** 


NN 


NN NN 


00 


00 




TT 


EE 


** 


** 


NN 


NNNN 


00 


00 




TT 


EE 


** 


** 


NN 


NNN 


000000000000 




TT 


EEEEEEEEEEEE 


** 


** 


NN 


NN 


000000000000 




TT 


EEEEEEEEEEEE 


** 


** 
















** 


** 
















** 


***** 


*********** 


1 APPEND EX PAGE TO 


FOLLOW 


**************** 


** 
















** 


***** 


********* 


****** 


************** 


* * -V* -1" 


********* 


************** 


***** 


***** 


********* 


************************* 


********* 
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***** 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1 800 systems 

1800 FEATURES tl AUXILLARY CORE FUNCTION TEST 

6 APPENOIX 



6.1 EDIT PROCEDURE 



THIS PROGRAM REOUIRES THE ENTRY OF THE MAXIMUM AUXILLARY CORE ADDRESS AVAILABLE 
ON EDIT CARD NUMBER 00 IN PUCE OF "XXXX" AS BASED ON MAIN MEMORY SIZE IN THE 
BELOW TABLE. 



MAIN MEMORY SIZE 

8K 
16K 
24K 
32* 
40K 
«■* 
57* 
65* 



VALUE TO BE ENTERED IN XXXX BELOW 

OOFF <■ j)% &l 



11FF 

5 IFF 
71FF 
91FF 
BIFF 
01FF 
FIFF 



> erne 

f Sea 
8 ie>o 






'rv^ 



COLUMN 



CARD 



END CD. 



2 



OS 

Ul 



«/> 

Q 

< 



12 



ui 

i 



UI 
CD 

3C 
3 



15 



& 



ut o 

at an 

ss 

< li. 

X ui hi 

— te. _j 

X Q CO 
< O < 

i < k> 



17 



19 



20 21 



5~ 



26 



31 



1 



■WI'I'MM I I I j I I IKS 



1 



1 



I 



1 



1 



1 



s 



1 



milium 



H 



1 



I 



s 



i 



DATE I^HOV69 16DEC70 

EC NO. ^31319 *»3I32J 

/ 



s 



I 



s 



36 



1 



ta 



I 



1 



I 



k\ 
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NOTE— THE PROGRAM WILL PERFORM CHECKS ON THE VALUE EDITED INTO THE 
PROGRAM AT RUN TIME. 

ANY OF THE FOLLOWING ERRORS WILL CAUSE PROGRAM TERMINATION, 
FOLLOWING AN ERROR MESSAGE, WHEN THE PROGRAM IS EXECUTED. 

1. ANY OF BITS-4-5-6 EQUAL TO I. 

2. BIT 3 EQUAL TO AND BIT 7 EQUAL TO I. 

3. BIT 3 EQUAL TO 1 AND BIT 7 EQUAL TO 6. 



««6 



m 



51 



t<3 



(56 



1 



1 



s 



n 



1L 



s 



61 



66 



B 



1 



nm cum rrra- 



71 



^ 



§LI UMHIB 1 1 I El 1 1 



WB 






>• 



: 



mimmmxxMinw m 
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r 

r 

r 

C 
C 

r 

r 

c 

r 
r 
r_ 

JT 

£ 

r OATE 
C- EC NO. 



07FF 



012C 





0120 





012E 





012F 





0130 





0131 





0132 





0133 





0134 






07FF C 1F00 

0800 0000 

0801 0000 

0802 0000 

0803 0000 

0804 0000 

0805 0000 

0806 1 0812 

0807 1 0812 

0808 1 0841 

0809 0000 
080A FFFF 

080B 1 OEOE 



080C 
0800 

080E 
080F 
0810 



0000 
0000 
0000 

0000 
0000 



0811 0000 



0812 
0813 
0814 
0815 
0816 
0817 
0819 
081A 
081B 
0810 
081E 
081F 
0821 
0822 
0824 
0825 



ORG **2047 

*************************************************** 

* TABLE OF MONITOR EQUATE 

* STATEMENTS 
*************************************************** 



BEGIN EQU 
START EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 



300 

BEGIN+1 

START+1 

END+l 

LOG+1 

ERROR+1 

REQDV+1 

RELDV+l 

CRCK+1 



END 

LOG 

ERROR 

REQDV 

RELDV 

CRCK 

MATO 

* 

*************************************************** 

* MONITOR INTERFACE TABLES 

*************************************************** 

* 

/1F00 PROGRAM ID 

*-* ROUTINE ID 

*-* ROUTINE ADDRESS 



PID 


DC 


RID 


DC 


RAD 


DC 


* 




swo 


DC 


SW1 


DC 


SW2 


DC 


SW3 


DC 


* 




I PA 


DC 


LPA 


DC 


EPA 


DC 


* 




MLSCF 


DC 


TERM 


DC 


* 






DC 


* 






DC 




DC 




DC 




DC 


COMPT 


DC 



*-* 
*-* 
*-* 
*-* 

ZIPA 
2IPA 
ZEPA 

*-* 
/FFFF 

PEND 









SWITCH STORAGE-FUNCTION 



INITIALIZATION ADDRESS 
LOOP PROGRAM ADDRESS 
END PROGRAM ADDRESS 

MAIN LINE SEQUENCE CONTROL 
TERMINATOR 

LAST PROGRAM ADDRESS 

RESERVED FOR MONITOR USE 

* 

* 

* 

THIS LOCATION EQUAL TO 

ZERO PREVENTS THIS PROGRAM 

FROM RUNNING ON-LINE WITH 

THE DIMAL SYSTEM. 



EDIT FIELD-MAX AUX ADDRESS 



0000 

1010 

DOEB 

DOEB 

COFA 
1 0400 0C73 
1004 

180D 

4C20 0832 

C0F3 

1003 

4C10 0825 

1004 

4C28 0829 

700D 

1004 



* 

* 

* 

* 

DDEF DC *-* 

* 

*************************************************** 

* INITIALIZATION ROUTINE * 

*************************************************** 

* 

ZIPA DC *-* ENTRY POINT 

CLEAR ACCUMULATOR 

CLEAR ROUTINE ID 

CLEAR ROUTINE ADDRESS 

GET MAX AUX ADDRESS 

SAVE FOR PRINT 

CHECK BITS 4-5-6 

* 

BRANCH IF NOT CLEAR 

GET EDIT ENTRY 

CHECK BIT 3 

BRANCH IF 

CHECK BIT 7 

BRANCH IF 1 

SET ERROR RETURN 

ZIPC SLA 4 CHECK BIT 7 



DC 




*-* 


SLA 




16 


STO 




RID 


STO 




RAD 


LD 




DDEF 


STO 


L 


MODI 


SLA 




4 


SRA 




13 


BSC 


L 


ZIPB,Z 


LD 




DDEF 


SLA 




3 


BSC 


L 


ZlPCt- 


SLA 




4 


BSC 


L 


ZIPD,+Z 


MDX 




ZIPB 


SLA 




4 
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81F00020 
81F00030 
8 IF 00040 
81F00050 
81F00060 
81F00070 
81F00080 
81F00090 
81F00100 
81F00110 
81F00120 
81F00130 
81F00140 
81F00150 
81F00160 
81F00170 
81F00180 
81F00190 
81F00200 
81F00210 
81F00220 
81F00230 
81F00240 
81F00250 
81F00260 
81F00270 
81F00280 
81F00290 
81F00300 
81F00310 
81F00320 
81F00330 
81F00340 
81F00350 
81F00360 
81F00370 
81F00380 
81F00390 
81F00400 
81F00410 
81F00420 
81F00430 
81F00440 
81F00450 
8 IF 00460 
81F00470 
81F00480 
8 IF 00490 
81F00500 
81F00510 
8 IF 00520 
81F00530 
81F00540 
81F00550 
81F00560 
81F00570 
81F00580 
81F00590 
81F00600 
81F00610 
81F00620 
81F 00630 
81F00640 
81F00650 
81F00660 
81F00670 
81F00680 
81F00690 



\ I 
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14N0V69 
431319 



PROG ID 
PAGE 



081F-0 
1 



0826 


1 


4C10 


0829 




BSC 


L 


ZIPD,- 


BRANCH IF ZERO 


0828 





7009 






MDX 




ZIPB 


SET ERROR RETURN 


0829 





C0E7 




ZIPD 


LD 




DDEF 


GET MAX AUX ADDRESS 


082A 


1 


D400 


0C5B 




STO 


L 


MAXAD 


SAVE 


082C 


1 


6500 


0847 




LDX 


LI 


TR9 


SET RETURN 


082E 


1 


6D00 


0809 


ZIPE 


STX 


LI 


MLSCF 


* 


0830 


1 


4C80 


0812 


* 
* 
* 


BSC 


I 


ZIPA 

SET 


EXIT TO MONITOR 
ERROR RETURN 


0832 


1 


6500 


0835 


ZIPB 


LDX 


LI 


EDERR 


ERROR ADDRESS 


0834 





70F9 






MDX 




ZIPE 


GO SET 



********************* 

* ED 

* 1 

* 

* 2 

* 3 

********************* 



****************************** 
IT ENTRY IS ILLEGAL * 

. ONE OR MORE OF BITS 4-5-6 * 
IS EQUAL TO 1 * 

. BIT 3=0 AND BIT 7=1 * 
. BIT 3=1 AND BIT 7=0 * 
****************************** 



0835 1 C400 


0811 


EDERR LD 


L 


DDEF 


0837 1 D400 


0C73 


STO 


L 


MODI 


0839 1 4400 


0CE1 


BSI 


L 


PRINT 


083B E001 




DC 




/E001 


083C 1 0C73 




DC 




MODI 


083D 0001 




DC 




1 


083E 0000 




DC 







083F 4C80 


012E 


BSC 


I 


END 



0841 0000 

0842 1 4C80 0841 



0844 4480 012C 
0846 1 07FF 





0847 


1 


6700 


0C5A 




0849 





C400 


0000 




084B 





03 03 






084C 


1 


C400 


07FF 




084E 





D400 


0133 




0850 





C30A 






0851 





D440 






0852 





0000 






0853 





C400 


0000 




0855 





D311 






0856 





C303 






0857 





D400 


0000 




0859 





1010 






085A 





D400 


0133 




085C 





C311 






085D 





F30A 






085E 


1 


4C20 


0868 




0860 


1 


4400 


0CE1 




0862 





E004 




DATE 


14N0V69 




EC NO. 


431319 





GET EDIT ENTRY 

SAVE FOR PRINT 

PRINT ERROR 

MESSAGE ID 

MESSAGE ADDRESS 

WORD COUNT 

DUMMY ENTRY 

TERMINATE PROGRAM 
*************************************************** 

* PROGRAM END ROUTINE * 
*************************************************** 
* 

ZEPA DC *-* ENTRY POINT 

BSC I ZEPA EXIT ROUTINE 
* 
*************************************************** 

* BEGIN ROUTINE * 
*************************************************** 

* 

BEG BSI I BEGIN EXIT TO MONITOR 

DC PID ADRS OF PID 

* 
*************************************************** 

* CHECK BASIC ABILITY TO * 

* REFERENCE AUX CORE. TERMINATE * 

* THE PROGRAM IF NOT SUCCESSFUL * 
*************************************************** 

* 

INITIALIZE INDEX 3 

SAVE MAIN CORE 

* 

INFORM MONITOR INTERNAL 

* INTRPT IS EXPECTED 
GET PATTERN WORD 
INSTRUCTION = 

* STO L /OOOO INTO AUX 
GET MAIN CORE 
SAVE 

RESTORE MAIN CORE 
* 

CLEAR MONITOR INDICATOR 

* 

GET STORE RESULT 

CHECK RESULT 

BRANCH IF CORRECT 

PRINT ERROR 

MESSAGE ID 



TR9 



LDX 


L3 


CMN 


LD 


L 


/OOOO 


STO 


3 


ADRS1-CMN 


LD 


L 


PID 


STO 


L 


CRCK 


LD 


3 


HFFFF-CMN 


DC 




/D440 


DC 




/OOOO 


LD 


L 


/OOOO 


STO 


3 


TSTCT-CMN 


LD 


3 


ADRS1-CMN 


STO 


L 


/OOOO 


SLA 




16 


STO 


L 


CRCK 


LD 


3 


TSTCT-CMN 


EOR 


3 


HFFFF-CMN 


BSC 


L 


CNTLtZ 


BSI 


L 


PRINT 


DC 




/E004 



PART NC 
PAGE 



81F00700 

81F00710 

81F00720 

81F00730 

8 IF 00740 

81F00750 

81F00760 

81F00770 

81F00780 

81F00790 

81F00800 

81F0081O 

81F00820 

81F00830 

81F00840 

81F00850 

81F00860 

81F00870 

81F00880 

81F00890 

81F00900 

81F00910 

81F00920 

8 IF 00930 

81F00940 

81F00950 

81F00960 

81F00970 

81F00980 

81F00990 

81F01000 

81F01010 

81F01020 

81F01030 

81F01040 

81F0105O 

81F01060 

81F01070 

81F01080 

81F01090 

81F0H0O 

81F01110 

81F01120 

81F01130 

81F01140 

81F01150 

81F01160 

81F01170 

81F01180 

81F01190 

81F0120O 

81F 01210 

81F01220 

81F01230 

81F0124O 

81F0125O 

81F01260 

81F01270 

81F0128O 

81F01290 

81F01300 

81F01310 

81F01320 

81F0133O 

81F01340 

81F0135O 

81F01360 

81F01370 



PROG ID 
PAGE 



2279452 
1A 



081F-0 
1A 



r 
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r 
r 
r 

r 

r 

r 
r 
r 

/ 

c 

4 

i 

Y 
C 
£ 

i 

\r 

£ 

c. 

c 

r 



0863 0000 

0864 0000 

0865 1 0847 

0866 4C80 012E 



0868 
086A 
086B 
086C 
086E 
086F 
0871 
0873 
0875 
0877 
0878 
087A 
087C 
087E 
087F 
0881 
0882 
0883 
0885 
0886 
0888 
0889 
088A 



1 6700 
1010 

D310 

1 C400 

0319 
4C18 
4C28 
9400 
4C30 
C319 
D400 
C400 
4C04 
1008 

1 4C28 
1010 

D30E 
C400 
1007 
4C28 
1010 
03 OF 
7026 



0C5A 



0803 

088B 
0897 
0C6E 
0897 

0800 
0802 
08A7 

08AF 



0802 
0808 



088B 1 C400 0800 
088D 1 9400 0C6E 
088F 1 4C18 089F 
0891 1 C400 0800 

0893 830B 

0894 1 0400 0800 
0896 70E3 



0897 1 4400 OCEl 
0899 E002 
089A 1 0C73 
089B 0001 
089C 0000 
0890 4C80 012E 



089F 
08A1 
08A2 
08A3 
08A4 
08A5 



08A7 
08A9 
08AA 
08AB 
08 AC 
08AD 



4400 OCEl 

A002 

0000 

0000 

0000 

4C80 012E 



4400 OCEl 

A003 

0000 

0000 

0000 

4C80 012E 



DC 
DC 
DC 
BSC 

* 
********* 

********* 





TR9 

I END 



DUMMY ENTRY 

LOCK RETURN 
TERMINATE PROGRAM 



81F01380 

81F01390 

81F01400 

81F01410 

81F01420 
**********************************„,****„,** 8 1F01 43 

CONTROL ROUTINE * 

*******************************,!,**«, „****** 



CNTL 



CNTLK 



LDX 

SLA 

STC 

LD 

STO 

BSC 

BSC 

S 

BSC 

LD 

STO 

LD 

BSC 

SLA 

BSC 

SLA 

STO 

LD 

SLA 

BSC 

SLA 

STO 

MDX 



CNTLB LD 
S 

BSC 
LD 

A 

STO 

MDX 

* 

* 

* 

CNTLC BSI 
DC 
DC 
DC 
DC 
BSC 

* 

* 

* 

CNTLD BSI 
DC 
DC 
DC 
DC 
BSC 

* 

* 

* 

CNTLO BSI 
DC 
DC 
DC 
DC 
BSC 



L3 CMN 

16 
3 EROC-CMN 
L SW1 
3 M0D1-CMN 

CNTLB, ♦- 

CNTLC, +Z 

NRTNS 

CNTLC, -Z 

M0D1-CMN 

RID 

swo 

CNTLO, E 

8 

CNTLE.+Z 

16 

SNAD-CMN 

SWO 

7 

CNTLG.+Z 

16 

SNBK-CMN 

CNTLL 



INITIALIZE INDEX 3 
CLEAR ERROR OCCURRED SW 

* 

GET SWITCH FNC 1 
SAVE FOR PRINT 
BRANCH IF CLEAR 
BRANCH IF NEGATIVE 
SUB MAX SETTING 
BRANCH IF ILLEGAL 
GET SWITCH FNC 1 
SET AS ROUTINE NUMBER 
GET SWITCH FNC 
BRANCH IF TERMINATE 



81F01440 
81F01450 
81F01460 
81F01470 
81F01480 
81F01490 
81F01500 
81F01510 
81F01520 
81F01530 
81F01540 
81F01550 
81F01560 
81F01570 
81F01580 
81F01590 



IS SINGLE ADDRESS SELECTED 81F01600 



L 
L 
L 

L 



RID 

NRTNS 

CNTLD, -i 

RID 

Kl-CMN 

RID 

CNTLK 



BRANCH IF YES 

CLEAR SINGLE ADRS SW 

* 

GET SWITCH FUNCTION 
IS SINGLE BLOCK SELECTED 
BRANCH IF YES 
CLEAR SINGLE BLOCK SW 

* 

CONTINUE 

GET ROUTINE NUMBER 
CHECK PROGRAM COMPLETE 
BRANCH IF COMPLETE 
INCR ROUTINE NUMBER 

* 

CONTINUE 



ILLEGAL ROUTINE SELECTED 

PRINT PRINT MESSAGE 

/E002 MESSAGE ID 

MODI MESSAGE ADDRESS 

1 NUMBER OF MODIFIERS 

DUMMY ENTRY 

END END PROGRAM 



PRINT 
/A002 





END 



PRINT 

/A003 







END 



PROGRAM COMPLETE 

PRINT MESSAGE 
MESSAGE ID 
OUMMY ENTRY 
DUMMY ENTRY 
DUMMY ENTRY 
END PROGRAM 

PROGRAM TERMINATION REQUESTED 

PRINT MESSAGE 

MESSAGE ID 

DUMMY ENTRY 

* 

* 

TERMINATE PROGRAM 



81F01610 

81F01620 

81F01630 

81F01640 

81F01650 

81F01660 

81F01670 

81F01680 

81F01690 

81F01700 

81F01710 

81F01720 

81F01730 

81F01740 

81F01750 

81F01760 

81F01770 

81F01780 

81F01790 

81F01800 

81F01810 

81F01820 

81F01830 

81F01840 

81F01850 

81F01860 

81F01870 

81F01880 

81F01890 

81F01900 

81F01910 

81F01920 

81F01930 

81F01940 

81F01950 

81F01960 

81F01970 

81F01980 

81F01990 

81F02000 

81F02010 

81F02020 

81F02030 

81F02040 

81F02050 



IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 
1800 AUX CORE FUNCTION TEST tMAIN LINE) 



08DD 
08DF 
08E1 
08E2 
08E4 
08E6 
08E7 



6680 0800 
C400 0802 
1009 

4C10 08EA 
4400 OCEl 
A001 
0000 



SINGLE ADDRESS SELECTED 

SET SINGLE ADRS SW 

* 

GET SWITCH FUNCTION 3 
SAVE FOR PRINT 
CHECK ILLEGAL BITS 

* 

BRANCH IF ILLEGAL 

GET ADDRESS SELECTED 

CHECK BIT 3 

BRANCH IF 

CHECK BIT 7 

BRANCH IF 1 

PRINT ERROR 

CHECK BIT 7 

BRANCH IF 

PRINT ERROR 

GET CONTENTS SW FNC 3 

SAVE 

CLEAR ODD ADDRESS 

* 

GET A=0000-Q=MAXAD 
COMPARE 0000-SW3 
MAXAD GREATER 
SW3 GREATER 
SET ADDRESS 
* 

CONTINUE 

PRINT ILLEGAL SWS 
MESSAGE ID 
ADRS OF MESSAGE 
NUMBER OF MODIFIERS 
DUMMY ENTRY 
END PROGRAM 

SINGLE BLOCK REQUESTED 

SET SINGLE BLOCK SW 

* 

GET SW FNC 3 

CHECK LEGALITY 

* 

********************************************.(.**,,,*„„* 

* COMMON TEST ROUTINE 

*********************************$*****$*$***„,*„, + * # 

* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
TR 







* 
* 




SING 


08AF 


C30A 


CNTLE 


LD 


3 HFFFF-CMN 


08B0 


D30E 




STO 


3 SNAD-CMN 


08B1 


1 C400 0805 


CNTLL 


LD 


L SW3 


08B3 


D319 


CNTLJ 


STO 


3 M0D1-CMN 


08B4 


1004 




SLA 


4 


08B5 


180D 




SRA 


13 


08B6 


1 4C20 08D0 




BSC 


L CNTLF, Z 


08B8 


C319 




LD 


3 M0D1-CMN 


08B9 


1003 




SLA 


3 


08BA 


1 4C10 O8C0 




BSC 


L CNTLM, - 


08BC 


1004 




SLA 


4 


08BD 


1 4C28 08C4 




BSC 


L CNTLN, +Z 


08BF 


7010 




MDX 


CNTLF 


08C0 


1004 


CNTLM 


SLA 


4 


08C1 


1 4C10 08C4 




BSC 


L CNTLN, - 


08C3 


700C 




MDX 


CNTLF 


08C4 


C319 


CNTLN 


LD 


3 M0D1-CMN 


08C5 


03 03 




STO 


3 ADRS1-CMN 


08C6 


1010 




SLA 


16 


08C7 


D302 




STO 


3 ADRS-CMN 


08C8 


CBOO 




LDD 


3 CMN-CMN 


08C9 


BB02 




DCM 


3 ADRS-CMN 


08CA 


7001 




MDX 


CNTLP 


08CB 


7004 




MDX 


CNTLF 


08CC 


C319 


CNTLP 


LD 


3 M0D1-CMN 


08CD 


D302 




STO 


3 ADRS-CMN 


08CE 


1 4C00 08DD 


* 
CNTLF 


BSC 


L TR 


08D0 


1 4400 OCEl 


BSI 


L PRINT 


08D2 


E003 




DC 


/E003 


08D3 


1 0C73 




DC 


MODI 


08D4 


0001 




DC 


1 


08D5 


0000 




DC 





08D6 


4C80 012 E 


* 
* 
* 


BSC 


I END 

SINGL 


08D8 


C30A 


CNTLG 


LD 


3 HFFFF-CMN 


0809 


D30F 




STO 


3 SNBK-CMN 


08DA 


1 C400 0805 




LD 


L SW3 


08DC 


70D6 




MDX 


CNTLJ 



THIS ROUTINE WILL DETERMINE THE PATTERN TO BE 
SET IN AUXILLARY CORE AND BRANCH TO THE PROPER 
ROUTINE TO TEST THAT PATTERN. THE ROUTINE WILL 
CHECK THE LOOP ON SINGLE ADDRESS AND LOOP ON 
SINGLE BLOCK OPTIONS AND IF SELECTED-TEST ONLY 
THAT PORTION OF AUX CORE. IF SINGLE 
ADDRESS OR SINGLE BLOCK OPTIONS ARE NOT SELECTED 
THE ROUTINE WILL CHECK ALL OF CORE. 



PRINT INFORMATION MESSAGE 
IF REQUESTED 



LDX 

LD 

SLA 

BSC 

BSI 

DC 

DC 



12 RID IX 2 = ROUTINE NUMBER 

L SWO GET SWITCH FUNCTION 

9 CHECK MSG REQ SW 

L TRA,- BRANCH IF NOT REQUESTED 

L PRINT PRINT INFO MESSAGE 

/A001 MESSAGE ID 

DUMMY ENTRY 



PART NO. 2279452 
PAGE 2A 



81F02060 

81F02070 

81F02080 

81F02090 

81F02100 

81F02110 

81F02120 

81F02130 

81F02140 

81F02150 

81F02160 

81F02170 

81F02180 

81F02190 

81F02200 

81F02210 

81F02220 

81F02230 

81F02240 

81F02250 

81F02260 

81F02 270 

81F02280 

81F02290 

81F02300 

81F02310 

81F02320 

81F02330 

81F02340 

81F02350 

81F02360 

81F02370 

81F02380 

81F02390 

81F02400 

81F02410 

81F02420 

81F02430 

81F02440 

81F02450 

81F02460 

81F02470 

81F02480 

8 IF 02490 

81F02500 

81F02510 

81F02520 

81F02530 

81F02540 

81F02550 

81F02560 

81F0257O 

81F02580 

81F02590 

81F02600 

81F02610 

81F02620 

81F02630 

81F02640 

81F02650 

8 IF 02660 

81F02670 

81F02680 

8 IF 02690 

81F02700 

81F02710 

81F02720 

81F02730 



©ATE 
ft NO, 



14N0V69 
431319 



PROG ID 
PAGE 



081F-0 
2 



DATE 
EC NO. 



14N0V69 
431319 



PROG ID 
PAGE 



081F-0 
2A 



(Ill 



1111 



IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 
1800 AUX CORE FUNCTION TEST (MAIN LINE! 



iiii 



PART NO. 2279452 
PAGE 3 



(III 



< ' I < I I I I I I ( 



IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 
1800 AUX CORE FUNCTION TEST {MAIN LINE) 



PART NO. 2279452 
PAGE 3A 



— 


08E8 





0000 






DC 







DUMMY ENTRY 


8 IF 02740 


0914 


1 


0C5C 




DC 




ADRS 


ADDRESS BEING TESTED 


81F03420 






08E9 





0000 






DC 







DUMMY ENTRY 


81F02750 


0915 





1010 




SLA 




16 


CLEAR ACC 


81F03430 




r~ 










* 










81F02760 


0916 





D31B 




STO 


3 


M0D3-CMN 


SAVE FOR PRINT 


81F03440 




*.. 










* 






DETERMINE TEST ROUTINE TO RUN 


81F02770 


0917 





43B8 




BSI 


3 


STINT-CMN 


SET MONITOR INDICATOR 


81F03450 














* 










81F02780 


0918 





C440 




DC 




/C440 


INSTRUCTION = 


81F03460 




r 


08EA 


1 


4E80 


0C7D 


TRA 


BSC 


12 


RTTBL-1 


BRANCH TO PATTERN ROUTINE 


81F02790 


0919 





0000 


TR1B 


DC 




*-* 


* LD L *-* FROM AUX CORE 


81F03470 




-~ 










* 










81F02800 


091A 





43CD 




BSI 


3 


CKINT-CMN 


CHECK INTERNAL INTERRUPT 


81F03480 














* 






CHECK 


FOR ROUTINE COMPLETE 


81F02810 


091B 


1 


0C5C 




DC 




ADRS 


ADDRESS BEING TESTED 


81F03490 




r~ 










* 










81F02820 


091C 





D31C 




STC 


3 


M0D4-CMN 


SAVE FOR PRINT 


81F03500 




— 


08EC 


1 


7400 


0C68 


TRB 


MDX 


L 


SNAD.O 


SKIP IF NOT SINGLE ADRS 


81F02830 


0910 





F31A 




EOR 


3 


M0D2-CMN 


CHECK RESULTS 


81F03510 






08EE 





7019 






MDX 




TRC 


SINGLE ADRS-ROUTINE CMPLT 


81F02840 


091E 


1 


4C18 0926 




BSC 


L 


TR1C+- 


BRANCH IF CORRECT 


81F03520 




<- 


08EF 


1 


C400 


0802 




LD 


L 


swo 


GET SWITCH FUNCTION 


81F02850 


0920 


1 


4400 0CE1 




BSI 


L 


PRINT 


PRINT ERROR 


81F03530 




- 


08F1 


1 


4C04 


08A7 


* 


BSC 


L 


CNTLO,E 


BRANCH IF TERMINATION REQ 


81F02860 
81F02870 


0922 
0923 




1 


E006 
0C73 




DC 

DC 




/E006 
MODI 


MSG ID 

MESSAGE ADDRESS 


81F03540 
81F03550 




r~ 










* 










81F02880 


0924 





0004 




DC 




4 


WORD COUNT 


81F03560 




_ 










* 
* 






CHECK 


FOR END OF CORE 


81F02890 
81F02900 


0925 


1 


090A 


* 


DC 




TR1 


LOCK RETURN 


81F03570 
81F03580 




r 


08F3 





C302 






LD 


3 


ADRS-CMN 


GET CURRENT ADDRESS 


81F02910 








* 






CHECK 


•STO I« AND *LD I« USING 


81F03590 




*-... 


08F4 





9301 






S 


3 


MAXAD-CMN 


SUBTRACT MAXIMUM ADDRESS 


81F02920 ' 






* 






A PATTERN OF /OOOO 


81F03600 






08F5 


1 


4C18 


0908 




BSC 


L 


TRC.+- 


BRANCH IF ROUTINE COMPLETE 


81F02930 








* 










81F03610 




r 


08F7 


1 


4400 


OCCC 




BSI 


L 


MNEX 


EXIT TO MONITOR 


81F02940 


0926 





C302 


TR1C 


LD 


3 


ADRS-CMN 


SAVE ADDRESS FOR PRINT 


81F03620 






08F9 


1 


08FA 




* 


DC 




TRF 


RETURN ADDRESS 


81F02950 
81F02960 


0927 

0928 






D319 
1010 




STO 
SLA 


3 


M0D1-CMN 
16 


CLEAR ACC 


81F03630 
81F03640 




.r~ 


08FA 





C302 




TRF 


LD 


3 


ADRS-CMN 


GET ADRS 


81F02970 


0929 





D31A 




STO 


3 


M0D2-CMN 


SAVE FOR PRINT 


8 1F03650 






08FB 





830B 






A 


3 


Kl-CMN 


ADD ONE 


81F02980 


092A 





43B8 




BSI 


3 


STINT-CMN 


SET MONITOR INDICATOR 


81F03660 






08FC 





D302 






STO 


3 


ADRS-CMN 


SAVE 


81F02990 


092B 





D4C0 




DC 




/D4C0 


INSTRUCTION = 


81F03670 




r 


08FD 





1008 






SLA 




8 


CHECK FOR END OF BLOCK 


81F03000 


092C 


1 


0C5C 




DC 




ADRS 


* STO I ADRS INTO AUX CORE 


81F03680 






08FE 





4820 






BSC 




Z 


SKIP IF YES 


81F03010 


092D 





43CD 




BSI 


3 


CKINT-CMN 


CHECK INTERNAL INTERRUPT 


81F03690 






08FF 





70EA 






MDX 




TRA 


CONTINUE ROUTINE 


81F03020 


092E 


1 


0C5C 




DC 




ADRS 


ADDRESS BEING TESTED 


8 1F03700 




r 










* 










81F03030 


092F 





C30A 




LD 


3 


HFFFF-CMN 


PRE-SET ACC 


81F03710 














* 






AT END OF BLOCK 


81F03040 


0930 





D31B 




STO 


3 


M0D3-CMN 


SAVE FOR PRINT 


81F03720 














* 










81F03050 


0931 





43B8 




BSI 


3 


STINT-CMN 


SET MONITOR INDICATOR 


81F03730 




r 


0900 


1 


7400 


0C69 




MDX 


L 


SNBK,0 


CHECK FOR SINGLE BLOCK 


81F03060 


0932 





C4C0 




DC 




/C4C0 


INSTRUCTION = 


81F03740 






0902 





7005 




* 


MDX 




TRC 


BRANCH = ROUTINE COMPLETE 


81F03070 
81F03080 


0933 
0934 


1 




0C5C 
43CD 




DC 
BSI 


3 


ADRS 
CKINT-CMN 


* LD I ADRS FROM AUX CORE 
CHECK INTERNAL INTERRUPT 


81F03750 
81F03760 




r 










* 






AT END OF A 256 BLOCK BUT 


81F03090 


0935 


1 


0C5C 




DC 




ADRS 


ADDRESS BEING TESTED 


81F03770 














* 






SINGLE BLOCK IS NOT SELECTED 


81F03100 


0936 





D31C 




STO 


3 


M0D4-CMN 


SAVE FOR PRINT 


81F03780 














* 










81F03110 


0937 


1 


4C18 093F 




BSC 


L 


TR1E.+- 


BRANCH IF CORRECT 


81F03790 




r 


0903 





C302 






LD 


3 


ADRS-CMN 


ADJUST ADRS TO NEXT BLOCK 


81F03120 


0939 


1 


4400 0CE1 




BSI 


L 


PRINT 


PRINT ERROR 


81F03800 




■*... 


0904 





8305 






A 


3 


H1000-CMN 


* 


81F03130 


093B 





E007 




DC 




/E007 


MSG ID 


81F03810 






0905 





E309 






AND 


3 


HF1FF-CMN 


* 


81F03140 


093C 


1 


0C73 




DC 




MODI 


MESSAGE ADDRESS 


81F03820 




r 


0906 





D302 






STO 


3 


ADRS-CMN 


* 


81F03150 


093D 





0004 




DC 




4 


WORD COUNT 


81F03830 






0907 





70E2 




* 


MDX 




TRA 


CONTINUE ROUTINE 


81F03160 
81F03170 


093E 


1 


0926 


* 


DC 




TR1C 


LOCK RETURN 


81F03840 
81F03850 




r 










* 






ROUTINE IS COMPLETE 


81F03180 








* 






CHECK 


•STO !• AND »LD I'-USING 


81F03860 














* 










8 IF 03 190 








* 






A PATTERN OF /FFFF 


81F03870 






0908 


1 


4C00 


0868 


TRC 


BSC 


L 


CNTL 


EXIT TO CONTROL ROUTINE 


81F03200 








* 










81F03880 




r 










* 










81F03210 


093F 





C302 


TRIE 


LD 


3 


ADRS-CMN 


SAVE ADDRESS FOR PRINT 


81F03890 














* 










81F03220 


0940 





D319 




STO 


3 


M0D1-CMN 


* 


81F03900 














** *******«#*********************«*** ****^ ********** 


81F03230 


0941 





C30A 




LD 


3 


HFFFF-CMN 


GET PATTERN 


81F03910 




r 










* 






CHECK 


INSTRUCTIONS AFFECTING * 


81F03240 


0942 





D31A 




STO 


3 


M0D2-CMN 


SAVE FOR PRINT 


81F03920 














* 






AUX CORE * 


81F03250 


0943 





43B8 




BSI 


3 


STINT-CMN 


SET MONITOR INDICATOR 


8 1F03930 














♦♦♦A*********************************************** 


81F03260 | 


0944 





D4C0 




DC 




/D4C0 


INSTRUCTION = 


81F03940 




/**> 










* 










81F03270 \ 


0945 


1 


0C5C 




DC 




ADRS 


* STO I ADRS INTO AUX CORE 


81F03950 




s**& 










* 










81F03280 f 


' 0946 





43CD 




BSI 


3 


CKINT-CMN 


CHECK INTERNAL INTERRUPT 


81F03960 














* 






CHECK 


'STO L' AND »LD L* USING 


81F03290 ! 


0947 


1 


0C5C 




DC 




ADRS 


ADDRESS BEING TESTED 


81F03970 




f 










* 






A PATTERN OF /FFFF 


81F03300 


0948 





1010 




SLA 




16 


PRE-SET ACC 


8 IF 03980 














4c 










81F03310 


0949 





D31B 




STO 


3 


M0D3-CMN 


SAVE FOR PRINT 


81F03990 






090A 





C302 




TR1 


LD 


3 


ADRS-CMN 


GET ADDRESS TO CHECK 


8 1F03320 


094A 





43 B8 




BSI 


3 


STINT-CMN 


SET MONITOR INDICATOR 


81F04000 




r 


0908 





0319 






STO 


3 


M0D1-CMN 


SAVE FOR PRINT 


81F03330 
81F03340 


094B 





C4C0 




DC 




/C4C0 


INSTRUCTION = 


8 1F04010 






090C 





D005 






STO 




TR1A 


SET IN ROUTINE 


094C 


1 


0C5C 




DC 




ADRS 


* LD I ADRS FROM AUX CORE 


81F04020 






0900 





DOOB 






STO 




TR1B 


# 


81F03350 


094D 





43CD 




BSI 


3 


CKINT-CMN 


CHECK INTERNAL INTERRUPT 


81F04030 




r 


090E 





C30A 






LD 


3 


HFFFF-CMN 


GET PATTERN WORD 


81F03360 


094E 


1 


0C5C 




DC 




ADRS 


ADDRESS BEING TESTED 


8 IF04040 






090F 





D31A 






STO 


3 


M0D2-CMN 


SAVE FOR PRINT 


81F03370 


' 094F 





D31C 




STO 


3 


M0D4-CMN 


SAVE FOR PRINT 


81F04050 






0910 





43B8 






BSI 


3 


STINT-CMN 


SET MONITOR INDICATOR 


81F03380 


0950 





F31A 




EOR 


3 


M0D2-CMN 


CHECK RESULT 


81F04060 




r 


0911 





D440 






DC 




/D440 


INSTRUCTION = 


81F03 390 


0951 


1 


4C18 0959 




BSC 


L 


TR1F.+- 


BRANCH IF CORRECT 


81F04070 






0912 





0000 




TR1A 


DC 




*-* 


* STO L *-* INTO AUX CORE 


81F03400 


0953 


1 


4400 0CE1 




BSI 


L 


PRINT 


PRINT ERROR 


81F04080 




r 


0913 





43CD 






BSI 


3 


CKINT-CMN 


CHECK INTERNAL INTERRUPT 


81F03410 


0955 





E008 




DC 




/E008 


MESSAGE ID 


8 IF 04090 




r o&te 


14N0V69 














PROG ID 081F-0 


DATE 14N0V69 












PROG ID 


081F-0 


. ^ t€ NO. 


431319 














PAGE 3 


EC NO. 431319 












PAGE 


3A 



t ( { * i I i i I 

C- IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 
1800 AUX CORE FUNCTION TEST (MAIN LINEI 






\ I 



PART NO. 
PAGE 



2279452 
4 



c 

c 
c 
c 

(, 
c 
c 
■<r 
<r 

C 

C 
s 

*- ~ 

c 

f 

c 

c 

r 

r 



0956 1 0C73 

0957 0004 

0958 1 093F 



DC 
DC 
DC 



0959 

095A 

095B 

095C 

095D 

095E 

095F 

0960 

0961 

0962 

0963 

0964 

0966 

0968 

0969 

096 A 

0968 

096C 

096 D 
096E 
096F 
0970 
0971 

097 3 
0975 
0976 
0977 
0978 



C302 
D319 

830B 

D010 

1010 

D31A 

43B8 

D4C0 

0C5C 

43CD 

0C5C 

6D00 0B12 

6E00 0B14 

61FF 
C30A 
D31B 
43B8 
C540 
0000 
43CD 
0C5C 
D31C 

4C18 0979 
4400 0CE1 
E009 
0C73 
0004 
0959 



0979 

097A 

097B 

097C 

0970 

097 E 

097F 

0980 

0981 

0982 

0983 

0984 

0985 

0986 

0987 

0988 

0989 

098A 

098 B 

098C 

098D 

098E 

098 F 

0990 

0992 

0994 

0995 

0996 

0997 



C302 

830B 

D005 

C30A 

D31A 

61FF 

43B8 

D540 

0000 

43CD 
I 0C5C 
C302 

0319 
0004 

1010 

D31B 

43B8 

C440 

0000 

43CD 

0C5C 

031C 

F31A 

4C18 0998 

4400 0CE1 

E010 

0C73 

0004 



1 0979 



* 
* 

TR1F LO 
STO 
A 

STO 
SLA 
STC 
BSI 
DC 
DC 
BSI 
DC 
STX 
STX 
LDX 
LD 
STO 
BSI 
DC 
TRIG DC 
BSI 
DC 
STO 
BSC 
BSI 
DC 
DC 
DC 
DC 

* 

TR1H LO 
A 

STO 
LD 
STC 
LDX 
BSI 
DC 
TR1HA DC 
BSI 
DC 
LD 
STO 
STO 
SLA 
STO 
BSI 
DC 
DC 
BSI 
DC 
STC 
EOR 
BSC 
BSI 
DC 
DC 
DC 
DC 



TR1I 



MODI MESSAGE ADDRESS 

* WORD COUNT 

TRIE LOCK RETURN 

CHECK «STO I- AND 'LD LI' USING 
A PATTERN OF /OOOO 



3 ADRS-CMN 
3 M0D1-CMN 
3 Kl-CMN 

TRIG 

16 
3 M0D2-CMN 
3 STINT-CMN 

/D4C0 

AORS 
3 CKINT-CMN 

ADRS 
LI TR1AM+1 
L2 TR1AN4-1 
1 -1 

3 HFFFF-CMN 
3 M0D3-CMN 
3 STINT-CMN 

/C540 
*-* 

3 CKINT-CMN 

ADRS 
3 M0D4-CMN 
L TR1H.+- 
L PRINT 
/E009 
MODI 
4 
TR1F 



GET ADDRESS 

SAVE FOR PRINT 

ADD 1 

SAVE 

CLEAR ACC 

SAVE FOR PRINT 

SET MONITOR INDICATOR 

INSTRUCTION = 

* STO I ADRS INTO AUX COR 
CHECK INTERNAL INTERRUPT 
ADDRESS BEING TESTED 
SAVE INDEXING 

SET IX 1 

PRE-SET ACCUMULATOR 
SAVE FOR PRINT 
SET MONITOR INDICATOR 
INSTRUCTION = 

* LD LI *-* FROM AUX CORE 
CHECK INTERNAL INTERRUPT 
ADDRESS BEING TESTED 
SAVE FOR PRINT 

BRANCH IF CORRECT 
PRINT ERROR 
MESSAGE ID 
MESSAGE ADDRESS 
WORD COUNT 
LOCK RETURN 



CHECK 'STO Ll'-'LD L« USING 
A PATTERN OF /FFFF 



3 ADRS-CMN 
3 Kl-CMN 

TR1HA 
3 HFFFF-CMN 
3 M0D2-CMN 
1 -1 
3 STINT-CMN 

/D540 

*-* 

3 CKINT-CMN 
' ADRS 
3 ADRS-CMN 
3 M0D1-CMN 

TR1I 

16 
3 M0D3-CMN 
3 STINT-CMN 

/C440 

*-* 

3 CKINT-CMN 

ADRS 
3 M0D4-CMN 
3 M0D2-CMN 
L TR1J.+- 
L PRINT 
/E010 
MODI 
4 
TR1H 



GET ADDRESS 

ADD ONE 

SET IN ROUTINE 

GET PATTERN 

SAVE FOR PRINT 

SET INDEX 

SET MONITOR INDICATOR 

INSTRUCTION = 

* STO LI *-* INTO AUX CORE 
CHECK INTERNAL INTERRUPT 
ADDRESS BEING TESTED 

GET ADDRESS 

SAVE FOR PRINT 

SET IN ROUTINE 

PRE-SET ACCUMULATOR 

SAVE FOR PRINT 

SET MONITOR INDICATOR 

INSTRUCTION = 

* LD L *-* FROM AUX CORE 
CHECK INTERNAL INTERRUPT 
ADDRESS BEING TESTED 
SAVE FOR PRINT 

CHECK RESULT 
BRANCH IF CORRECT 
PRINT ERROR 
MESSAGE ID 
MESSAGE ADDRESS 
WORD COUNT 
LOCK RETURN 



9ATf 

tc no. 



14N0V69 
431319 



81F04100 

81F04110 

8 1F04120 

81F04130 

81F04140 

81F04150 

81F04160 

81F04170 

81F04180 

81F04190 

81F04200 

81F04210 

81F04220 

81F04230 

81F04240 

81F04250 

81F04260 

81F04270 

81F04280 

81F04290 

81F04300 

8IF04310 

81F04320 

81F04330 

81F04340 

81F04350 

81F04360 

81F04370 

81F04380 

8 1F04390 

81F04400 

81F04410 

8 1F04420 

81F04430 

8 1F04440 

8 IF 04450 

81F04460 

8 IF 04470 

81F04480 

81F04490 

81F04500 

81F04510 

81F04520 

81F04530 

81F04540 

81F04550 

81F04560 

81F04570 

81F04580 

81F04590 

81F04600 

81F04610 

81F04620 

81F04630 

81F04640 

81F04650 

81F04660 

81F04670 

81F04680 

81F04690 

81F04700 

81F04710 

81F04720 

81F04730 

81F04740 

81F04750 

81F04760 

81F04770 



PROG ID 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 
1800 AUX CORE FUNCTION TEST (MAIN LINE) 



I I 



r 



081F-0 

4 



0998 

0999 

099A 

099B 

099C 

099D 

099 E 

099F 

09A0 

09A1 

09A2 

09A3 

09A4 

09A5 

09A6 

09A7 

09A8 

09A9 

09AA 

09AB 

09AC 

09AD 

09AE 

09B0 

09B1 

09B3 

09B5 

09B6 

09B7 

09B8 



C302 

1801 

1001 

D319 

D005 

DOOC 

10A0 

DB1A 

43B8 

DC40 

0000 

43CD 

09A2 

C30A 

1890 

DB1C 

43B8 

CC40 

0000 

43CD 

09 A2 

DB1E 

4C20 09B3 

1090 

4C18 09B9 

4400 0CE1 

E011 



0C73 
0007 
0998 



09B9 

09BA 

09BB 

09BC 

09BD 

09BE 

09BF 

09C0 

09C1 

09C2 

09C3 

09C4 

09C5 

09C6 

09C7 

09C8 

09C9 

09CA 

09CB 

09CC 

09CD 

09CE 

09CF 

09D0 

09D2 

09D3 

09D4 

09D6 

09D8 

09D9 



C302 
1801 
1001 

D303 

D319 

C307 

1890 

C307 

DB1A 

43 B8 

DCCO 

0C5D 

43CD 

0C5D 

10A0 

0B1C 

43B8 

CCCO 

0C5D 

43CD 
I 0C5D 
DB1E 

F307 

1 4C20 09D6 
1090 

F307 

4C18 09DC 
4400 0CE1 
E012 
0C73 



* 
TR1J 



CHECK 'STD L'-'LDD L« USING 
A PATTERN OF /0000-/0000 



TR1K 



TR1L 



TRIM 



* 
* 

TRIP 



LD 

SRA 

SLA 

STO 

STO 

STO 

SLT 

STD 

BSI 

DC 

DC 

BSI 

DC 

LD 

SRT 

STD 

BSI 

DC 

DC 

BSI 

DC 

STD 

BSC 

SLT 

BSC 

BSI 

DC 

DC 

DC 

DC 



3 ADRS-CMN 

1 

1 
3 M0D1-CMN 

TR1K 

TR1L 

32 
3 M0D2-CMN 
3 STINT-CMN 

/DC40 

*-* 

3 CKINT-CMN 

TR1K 
3 HFFFF-CMN 

16 
3 M0D4-CMN 
3 STINT-CMN 

/CC40 

*-* 

3 CKINT-CMN 

TR1K 
3 M0D6-CMN 
L TR1M.Z 

16 
L TR1P.+- 
L PRINT 

/E011 

MODI 

7 

TR1J 



GET ADDRESS 
MAKE IT EVEN 

* 

SAVE FOR PRINT 
SET IN RTN 

* 

CLEAR A AND 

SAVE FOR PRINT 

SET MONITOR INDICATOR 

INSTRUCTION = 

* STD L *-* INTO AUX CORE 
CHECK INTERNAL INTERRUPT 
ADDRESS BEING TESTED 
PRE-SET A AND Q 

* 

SAVE FOR PRINT 

SET MONITOR INDICATOR 

INSTRUCTION = 

* LDD L *-* FROM AUX CORE 
CHECK INTERNAL INTERRUPT 
ADDRESS BEING TESTED 
SAVE FOR PRINT 

BRANCH IF ERROR 
GET Q 

BRANCH IF CORRECT 
PRINT ERROR 
MESSAGE ID 
MESSAGE ADDRESS 
WORD COUNT 
LOCK RETURN 



CHECK 'STD I •-•LDD I" USING 
A PATTERN OF /AAAA-/AAAA 



TR1R 



LD 3 ADRS-CMN 

SRA 1 

SLA 1 

STO 3 ADRS1-CMN 

STO 3 M0D1-CMN 

LD 3 HAAAA-CMN 

SRT 16 

LD 3 HAAAA-CMN 

STD 3 M0D2-CMN 

BSI 3 STINT-CMN 

DC /DCCO 

DC ADRS1 

BSI 3 CKINT-CMN 

DC ADRS1 

SLT 32 

STD 3 M0D4-CMN 

BSI 3 STINT-CMN 

DC /CCCO 

DC ADRS1 

BSI 3 CKINT-CMN 

DC ADRS1 

STD 3 M0D6-CMN 

EOR 3 HAAAA-CMN 

BSC L TR1R.Z 

SLT 16 

EOR 3 HAAAA-CMN 

BSC L TRlSt+- 

BSI L PRINT 

DC /E0I2 

DC MODI 



GET ADDRESS 
MAKE IT EVEN 

* 

SET FOR ROUTINE 

SAVE FOR PRINT 

GET PATTERN 

SET Q 

SET A 

SAVE FOR PRINT 

SET MONITOR INDICATOR 

INSTRUCTION = 

* STD I ADRS1 INTO AUX 
CHECK INTERNAL INTERRUPT 
ADDRESS BEING TESTED 
CLEAR A AND Q 

SAVE FOR PRINT 

SET MONITOR INDICATOR 

INSTRUCTION = 

* LDD I ADRS1 FROM AUX 
CHECK INTERNAL INTERRUPT 
ADDRESS BEING TESTED 
SAVE FOR PRINT 

CHECK DATA 
BRANCH IF ERROR 
GET C 

CHECK DATA 
BRANCH IF CORRECT 
PRINT ERROR 
MESSAGE ID 
MESSAGE ADDRESS 



I J . i 
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DATE 
EC NO. 



14N0V69 
431319 



8IF04780 

81F04790 

81F04800 

81F04810 

81F04820 

81F04830 

81F04840 

81F04850 

81F04860 

81F04870 

81F04880 

81F04890 

81F04900 

81F04910 

81F04920 

81F04930 

8 IF 04940 

81F04950 

8IF04960 

81F04970 

81F04980 

8 IF 04990 

81F05000 

81F05010 

81F0502O 

81F05030 

81F05040 

81F05050 

81F05060 

81F05070 

81F05080 

81F05090 

81F05100 

81F05110 

81F05120 

81F05130 

81F05140 

81F05150 

81F05160 

81F05170 

81F05180 

81F05190 

81F05200 

81F05210 

81F05220 

81F05230 

81F05240 

81F05250 

81F05260 

81F05270 

81F05280 

81F05290 

81F05300 

81F05310 

8 1F05320 

81F05330 

81F05340 

81F05350 

81F05360 

81F05370 

81F05380 

81F05390 

81F05400 

81F05410 

81F05420 

81F05430 

81F05440 

81F05450 



PROG ID 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 
f 1800 AUX CORE FUNCTION TEST (MAIN LINE» 



c 
c 

r 

r 

r 

,r 
r 
r 

r 
r 
r 
r 
r 
/ ~ 



09DA 0007 
09DB 1 09B9 



09DC 

09DD 

090E 

09DF 

09E0 

09E1 

09E2 

09E3 

09E4 

09E5 

09E6 

09E7 

09E8 

09E9 

09EA 

09EB 

09EC 

09ED 

09EE 

09EF 

09F0 

09F1 

09F2 

09F3 

09F4 

09F5 

09F6 

09F8 

09F9 

09FA 

09FC 

09FE 

09FF 

OAOO 

0A01 



C302 
1801 
1001 
D319 
83 OB 
D008 
DOOE 
62FF 
C306 
1890 
C306 
DB1A 
43B8 
DE40 
0000 
43CD 
0C73 
10A0 
DB1C 
43 B8 
CE40 
0000 
43CD 
1 0C73 

DB1E 
F306 

4C20 09FC 
1090 
F306 

4C18 0A02 
4400 0CE1 
E013 

1 0C73 

0007 

1 09 DC 



0A02 I 4400 OCCC 
0A04 1 0A05 







0A05 





C302 


f 




0A06 





DOOE 


» w. 




0A07 





D319 






0A08 





C307 


r 




0A09 





03 1A 






OAOA 





43B8 






OAOB 





D4C0 


r 




OAOC 


1 


0C5C 


s- 




OAOD 





43CD 






OAOE 


1 


0C5C 


r 




OAOF 





1010 


.. ^ 




0A10 





D31C 






OAll 





C306 


r 




0A12 





D31B 


v 




0A13 





43B8 


r 




0A14 





E440 


/ 


DATE 


14N0V69 


. **_. 


EC NO. 


43131"; 





* 
TR1S 



TR1T 



TR1U 



TR1W 



* 
* 
* 
TR1X 

* 
* 
* 

* 

* 
TR1XA 



DC 
DC 



LD 

SRA 

SLA 

STO 

A 

STO 

STO 

LDX 

LD 

SRT 

LD 

STD 

BSI 

DC 

DC 

BSI 

DC 

SLT 

STD 

BSI 

DC 

DC 

BSI 

DC 

STD 

EOR 

BSC 

SLT 

EOR 

BSC i 

BSI 

DC 

DC 

DC 

DC 



BSI 
DC 



LD 

STO 

STO 

LD 

STO 

BSI 

DC 

DC 

BSI 

DC 

SLA 

STO 

LD 

STO 

BSI 

DC 



7 WORD COUNT 

TRIP LOCK RETURN 

CHECK 'STD L2'-«LDD L2 • USING 
A PATTERN OF /5555-/5555 

ADRS-CMN GET ADDRESS 

I MAKE IT EVEN 

1 * 

M0D1-CMN SAVE FOR PRINT 

Kl-CMN MAKE ODD 

TR1T SET IN ROUTINE 

TR1U * 

-1 SET INDEX 

H5555-CMN GET PATTERN 

16 SET IN 

H5555-CMN RESET A 

M0D2-CMN SAVE FOR PRINT 

STINT-CMN SET MONITOR INDICATOR 

/DE40 INSTRUCTION = 

*-* * STD L2 *-* INTO AUX 

CKINT-CMN CHECK INTERNAL INTERRUPT 

MODI ADDRESS BEING TESTED 

32 CLEAR A AND Q 

M0D4-CMN SAVE FOR PRINT 

STINT-CMN SET MONITOR INDICATOR 

/CE40 INSTRUCTION <= 

*-* * LDD L2 *-* FROM AUX 

CKINT-CMN CHECK INTERNAL INTERRUPT 

MODI ADDRESS BEING TESTED 

M0D6-CMN SAVE FOR PRINT 

H5555-CMN CHECK A 

TR1W.Z BRANCH IF ERROR 

16 GET Q 

H5555-CMN CHECK DATA 

TR1X.+- BRANCH IF CORRECT 

PRINT PRINT ERROR 

/E013 MESSAGE ID 

MODI MESSAGE ADDRESS 

7 WORD COUNT 

TR1S LOCK RETURN 



EXIT TO MONITOR TO ALLOW OVERLAP 

L MNEX EXIT TO MONITOR 
TR1XA RETURN ADDRESS 

CHECK 'STO I«-«AND L' 
CORE = /AAAA 
ACCUMULATOR = /5555 
EXPECTED RESULT « /OOOO 

3 ADRS-CMN GET ADDRESS 

TR1Y SET IN ROUTINE 

3 M0D1-CMN SAVE FOR PRINT 

3 HAAAA-CMN GET PATTERN 

3 M0D2-CMN SAVE FOR PRINT 

3 STINT-CMN SET MONITOR INDICATOR 

/D4C0 INSTRUCTION = 

ADRS * STO I ADRS INTO AUX 

3 CKINT-CMN CHECK INTERNAL INTERRUPT 

ADRS ADDRESS BEING TESTED 

16 SET EXPECTED RESULT FOR PR 

3 M0D4-CMN * 

3 H5555-CMN SET ACCUMULATOR 

3 M0D3-CMN SAVE FOR PRINT 

3 STINT-CMN SET MONITOR INDICATOR 

/E440 INSTRUCTION ■ 
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81F05460 

8 1F05470 

81F05480 

81F05490 

81F05500 

81F05510 

81F05520 

81F05530 

81F05540 

81F05550 

81F05560 

81F05570 

81F05580 

8 1F05590 

81F05600 

81F05610 

81F05620 

81F05630 

S1F05640 

81F05650 

81F05660 

81F05670 

81F05680 

81F05690 

81F05700 

81F05710 

81F05720 

81F05730 

81F05740 

81F05750 

81F05760 

81F05770 

81F05780 

81F05790 

81F05800 

81F05810 

81F05820 

61F05830 

81F05840 

81F05850 

81F05860 

81F05870 

81F05S80 

81F05890 

81F05900 

81F05910 

81F05920 

81F05930 

81F05940 

81F05950 

81F05960 

81F05970 

81F05980 

81F05990 

81F06000 

81F06010 

81F06020 

81F06030 

81F06040 

81F06050 

81F06060 

81F06070 

81F06080 

81F06090 

81F06100 

81F06110 

8 1F06120 

81F06130 
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081F-0 
5 





0A15 0000 


TR1Y 


DC 


*-* 


* AND L *-* FROM AUX CORE 


81F06140 






0A16 43CD 




BSI 


3 CKINT-CMN 


CHECK INTERNAL INTERRUPT 


81F06150 






0A17 1 0C5C 




DC 


ADRS 


ADDRESS BEING TESTED 


81F06160 






0A18 D31D 




STO 


3 M0D5-CMN 


SAVE RESULT FOR PRINT 


81F06170 






0A19 1 4C18 0A21 




BSC 


L TR1Z.+- 


BRANCH IF CORRECT 


81F06180 






0A1B 1 4400 0CE1 




BSI 


L PRINT 


PRINT ERROR 


81F06190 






0A1D E014 




DC 


/E014 


MESSAGE ID 


81F06 200 






0A1E 1 0C73 




DC 


MODI 


MESSAGE ADDRESS 


8IF06210 






0A1F 0005 




DC 


5 


WORD COUNT 


81F06220 






0A20 1 0A05 


* 


DC 


TR1XA 


LOCK RETURN 


8 1F06230 
81F06240 








* 




CHECK 'STO I'-'AND I" 


81F06250 








* 




CORE 


= /AAAA 


81F06260 








* 




ACCUMULATOR = /FFFF 


81F06270 








* 




EXPECTED RESULT = /AAAA 


81F06280 








* 








81F06290 






0A21 C307 


TR1Z 


LD 


3 HAAAA-CMN 


GET PATTERN 


81F06300 






0A22 D31A 




STO 


3 M0D2-CMN 


SAVE FOR PRINT 


81F06310 






0A23 43B8 




BSI 


3 STINT-CMN 


SET MONITOR INDICATOR 


81F06320 






0A24 D4C0 




DC 


/D4C0 


INSTRUCTION = 


81F06330 






0A25 1 0C5C 




DC 


ADRS 


* STO I ADRS INTO AUX CORE 81F06340 






0A26 43CD 




BSI 


3 CKINT-CMN 


CHECK INTERNAL INTERRUPT 


81F06350 






0A27 1 0C5C 




DC 


ADRS 


ADDRESS BEING TESTED 


8 IF 06 360 






0A28 C307 




LD 


3 HAAAA-CMN 


SET EXPECTED RESULT FOR PP 


81F06370 






0A29 D31C 




STO 


3 M0D4-CMN 


* 


81F06380 






0A2A C30A 




LD 


3 HFFFF-CMN 


SET ACC 


81F06390 






0A2B D31B 




STO 


3 M0D3-CMN 


SAVE FOR PRINT 


81F06400 






0A2C 43B8 




BSI 


3 STINT-CMN 


SET MONITOR INDICATOR 


81F06410 






0A2D E4C0 




DC 


/E4C0 


INSTRUCTION = 


81F06420 






0A2E 1 0C5C 




DC 


ADRS 


* AND I ADRS FROM AUX 


81F06430 






0A2F 43CD 




BSI 


3 CKINT-CMN 


CHECK INTERNAL INTERRUPT 


81F06440 






OA30 1 0C5C 




DC 


ADRS 


ADDRESS BEING TESTED 


81F06450 






0A31 03 ID 




STO 


3 M0D5-CMN 


SAVE RESULT FOR PRINT 


81F06460 






0A32 F307 




EOR 


3 HAAAA-CMN 


CHECK RESULT 


81F06470 






0A33 1 4C18 0A3D 




BSC 


L TR1AA.+- 


BRANCH IF CORRECT 


81F06480 






0A35 C302 




LD 


3 ADRS-CMN 


SAVE ADDRESS FOR PRINT 


81F06490 






0A36 D319 




STO 


3 M0D1-CMN 


* 


81F06500 






0A37 1 4400 0CE1 




BSI 


L PRINT 


PRINT ERROR 


81F06510 






0A39 E015 




DC 


/E015 


MESSAGE ID 


81F06520 






0A3A 1 0C73 




DC 


MODI 


MESSAGE ADDRESS 


81F06530 






0A3B 0005 




DC 


5 


WORD COUNT 


81F06540 






0A3C 1 0A21 


* 


DC 


TR1Z 


LOCK RETURN 


81F06550 
81F06560 








* 




CHECK 


•STO I'-'AND L3« 


81F06570 








* 




CORE 


= /AAAA 


81F06580 








* 




ACCUMULATOR = /5555 


81F06590 








* 




EXPECTED RESULT = /OOOO 


81F06600 








* 








8 IF 06610 






0A3D C307 


TR1AA 


LD 


3 HAAAA-CMN 


GET PATTERN 


81F06620 






0A3E D31A 




STO 


3 M0D2-CMN 


SAVE FOR PRINT 


81F06630 






0A3F 43 B8 




BSI 


3 STINT-CMN 


SET MONITOR INDICATOR 


81F06640 






0A40 D4C0 




DC 


/D4C0 


INSTRUCTION = 


81F06650 






0A41 1 0C5C 




DC 


ADRS 


* STO I ADRS INTO AUX CORE 


81F06660 






0A42 43CD 




BSI 


3 CKINT-CMN 


CHECK INTERNAL INTERRUPT 


81F06670 






0A43 1 0C5C 




DC 


ADRS 


ADDRESS BEING TESTED 


81F06680 






0A44 C302 




LD 


3 ADRS-CMN 


GET ADDRESS 


81F06690 






0A45 830B 




A 


3 Kl-CMN 


ADD 1 


81F06700 






0A46 D009 




STO 


TR1BA 




81F06710 






0A47 1010 




SLA 


16 


SET EXPECTED RESULT FOR PR 


81F06720 






0A48 D31C 




STO 


3 M0D4-CMN 


* 


81F06730 






0A49 C306 




LD 


3 H5555-CKN 


GET PATTERN 


81F06740 






0A4A D31B 




STO 


3 M0D3-CMN 


SAVE FOR PRINT 


81F06750 






0A4B 6B09 




STX 


3 TR1AB+1 


SAVE IX 3 


81F06760 






0A4C 63FF 




LDX 


3 -1 


SET INDEX 


81F06770 






0A4D 1 4400 0C12 




BSI 


L STINT 


SET MONITOR INDICATOR 


81F06780 






0A4F E740 




DC 


/E740 


INSTRUCTION = 


81F06790 






0A50 0000 


TR1BA 


DC 


*-* 


* AND L3 *-* FROM AUX CORE 


81F06800 






0A51 1 4400 0C27 




BSI 


L CKINT 


CHECK INTERNAL INTERRUPT 


81F06810 




DATE 

EC NO. 


14N0V69 
431319 
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r 
r 

r 

r 



0A53 
0A54 
0A56 
0A57 
0A59 
0A5A 
0A5B 
0A5D 
0A5E 
0A5F 
0A60 



0C5C 

67C0 0000 

0310 

4C18 0A61 

C302 

0319 

4400 0CE1 

E016 

0C73 

0005 

0A30 



0A61 

0A62 

0A63 

0A64 

0A65 

0A66 

0A67 

0A6 8 

0A69 

0A6A 

0A6B 

0A6C 

OA60 

0A6E 

0A6F 

0A70 

0A71 

0A72 

0A73 

0A74 

0A75 

0A76 

0A78 

0A7A 

0A7B 

0A7C 

0A70 



C307 
D31A 
43B8 
D4C0 
0C5C 
43C0 
0C5C 
C3C2 
0007 
D319 
C307 
03 1C 
1010 
D31B 
43B8 
EC40 

ooco 

43CD 

0C5C 

0310 

F307 

4C18 0A7E 

4*00 0CE1 

E017 

0C73 

00C5 

0A61 





0A7E 





C307 


- 


0A7F 





D31A 




0A80 





43 B8 




0A81 





D4C0 




0A82 


1 


0C5C 




0A83 





43CD 




0A84 


1 


0C5C 




0A85 





C307 




0A86 





D31C 




0A87 





1010 




0A88 





03 IB 




0A89 





43B8 




0A8A 





ECCO 




0A8B 


1 


OCSC 




0A8C 





43CD 




0A80 


1 


OCSC 




0A8E 





031D 




0A8F 





F307 


giSTE 


14N0V69 


|C NO, 


431319 





DC 
TR1AB LOX 
STO 
BSC 
LD 
STC 
BSI 
DC 
DC 
DC 
DC 

* 
* 
* 
* 

TR1AC LD 
STO 
BSI 
DC 
DC 
BSI 
DC 
LD 
STO 
STO 
LD 
STO 
SLA 
STO 
BSI 
DC 
TRIAD DC 
BSI 
DC 
STO 
EOR 
BSC 
BSI 
DC 
DC 
DC 
DC 

* 
* 

TR1AE LD 
STO 
BSI 
DC 
DC 
BSI 
DC 
LD 
STO 
SLA 
STO 
BSI 
DC 
DC 
BSI 
DC 
STO 
EOR 



ADRS 
L3 *-* 

3 M0D5-CMN 
L TR1AC.+- 
3 ADRS-CMN 
3 M0D1-CMN 
L PRINT 
/E016 
MODI 
5 
TR1AA 



ADDRESS BEING TESTED 
RESTORE INDEX 3 
SAVE RESULT FOR PRINT 
BRANCH IF CORRECT 
SAVE ADDRESS FOR PRINT 

PRINT ERROR 
MESSAGE ID 
MESSAGE ADDRESS 
WORD COUNT 
LOCK RETURN 



CHECK »STO I«-'OR I' 
CORE = /AAAA 
ACCUMULATOR = /OOOO 
EXPECTED RESULT = /AAAA 



HAAAA-CMN 

M0D2-CMN 

STINT-CMN 

/D4C0 

ADRS 

CKINT-CMN 

ADRS 

ADRS-CMN 

TRIAD 

M0D1-CMN 

HAAAA-CMN 

M0D4-CMN 

16 

M0D3-CMN 

STINT-CMN 

/EC40 

*-* 

CKINT-CMN 

ADRS 

M0D5-CMN 

HAAAA-CMN 

TR1AE.+- 

PRINT 

/E017 

MODI 

5 

TR1AC 



GET PATTERN 

SAVE FOR PRINT 

SET MONITOR INDICATOR 

INSTRUCTION = 

* STO I ADRS INTO AUX CORE 
CHECK INTERNAL INTERRUPT 
ADDRESS BEING TESTED 
GET ADDRESS 
SET IN ROUTINE 
SAVE FOR PRINT 
SET EXPECTED RESULT FOR PR 
* 

CLEAR ACC 

SAVE FOR PRINT 

SET MONITOR INDICATOR 

INSTRUCTION = 

* OR L *-* FROM AUX CORE 
CHECK INTERNAL INTERRUPT 
ADDRESS BEING TESTED 
SAVE RESULT FOR PRINT 
CHECK RESULT 
BRANCH IF CORRECT 
PRINT ERROR 
MESSAGE ID 
MESSAGE ADDRESS 
WORD COUNT 
LOCK RETURN 



CHECK »STO I'-'OR I« 
CORE = /AAAA 
ACCUMULATOR = /OOOO 
EXPECTED RESULT = /AAAA 

HAAAA-CMN GET PATTERN 

M0D2-CMN SAVE FOR PRINT 

STINT-CMN SET MONITOR INDICATOR 

/D4C0 INSTRUCTION = 

ADRS * STO I ADRS INTO AUX CORE 

CKINT-CMN CHECK INTERNAL INTERRUPT 

ADRS ADDRESS BEING TESTED 

HAAAA-CMN SET EXPECTED RESULT FOR PR 

M0D4-CMN * 

16 CLEAR ACC 

M0D3-CMN SAVE FOR PRINT 

STINT-CMN SET MONITOR INDICATOR 

/ECCO INSTRUCTION ■ 

ADRS * OR I ADRS FROM AUX CORE 

CKINT-CMN CHECK INTERNAL INTERRUPT 

ADRS ADDRESS BEING TESTED 

M0D5-CMN SAVE RESULT FOR PRINT 

HAAAA-CMN CHECK RESULT 



81F06820 

81F06830 

81F06840 

81F06850 

81F06 860 

81F06870 

81F06880 

81F06890 

81F06900 

81F06910 

81F06920 

81F06930 

81F06940 

81F06950 

81F06960 

8 IF 06970 

81F06980 

81F06990 

81F07000 

81F07010 

81F07020 

81F07030 

81F07040 

81F07050 

8 1F07060 

81F07070 

81F07080 

81F07090 

81F07100 

81F07110 

81F07120 

81F07130 

81F07140 

81F07150 

81F07160 

81F07170 

81F07180 

81F07190 

81F07200 

81F07210 

81F07220 

81F07230 

81F07240 

81F07250 

81F07260 

81F07270 

81F07280 

81F07290 

81F07300 

81F07310 

81F0732O 

81F07330 

81F07340 

81F07350 

81F07360 

81F07370 

81F07380 

81F07390 

8 1F07400 

81F07410 

81F07420 

8 1F07430 

81F07440 

81F07450 

81F07460 

81F07470 

81F07480 

81F07490 



PROG ID 
PAGE 



1 < I I I I I 1 I I I I I I I I 
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PAGE 6A 



081F-0 
6 



0A90 
0A92 
0A93 
0A94 
0A96 
0A97 
0A98 
0A99 



4C18 0A9A 

C302 

D319 

4400 0CE1 

E018 

0C73 

0005 

0A7E 



0A9A 

0A9B 

0A9C 

0A9D 

0A9E 

0A9F 

OAAO 

0AA1 

0AA2 

0AA3 

0AA4 

0AA5 

0AA6 

0AA7 

0AA8 

0AA9 

OAAA 

OAAB 

OAAC 

OAAO 

OAAE 

OAAF 

OABO 

0AB2 

0AB3 

0AB4 

0AB6 

0AB7 

0AB8 

0AB9 



C307 
D31A 
43 B8 

04C0 

1 0C5C 

43CD 

1 0C5C 
61FF 
C302 
830B 
DO 06 
C307 
D31C 
1010 
D31B 
43B8 
ED40 
OOOO 
43CD 
0C5C 
03 ID 
F307 

1 4C18 OABA 
C302 

D319 

4400 0CE1 

E019 

0C73 

0005 




1 

1 

1 0A9A 





OABA 





C307 




OABB 





D31A 




OABC 





43 B8 




OABD 





D4C0 




OABE 


1 


0C5C 




OABF 





43C0 




OACO 


1 


0C5C 




0AC1 





C302 




0AC2 





D007 




0AC3 





D319 




0AC4 





1010 




0AC5 





D31C 




0AC6 





C307 




0AC7 





D31B 




0AC3 





43 B8 




0AC9 





F440 




OACA 





OOOO 




OACB 





43CD 


DATE 


14N0V69 


EC NO. 


43131? 





BSC 

LD 

STO 

BSI 

DC 

DC 

DC 

DC 

* 

* 

* 

* 

* 

TR1AF LD 
STO 
BSI 
DC 
DC 
BSI 
DC 
LDX 
LD 
A 

STO 
LD 
STO 
SLA 
STO 
BSI 
DC 
TR1AG DC 
BSI 
DC 
STO 
EOR 
BSC 
LD 
STO 
BSI 
DC 
DC 
DC 
DC 



* 

* 

* 

* 

TR1AH LD 
STO 
BSI 
DC 
DC 
BSI 
DC 
LD 
STO 
STO 
SLA 
STO 
LD 
STO 
BSI 
DC 
DC 
BSI 



TR1AI 



L TR1AF.+- BRANCH IF CORRECT 

3 ADRS-CMN SAVE ADDRESS FOR PRINT 

3 M0D1-CMN * 

L PRINT PRINT ERROR 

/E018 MESSAGE ID 

MODI MESSAGE ADDRESS 

5 WORD COUNT 

TR1AE LOCK RETURN 

CHECK 'STO I»-«OR Ll» 
CORE = /AAAA 
ACCUMULATOR = /OOOO 
EXPECTED RESULT = /AAAA 



HAAAA-CMN 

M0D2-CMN 

STINT-CMN 

/D4C0 

ADRS 

CKINT-CMN 

ADRS 

-1 

ADRS-CMN 

Kl-CMN 

TR1AG 

HAAAA-CMN 

M0D4-CMN 

16 

M0D3-CMN 

STINT-CMN 

/ED40 

*-* 

CKINT-CMN 

ADRS 

M0D5-CMN 

HAAAA-CMN 

TR1AH.+- 

ADRS-CMN 

M0D1-CMN 

PRINT 

/E019 

MODI 

5 

TR1AF 



GET PATTERN 

SAVE FOR PRINT 

SET MONITOR INDICATOR 

INSTRUCTION = 

* STO I ADRS INTO AUX CORE 
CHECK INTERNAL INTERRUPT 
ADDRESS BEING TESTED 
SET INDEX 
GET ADDRESS 
ADD 1 

SET IN ROUTINE 
SET EXPECTED RESULT FOR PR 
* 

CLEAR ACC 

SAVE FOR PRINT 

SET MONITOR INDICATOR 

INSTRUCTION = 

* OR LI *-* FROM AUX CORE 
CHECK INTERNAL INTERRUPT 
ADDRESS BEING TESTED 
SAVE RESULT FOR PRINT 
CHECK RESULT 
BRANCH IF CORRECT 
GET ADDRESS 
SAVE FOR PRINT 
PRINT ERROR 
MESSAGE ID 
MESSAGE ADDRESS 
WORD COUNT 
LOCK RETURN 



CHECK 'STO I'-'EOR L* 
CORE = /AAAA 
ACCUMULATOR = /AAAA 
EXPECTED RESULTS = /OOOO 

3 HAAAA-CMN GET PATTERN 

3 M0D2-CMN SAVE FOR PRINT 

3 STINT-CMN SET MONITOR INDICATOR 

/D4C0 INSTRUCTION = 

ADRS * STO I ADRS INTO AUX CORE 

3 CKINT-CMN CHECK INTERNAL INTERRUPT 

ADRS ADDRESS BEING TESTED 

3 ADRS-CMN GET ADDRESS 

TR1AI SET IN ROUTINE 

3 M0D1-CMN SAVE FOR PRINT 

16 SET EXPECTED RESULT FOR PR 

3 M0D4-CMN * 

3 HAAAA-CMN SET ACC 

3 M0D3-CMN SAVE FOR PRINT 

3 STINT-CMN SET MONITOR INDICATOR 

/F440 INSTRUCTION = 

*"* * EOR L *-* FROM AUX CORE 

3 CKINT-CMN CHECK INTERNAL INTERRUPT 



81F07500 

81F07510 

81F07520 

81F07530 

81F07540 

81F07550 

81F07560 

81F07570 

81F07580 

81F07590 

81F07600 

81F07610 

81F07620 

81F07630 

81F07640 

81F07650 

81F07660 

81F07670 

81F07680 

81F07690 

81F07700 

81F07710 

81F07720 

81F07730 

81F07740 

81F07750 

81F07760 

81F07770 

81F07780 

81F07790 

8 IF 07800 

81F07810 

81F07820 

81F07830 

81F07840 

81F07850 

81F07860 

81F07870 

81F07880 

81F07890 

81F07900 

81F07910 

81F07920 

81F07930 

8 IF 07940 

81F07950 

81F07960 

81F07970 

8 IF 07980 

81F07990 

81F08000 

81F08010 

81F08020 

81F08030 

81F08040 

81F08050 

81F08060 

81F08070 

81F08080 

81F08090 

81F08100 

81F08110 

81F08120 

81F08130 

81F08140 

81F08150 

81F08160 

81F08170 



PROG ID 
PAGE 



081F-0 
6A 



I I I I I I . I I I I 



r 



IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 
f 1800 AUX CORE FUNCTION TEST (MAIN LINE) 



r 














^ «... 


OACC 


1 0C5C 




DC 


ADRS 


ADDRESS BEING TESTED 




OACD 


D31D 




STC 


3 M0D5-CMN 


SAVE RESULT FOR PRINT 


s 


OACE 


1 4C18 0AD6 




BSC 


L TR1AJ.+- 


BRANCH IF CORRECT 




OADO 


1 4400 0CE1 




BSI 


L PRINT 


PRINT ERROR 




0AD2 


E020 




DC 


/E020 


MESSAGE ID 


r 


0AO3 


1 0C73 




DC 


MODI 


MESSAGE ADDRESS 




0AD4 


0005 




DC 


5 


WORD COUNT 




0AD5 


1 OABA 




DC 


TR1AH 


LOCK RETURN 


jr. 






* 








-, w ***■ 






* 
* 




CHECK 
CORE 


•STO I'-'EOR I' 
= /AAAA 


r 






* 




ACCUMULATOR = /AAAA 


w * , *' ; "' 






* 




EXPECTED RESULT « /OOOO 


r 


0A06 


C307 


TR1AJ 


LD 


3 HAAAA-CMN 


GET PATTERN 




0AD7 


D31A 




STC 


3 M0D2-CMN 


SAVE FOR PRINT 




0AD8 


43B8 




BSI 


3 STINT-CMN 


SET MONITOR INDICATOR 


r 


0AD9 


D4C0 




DC 


/D4C0 


INSTRUCTION = 




OADA 


1 0C5C 




DC 


ADRS 


* STO I ADRS INTO AUX CORE 




OAOB 


43CD 




BSI 


3 CKINT-CMN 


CHECK INTERNAL INTERRUPT 


/ 


OADC 


1 0C5C 




DC 


ADRS 


ADDRESS BEING TESTED 




OADD 


1010 




SLA 


16 


SET EXPECTED RESULT FOR PR 




OAOE 


D31C 




STO 


3 M0D4-CMN 


* 


/ 


OADF 


C307 




LD 


3 HAAAA-CMN 


SET ACC 


w -■ 


OAEO 


D31B 




STC 


3 M0D3-CMN 


SAVE FOR PRINT 




0AE1 


43B8 




BSI 


3 STINT-CMN 


SET MONITOR INDICATOR 


/ 


0AE2 


F4C0 




DC 


/F4C0 


INSTRUCTION * 




0AE3 


1 0C5C 




DC 


ADRS 


* EOR I ADRS FROM AUX 




0AE4 


43CD 




BSI 


3 CKINT-CMN 


CHECK INTERNAL INTERRUPT 


f 


0AE5 


1 0C5C 




DC 


ADRS 


ADDRESS BEING TESTED 




0AE6 


D31D 




STO 


3 M0D5-CMN 


SAVE RESULT FOR PRINT 




0AE7 


1 4C18 0AF1 




BSC 


L TR1AK.+- 


BRANCH IF CORRECT 


/ 


0AE9 


C302 




LD 


3 ADRS-CMN 


GET ADDRESS 


K. 


OAEA 


0,0319 




STO 


3 M0D1-CMN 


SAVE FOR PRINT 




OAEB 


1 4400 OCEl 




BSI 


L PRINT 


PRINT ERROR 


f . 


OAED 


E021 




DC 


/E021 


MESSAGE ID 




OAEE 


1 0C73 




DC 


MODI 


MESSAGE ADDRESS 




OAEF 


0005 




DC 


5 


WORD COUNT 


s 


OAFO 


1 0AD6 


* 


DC 


TR1AJ 


LOCK RETURN 


""" 






* 




CHECK 


•STO I'-'EOR L2* 


r 






* 




CORE 


= /AAAA 








* 
* 




ACCUMULATOR = /OOOO 
EXPECTED RESULT = /AAAA 


r 






* 










0AF1 


C307 


TR1AK 


LD 


3 HAAAA-CMN 


GET PATTERN 




0AF2 


D31A 




STO 


3 M0D2-CMN 


SAVE FOR PRINT 


s 


0AF3 


43B8 




BSI 


3 STINT-CMN 


SET MONITOR INDICATOR 


4.- "*■*' 


0AF4 


D4C0 




DC 


/D4C0 


INSTRUCTION = 




0AF5 


1 0C5C 




DC 


ADRS 


* STO I ADRS INTO AUX CORE 


r 


OAF 6 


43C0 




BSI 


3 CKINT-CMN 


CHECK INTERNAL INTERRUPT 




0AF7 


1 0C5C 




DC 


ADRS 


ADDRESS BEING TESTED 




OAF 8 


C302 




LD 


3 ADRS-CMN 


GET ADDRESS 


r 


0AF9 


830B 




A 


3 Kl-CMN 


ADD 1 


- — 


OAFA 


DO 07 




STO 


TRIAL 


SET IN ROUTINE 




OAFB 


62FF 




LDX 


2 -1 


SET INDEX 


r 


OAFC 


C307 




LD 


3 HAAAA-CMN 


SET EXPECTED RESULT FOR PR 




OAFO 


D31C 




STO 


3 M0D4-CMN 


* 




OAFE 


1010 




SLA 


16 


CLEAR ACC 


r 


OAFF 


D31B 




STO 


3 M0D3-CMN 


SAVE FOR PRINT 


-. ■•-' 


OBOO 


43 B8 




BSI 


3 STINT-CMN 


SET MONITOR INDICATOR 




0B01 


F640 




DC 


/F640 


INSTRUCTION = 


/ 


0B02 


0000 


TRIAL 


DC 


*— * 


* EOR L2 *-* FROM AUX 


^. -*- 


0B03 


43CD 




BSI 


3 CKINT-CMN 


CHECK INTERNAL INTERRUPT 




0B04 


1 0C5C 




DC 


ADRS 


ADDRESS BEING TESTED 


y 


0B05 


D31D 




STO 


3 M0D5-CMN 


SAVE RESULT FOR PRINT 




0B06 


F307 




EOR 


3 HAAAA-CMN 


CHECK RESULT 




0B07 


1 4C18 0B11 




BSC 


L TR1AM.+- 


BRANCH IF CORRECT 


r 














-~" 














f OATE 


14N0V69 










1- EC NO. 


431319 











( I ( 
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81F08180 

81F08190 

81F08 200 

81F08210 

81F08220 

8 1F08230 

81F 08240 

8 IF 08 250 

81F08260 

81F08270 

81F08280 

81F08290 

81F 08300 

81F08310 

81F08320 

81F08330 

81F08340 

81F08350 

81F08360 

81F08370 

81F08380 

81F08390 

81F08400 

81F08410 

81F08420 

81F08430 

8 IF 08440 

81F 08450 

81F08460 

81F08470 

81F08480 

81F08490 

81F08500 

81F08510 

81F08520 

81F08530 

81F08540 

81F08550 

8 IF 08 560 

81F08570 

81F 08580 

81F08590 

81F08600 

81F08610 

81F08620 

81F08630 

8 IF 08 640 

81F08650 

81F08660 

8 IF 08670 

81F08680 

81F08690 

81F08700 

81F08710 

81F08720 

81F08730 

81F08740 

81F 08750 

81F08760 

81F08770 

81F08780 

81F08790 

81F08800 

81F08810 

81F08820 

81F08830 

81F08840 

81F08850 
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PROG ID 
PAGE 



081F-0 
7 



0B09 C302 
OBOA D319 
OBOB 1 4400 OCEl 
OBOD E022 
OBOE 1 0C73 
OBOF 0005 
0B10 1 0AF1 



OBli 6500 OOOO 
0B13 6600 OOOO 
0B15 1 4C00 08EC 



LD 

STO 

BSI 

DC 

DC 

DC 

DC 



ADRS-CMN 

M0D1-CMN 

PRINT 

/E022 

MODI 

5 

TR1AK 



SAVE ADDRESS FOR PRINT 

* 

PRINT ERROR 
MESSAGE ID 
MESSAGE ADDRESS 
WORD COUNT 
LOCK RETURN 



RESTORE INDEXING AND EXIT 



RESTORE INDEXING 



OB 17 





C302 


0B18 





D319 


0B19 





43B8 


0B1A 





D4C0 


0B1B 


1 


0C5C 


0B1C 





43CD 


0B1D 


1 


0C5C 


0B1E 





43 B8 


0B1F 





C4C0 


0B20 


1 


0C5C 


0B21 





43CD 


0B22 


1 


0C5C 


0B23 





D31B 


0B24 





C302 


0B25 





D31A 


0B26 





F31B 


0B27 


1 


4C18 0B2F 


OB 29 


1 


4400 OCEl 


0B2B 





E023 


0B2C 


1 


0C73 


0B2D 





0003 


0B2E 


1 


0B17 


0B2F 


1 


4C00 08EC 





0B31 





6111 




0B32 





C302 




0B33 





D319 




0B34 


1 


C500 0C86 




0B36 





D31A 




0B37 





43 B8 




0B3S 





D4C0 




0B39 


1 


0C5C 




0B3A 





43CD 




0B3B 


1 


0C5C 




0B3C 





43B8 




0B3D 





C4C0 




0B3E 


1 


0C5C 




0B3F 





43CD 




0B40 


1 


0C5C 




0B41 





D31B 




0B42 





F31A 


DATE 


14N0V69 


EC NO. 


431319 



TR1AM LDX LI *-* 

TR1AN LDX L2 *-* * 

BSC L TRB RETURN TO COMMON 

*************************************************** 

* SET AND TEST ONE CORE LOCATION * 

* USING ADDRESSING PATTERN * 
******************************************* ******** 

* THIS ROUTINE HILL SET THE CONTENTS OF LOCATION * 

* 'ADRS' INTO THE CORE LOCATION REFERENCED BY THE * 

* CONTENTS OF LOCATION «ADRS« AND CHECK THE * 

* RESULTS. * 
*************************************************** 

* 

TR2 LD 3 ADRS-CMN GET CONTENTS OF LOC 'ADRS' 

SAVE FOR PRINT 
SET MONITOR INDICATOR 
INSTRUCTION = 

* STO I ADRS INTO AUX CORE 
CHECK INTERNAL INTERRUPT 
ADDRESS BEING TESTED 
SET MONITOR INDICATOR 
INSTRUCTION = 

* LD I ADRS FROM AUX CORE 
CHECK INTERNAL INTERRUPT 
ADDRESS BEING TESTED 
SAVE FOR PRINT 
GET PATTERN WORD 
SAVE FOR PRINT 
CHECK WORD 
BRANCH IF CORRECT 
PRINT ERROR 
MESSAGE ID 
MESSAGE ADDRESS 
WORD COUNT 
LXK RETURN 

TR2A BSC L TRB EXIT 

*************************************************** 

* SET AND TEST ONE AUX CORE ADRS * 

* USING A FLOATING ONE PATTERN * 

*************************************************** 

# 

TR3 LDX 1 17 SET INDEXING 

SAVE ADDRESS FOR PRINT 



LD 


3 


ADRS-CMN 


STO 


3 


M0D1-CMN 


BSI 


3 


STINT-CMN 


DC 




/D4C0 


DC 




ADRS 


BSI 


3 


CKINT-CMN 


OC 




ADRS 


BSI 


3 


STINT-CMN 


DC 




/C4C0 


DC 




ADRS 


BSI 


3 


CKINT-CMN 


DC 




ADRS 


STO 


3 


M0D3-CMN 


LD 


3 


ADRS-CMN 


STO 


3 


M0D2-CMN 


EOR 


3 


M0D3-CMN 


BSC 


L 


TR2A,+- 


BSI 


L 


PRINT 


DC 




/E023 


DC 




MODI 


DC 




3 


DC 




TR2 


BSC 


L 


TRB 



TR3A 



LDX 


1 


17 


LD 


3 


ADRS-CMN 


STO 


3 


M0D1-CMN 


LD 


LI 


FLONE-1 


STO 


3 


M0D2-CMN 


BSI 


3 


STINT-CMN 


DC 




/D4C0 


DC 




ADRS 


BSI 


3 


CKINT-CMN 


DC 




ADRS 


BSI 


3 


STINT-CMN 


DC 




/C4C0 


DC 




ADRS 


BSI 


3 


CKINT-CMN 


DC 




ADRS 


STO 


3 


M0D3-CMN 


EOR 


3 


M0D2-CMN 



GET PATTERN WORD 
SAVE FOR PRINT 
SET MONITOR INDICATOR 
INSTRUCTION = 

* STO I ADRS INTO AUX CORE 
CHECK INTERNAL INTERRUPT 
ADDRESS BEING TESTED 

SET MONITOR INDICATOR 
INSTRUCTION = 

* LD I ADRS FROM AUX CORE 
CHECK INTERNAL INTERRUPT 
ADDRESS BEING TESTED 
SAVE FOR PRINT 

CHECK WORD 



81F08860 

81F08870 

81F08880 

8 IF 08 890 

81F08900 

81F08910 

81F08920 

81F08930 

8 IF 08940 

81F08950 

81F08960 

8 IF 08970 

81F08980 

81F 08990 

81F09000 

81F09010 

81F09020 

81F09030 

81F09040 

81F09050 

81F09060 

81F09070 

81F09080 

81F09090 

81F09100 

81F09110 

81F09120 

81F09130 

81F09140 

81F09150 

81F09160 

81F09170 

81F09180 

81F09190 

8 IF 09200 

81F09210 

81F09220 

81F09230 

81F09240 

81F09250 

81F09260 

81F09270 

81F09280 

81F09290 

81F09300 

81F09310 

81F09320 

81F09330 

81F09340 

81F09350 

81F09360 

81F09370 

81F09380 

8 IF 09390 

81F09400 

81F09410 

81F09420 

81F09430 

81F09440 

81F09450 

81F09460 

81F09470 

81F09480 

81F09490 

81F09500 

81F09510 

81F09520 

81F09530 



PROG ID 
PAGE 



081F-0 
7A 



i 



I 



I I 
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r 
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i i i 



IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 
/ 1800 AUX CORE FUNCTION TEST {MAIN LINE) 



PART NO. 2279452 
PAGE 8 



r 


0B43 I AC 18 


0B4B 




BSC 


L TR3B,+- 


BRANCH IF CORRECT 


81F09540 




0B45 1 4400 


0CE1 




BSI 


L PRINT 


PRINT ERROR 


81F09550 


r 


0B47 E024 






DC 


/E024 


MESSAGE ID 


81F09560 




0B48 1 0C73 






DC 


MODI 


MESSAGE ADDRESS 


81F09570 




0B49 0003 






DC 


3 


WORD COUNT 


81F09580 


r 


0B4A 1 OB 34 






DC 


TR3A 


LOCK RETURN 


81F09590 




0B4B 71FF 




TR3B 


MDX 


1 -1 


DECR INDEX 


81F09600 


r 


0B4C 70E7 
0B4D 1 4C00 


08EC 


* 


MDX 
BSC 


TR3A 
L TRB 


LOOP 
EXIT 


81F09610 
81F09620 


"... — - 












81F09M0 








*************************************************** 8 if 09640 


r 






* 




SET 


AND TEST ONE AUX CORE 


* 81F09650 


-■ **■■ 






* 




LOCATION USING A FLOATING 


* 81F09660 








* 




ZERO 


PATTERN 


* 81F09670 


r 






*************************************************** 81F09680 


\ . ■—. 


0B4F 6110 




* 
TR4 


LDX 


1 16 


SET INDEXING 


8 IF 09690 
81F09700 


r 


OB50 C302 






LD 


3 ADRS-CMN 


SAVE ADDRESS FOR PRINT 


81F09710 


- 


0B51 0319 






STO 


3 M0D1-CMN 


* 


81F09720 




0B52 1 C500 


0C97 


TR4A 


LD 


LI FLZRO-l 


GET PATTERN WORD 


81F09730 


r 


0B54 D31A 






STO 


3 M0D2-CMN 


SAVE FOR PRINT 


81F09740 




0B55 43B8 






BSI 


3 STINT-CMN 


SET MONITOR INDICATOR 


81F09750 




0B56 04C0 






DC 


/D4C0 


INSTRUCTION = 


81F09760 


r 


• 0B57 1 0C5C 






DC 


ADRS 


* STO I ADRS INTO AUX CORE 81F09770 




0B58 43C0 






BSI 


3 CKINT-CMN 


CHECK INTERNAL INTERRUPT 


81F09780 




0B59 1 0C5C 






DC 


ADRS 


ADDRESS BEING TESTED 


81F09790 


/ 


0B5A 43B8 






BSI 


3 STINT-CMN 


SET MONITOR INDICATOR 


81F09800 


v - 


0B5B C4C0 






DC 


/C4C0 


INSTRUCTION « 


81F09810 




0B5C 1 0C5C 






DC 


ADRS 


* LD I ADRS FROM AUX CORE 


81F09820 


/ 


0B5D 43CD 






BSI 


3 CKINT-CMN 


CHECK INTERNAL INTERRUPT 


81F09830 




0B5E 1 0C5C 






DC 


ADRS 


ADDRESS BEING TESTED 


81F09840 




0B5F D31B 






STO 


3 M0D3-CMN 


SAVE FOR PRINT 


81F09850 


r 


0B60 F31A 






EOR 


3 M0D2-CMN 


CHECK WORD 


81F09 860 


i ■ 


0B61 1 4C18 


0B69 




BSC 


L TR4B,+- 


BRANCH IF CORRECT 


81F09870 




0B63 1 4400 


0CE1 




BSI 


L PRINT 


PRINT ERROR 


81F09880 


r 

( 


0B65 E025 






DC 


/E025 


MESSAGE ID 


81F09890 


0B66 1 0C73 






DC 


MODI 


MESSAGE ADDRESS 


81F09900 




0B67 0003 






DC 


3 


WORD COUNT 


81F09910 


/ 


0B68 1 0B52 






DC 


TR4A 


LOCK RETURN 


81F09920 


I 


0B69 71FF 




TR4B 


MDX 


1 -1 


DECR INDEX 


81F09930 




0B6A 70E7 






MDX 


TR4A 


LOOP 


8 IF 09940 


X 


0B6B 1 4C00 


08EC 




BSC 


L TRB 


RETURN TO COMMON 


81F09950 


» »- 






*************** ************************************ 


81F09960 








* 




TEST 


AUX CORE USING THE WORST * 


81F09970 


/" 






* 




CASE 


PATTERN. * 


81F09980 


C- 






*************************************************** 


81F09990 








* 








81F10000 


/" 






* 




THE PATTERN USED IS 


81F10010 


t «* 






* 








81F10020 








* 




64 WORDS-FFFF 


81F10030 


i/~ 






* 




64 WORDS-0000 


8 IF 10040 


St. lt ***' 






* 
* 




64 WORDS-FFFF 
64 WORDS-0000 


81F10050 
81F10060 


/"*" 






* 




64 WORDS-0000 


81F10070 


k 






* 
* 




64 WORDS-FFFF 
64 WORDS-0000 


81F10080 
8 IF 10090 


/*■ 






* 




64 WORDS-FFFF 


81F10100 


w 






* 




REPEAT THE 


SEQUENCE 


81F10110 








*************** ************************************ 


81F10120 


^ 






* 








81F10130 


^* 


0B6D C320 




TR5 


LD 


3 HE026-CMN 


SET MESSAGE ID 


81F10140 




0B6E 1 D400 OBCB 




STO 


L TR5PR 


* IN PRINT CALL 


81F10150 




0B70 C34E 






LD 


3 WCPT-CMN 


GET PATTERN ADDRESS 


81F10160 




0B71 1 D400 0B8C 


TR67 


STO 


L TR5P+1 


SET IN COMMON ROUTINE 


81F10170 




0B73 1 D400 OBBC 




STO 


L TR5Q+1 


* 


81F10180 




0B75 1 4C00 0B86 




BSC 


L TR567 


GO TO COMMON ROUTINE 


81F10190 


"*■" 






* 








81F10200 








*************************************************** 


81F10210 



BATE 

EC NO. 



14N0V69 
431319 



PROG ID 
PAGE 
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081F-0 
8 



3ATE 
EC NO. 



0B77 C320 
0B78 1 D400 OBCB 
0B7A C351 
0B7B 70F5 



* TEST AUX CORE USING THE * 

* COMPLIMENT WORST CASE PATTERN * 
*********************************************** #<1 ^ 

* 

* THE PATTERN USED IS 

* 

* 64 WORDS-0000 

* 64 WORDS-FFFF 

* 64 WORDS-0000 

* 64 WORDS-FFFF 

* 64 WORDS-FFFF 

* 64 WORDS-0000 

* 64 WORDS-FFFF 

* 64 WORDS-0000 

* REPEAT THE SEQUENCE 

************************************************^* + 
* 

T5 LD 3 HE026-CMN SET MESSAGE ID 

STO L TR5PR * IN PRINT CALL 

LD 3 CMWC-CMN GET PATTERN ADDRESS 

MDX TR67 SET IN COMMON ROUTINE 



0B7C C321 
0B7D 1 D400 OBCB 
0B7F C34F 
0B80 70F0 



0B81 C322 
0B82 1 D400 OBCB 
0B84 C350 
0B85 70EB 



*************************************************** 

* SET AND CHECK A PATTERN OF * 

* 0101 INTO EACH AUX CORE * 

* LOCATION. THE PATTERN WORD * 

* USED IS HEX 5555. * 
******* ******************************************** 
* 

TR6 LD 3 HE027-CMN SET MESSAGE ID 

STO L TR5PR * IN PRINT CALL 

LD 3 AL01-CMN GET PATTERN ADDRESS 

MDX TR67 SET IN COMMON ROUTINE 

* 

**************************************************^ 

* SET AND CHECK A PATTERN OF * 

* 1010 INTO EACH AUX CORE * 

* LOCATION. THE PATTERN WORD * 

* USED IS HEX AAAA. * 
******* **************************************** *** A 
* 

TR7 LD 3 HE028-CMN SET MESSAGE ID 

STO L TR5PR * IN PRINT CALL 

LD 3 AL10-CMN GET PATTERN ADDRESS 

MDX TR67 SET IN COMMON ROUTINE 

* 

******************** ******************************* 

* COMMON ROUTINE TO TR4, TR5 * 

* AND TR6. THIS ROUTINE WILL * 

* SET AND TEST THE WORST CASE * 

* PATTERN, ALTERNATE 0-1 PATTERN * 

* AND ALTERNATE 1-0 PATTERN. * 
*************************************************** 

* 

SET PATTERN INDEX 

SAVE IX 2 

GET LOC ADRS 

SAVE 

SET LENGTH INDEX 

GET A PATTERN WORD 

SET MONITOR INDICATOR 

INSTRUCTION = 

* STO I ADRS INTO AUX 

CHECK INTERNAL INTERRUPT 

ADDRESS BEING TESTED 

CHECK SINGLE ADDRESS SW 

BRANCH IF SINGLE ADDRESS 

GET SWITCH FUNCTION 



0B86 





6108 




TR567 


LDX 


I 


8 


0B87 





6A6A 






STX 


2 


TR5K+1 


0B88 





C302 






LD 


3 


ADRS-CMN 


0B89 





D311 






STO 


3 


TSTCT-CMN 


0B8A 





6240 




TR5A 


LDX 


2 


64 


0B8B 





C500 


0000 


TR5P 


LD 


LI 


*-* 


0B8D 





43B8 






BSI 


3 


STINT-CMN 


0B8E 





D4C0 






DC 




/D4C0 


0B8F 


1 


0C5C 






DC 




ADRS 


0B90 





43CD 






BSI 


3 


CKINT-CMN 


0B91 


1 


0C5C 






DC 




ADRS 


0B92 


1 


7400 


0C68 




MDX 


L 


SNAD.O 


0B94 





701F 






MDX 




TR5E 


0B95 


1 


C400 


0802 




LD 


L 


SWO 



81F10220 

81F10230 

81F10240 

81F10250 

81F10260 

81F10270 

8 IF 10280 

81F10290 

8 IF 10300 

81F1031O 

81F10320 

81F10330 

81F10340 

81F10350 

81F10360 

81F10370 

81F10380 

81F10390 

81F10400 

81F10410 

81F10420 

81F10430 

8 IF 1 0440 

81F10450 

81F10460 

8 IF 10470 

81F10480 

81F10490 

81F10500 

81F10510 

81F10520 

81F10530 

81F10540 

81F10550 

81F10560 

81F10570 

81F10580 

81F10590 

81F10600 

81F10610 

81F10620 

81F10630 

8 IF 10640 

81F10650 

81F10660 

81F10670 

81F10680 

81F10690 

8 IF 10700 

81F10710 

81F10720 

81F10730 

81F10740 

81F10750 

81F10760 

81F10770 

81F10780 

81F10790 

81F10800 

81F10810 

81F10820 

81F10830 

81F10840 

81F10850 

81F10860 

81F10870 

81F10880 

81F10890 



14N0V69 
431319 



PROG ID 
PAGE 



081F-0 
8A 



1-1 I 



i 



{ 



I 



I 



I 
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{ 

c 
c 

s 



s 



v. •- 

c 

c 
{ 

{ 

s 

x 
s 

s 

/ 

/ 



cC 



s 



0B97 1 4C04 08A7 



0B99 C302 
0B9A 9301 
0B9B 1 4C18 0BB4 

0B9D 1 4400 OCCC 
0B9F 1 OBAO 



* 
* 
* 



OBAO 
0BA1 
0BA2 
0BA3 



C302 
830B 
D302 
1008 



0BA4 1 4C18 OBAC 



0BA6 
0BA7 
0BA8 
0BA9 
OBAA 
OBAB 



72FF 
70E3 
71FF 
70EO 
6108 
70DE 



OBAC 1 7400 0C69 
OBAE 7005 

OBAF C302 
OBBO 8305 
0BB1 E309 
0BB2 D302 
0BB3 70F2 



TR5L 



TR5C 



* 
TR50 



0BB4 
0BB6 
0BB7 
0BB8 
0BB9 
OBBA 
OBBB 
OBBD 
OBBE 
OBBF 
OBCO 
0BC1 
0BC2 
0BC3 
0BC4 
0BC5 
0BC7 
0BC8 
0BC9 
OBCB 
OBCC 
OBCD 
OBCE 



44C0 OCCC 
0BB7 



6108 

C311 

D302 

6240 

C500 0000 

031A 

43B8 

C4C0 

0C5C 

43 CD 

0C5C 

D31B 

F31A 
1 4C18 OBCF 
C302 

D319 

4400 0CE1 

0000 

0C73 

0003 



* 

* 
* 

TR5E 

TR5N 



TR5F 
TR5Q 



1 OBBB 



OBCF 1 7400 0C68 
0BD1 701F 
0BD2 1 C400 0802 
0BD4 1 4C04 08A7 



0BD6 C302 



TR5PR 



TR5M 



* 
* 
* 



BSC 



LD 

S 

BSC 

BSI 
DC 

LD 

A 

STO 

SLA 

BSC 

MDX 

MDX 

MDX 

MDX 

LDX 

MDX 

MDX 
MDX 

LD 

A 

AND 

STO 

MDX 



BSI 

DC 

LDX 

LD 

STO 

LDX 

LD 

STO 

BSI 

DC 

DC 

BSI 

DC 

STO 

EOR 

BSC 

LD 

STO 

BSI 

DC 

DC 

DC 

DC 

MDX 
MDX 
LD 
BSC 



LD 



L CNTLO.E BRANCH IF TERMINATION REO 

CHECK FOR END OF CORE 



3 ADRS-CMN 
3 MAXAD-CMN 
L TR5E.+- 

L MNEX 
TR5L 



ADRS-CMN 

Kl-CMN 

ADRS-CMN 

8 

TR5D,+- 

-l 

TR5P 

-1 

TR5A 

8 

TR5A 



L SNBK.O 
TR5E 

3 ADRS-CMN 
3 H1000-CMN 
3 HF1FF-CMN 
3 ADRS-CMN 
TR5C 



GET CURRENT ADDRESS 
SUBTRACT MAXIMUM ADDRESS 
BRANCH IF END OF CORE 

EXIT TO MONITOR 
RETURN ADDRESS 

INCREMENT ADDRESS 

* 

CHECK FOR END OF BLOCK 
BR IF END OF BLOCK 
DECR LENGTH INDEX 
CONTINUE PATTERN 
DECR PATTERN INDEX 
CONTINUE PATTERN 
RESET PATTERN INDEX 
CONTINUE PATTERN 

CHECK SINGLE BLOCK SW 
BRANCH IF SINGLE BLOCK 

ADJUST ADRS TO NEXT BLOCK 
CONTINUE ROUTINE 



PATTERN IS SET-CHECK 



L MNEX 
TR5N 

1 8 

3 TSTCT-CMN 
3 ADRS-CMN 

2 64 
LI *-* 

3 M0D2-CMN 
3 STINT-CMN 

/C4C0 
ADRS 
3 CKINT-CMN 
ADRS 

M0D3-CMN 
M0D2-CMN 
TR5M,+- 
ADRS-CMN 
M0D1-CMN 
L PRINT 
*-* 
MODI 
3 
TR5Q 

L SNAD.O 

TR5K 
L SWO 
L CNTLO.E 



EXIT TO MONITOR 
RETURN ADDRESS 
SET PATTERN INDEX 
RESTORE STARTING ADDRESS 

* 

SET LENGTH INDEX 

GET PATTERN WORD 

SAVE FOR PRINT 

SET MONITOR INDICATOR 

INSTRUCTION = 

* LD I ADRS FROM AUX CORE 

CHECK INTERNAL INTERRUPT 

ADDRESS BEING TESTED 

SAVE FOR PRINT 

CHECK WORD 

BRANCH IF CORRECT 

SAVE ADDRESS FOR PRINT 

* 

PRINT ERROR 

MESSAGE ID 

MESSAGE ADDRESS 

WORD COUNT 

LOCK RETURN 

CHECK SINGLE ADDRESS SW 
BRANCH IF SINGLE ADDRESS 
GET SWITCH FUNCTION 
BRANCH IF TERMINATION REQ 



CHECK FOR END OF CORE 
3 ADRS-CMN GET CURRENT ADDRESS 



(III 
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8 IF 10900 

81F10910 

81F10920 

81F10930 

8 IF 10940 

81F10950 

81F10960 

81F10970 

81F10980 

81F10990 

81F11000 

81F11010 

81F11020 

81F11030 

81F11040 

81F11050 

81F11060 

81F11070 

81F11080 

8 IF 11090 

81F11100 

81F11110 

81F11120 

81F11130 

81F11140 

81F11150 

81F11160 

81F11170 

81F11180 

81F11190 

81F11200 

81F11210 

81F11220 

81F11230 

81F11240 

81F11250 

81F11260 

8 IF 11 270 

81F11280 

81FU290 

81F11300 

81F11310 

81F11320 

81FH330 

81F11340 

81F11350 

81F11360 

81F11370 

81F11380 

81F11390 

8 IF 11400 

81F11410 

81F11420 

81F11430 

81F11440 

81F11450 

8 IF 11460 

81F11470 

8 IF 11480 

81F11490 

81F11500 

81F11510 

81F11520 

81F11530 

8 IF 11 540 

81F11550 

81F11560 

81F11570 



I < I I I ((<((( I I | ( ( 
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0BD7 9301 
0BD8 1 4C18 0BF1 

OBDA 1 4400 OCCC 
OBDC 1 OBDD 



OBDD 
OBDE 
OBDF 
OBEO 
0BE1 
0BE3 
0BE4 
0BE5 
0BE6 
0BE7 
0BE8 



C302 

830B 

D302 

1008 

4C18 0BE9 

72FF 

70D6 

71FF 

70D3 

6108 

70D1 



0BE9 1 7400 0C69 
OBEB 7005 

OBEC C302 
03ED 8305 
OBEE E309 
OBEF D302 
OBFO 70F2 

0BF1 6600 0000 
0BF3 1 4C00 0908 



* 
TR50 



TR5H 



* 
TR5J 



* 
TR5K 



S 

BSC 

BSI 
DC 

LD 
A 

STO 
SLA 

BSC 
MDX 
MDX 
MDX 
MDX 
LDX 
MDX 

MDX 
MDX 

LD 

A 

AND 

STO 

MDX 

LDX 
BSC 



L2 

L 



MAXAD-CMN SUBTRACT MAXIMUM ADDRESS 

TR5K.+- BRANCH IF AT END OF CORE 

MNEX EXIT TO MONITOR 

TR50 RETURN ADDRESS 

ADRS-CMN INCREMENT ADDRESS 

Kl-CMN * 

ADRS-CMN * 

8 CHECK FOR END OF BLOCK 

TR5J t +- BRANCH IF END OF BLOCK 

-1 DECR LENGTH INDEX 

TR5Q CONTINUE 

-1 DECR PATTERN INDEX 

TR5F CONTINUE 

8 RESTORE PATTERN INDEX 

TR5F CONTINUE 

SNBK,0 CHECK SINGLE BLOCK SW 

TR5K BRANCH IF SINGLE BLOCK 

ADRS-CMN ADJUST ADRS TO NEXT BLOCK 

H1000-CMN * 

HF1FF-CMN * 

ADRS-CMN * 

TR5H CONTINUE ROUTINE 

*-* RESTORE INDEX 2 

TRC ROUTINE COMPLETE 



********************************* ******** ********** 
*' TEST AUX CORE FOR INTERNAL * 

* INTERRUPT ON ILLEGAL ADDRESS * 

*************************************************** 

* 

GET LEGAL ADDRESS 

SET BIT 6=1 

SAVE ILLEGAL ADDRESS 

INFORM MONITOR TO EXPECT 

* INTERNAL INTERRUPT 
INSTRUCTION = 

* LD I ADRS1 INTO AUX 
DELAY FOR INTERRUPT 
* 
* 

DID INTERRUPT OCCUR 
BRANCH IF NOT 
EXIT ROUTINE 



0BF5 





C302 




TR8 


LD 


3 


ADRS-CMN 


0BF6 





EB04 






OR 


3 


H0200-CMN 


0BF7 





D303 






STO 


' 3 


ADRS1-CMN 


0BF8 


1 


C400 


07FF 


TR8A 


LD 


L 


PID 


OBFA 





D400 


0133 




STO 


L 


CRCK 


OBFC 





C4C0 






DC 




/C4C0 


OBFD 


1 


0C5D 






DC 




ADRS1 


OBFE 





610A 






LDX 


1 


10 


OBFF 





71FF 




TR8B 


MDX 


1 


-1 


OCOO 





70FE 






MDX 




TR8B 


0C01 





7400 


0133 




MDX 


L 


CRCK.O 


0C03 





7002 






MDX 




TR8D 


0C04 


1 


4CO0 


08EC 


TR8C 

* 
* 
* 
TR8D 


BSC 


L 


TRB 














INTE 


0C06 





1010 




SLA 




16 


0C07 





D400 


0133 




STO 


L 


CRCK 


0C09 





C303 






LD 


3 


ADRS1-CMN 


OCOA 





D319 






STC 


3 


M0D1-CMN 


OCOB 


1 


4400 


0CE1 




BSI 


L 


PRINT 


OCOD 





E029 






DC 




/E029 


OCOE 


1 


0C73 






DC 




MODI 


OCOF 





0001 






DC 




1 


0C10 


1 


0BF8 






DC 




TR8A 


0C11 





70F2 






MDX 




TR8C 



INTERRUPT DID NOT OCCUR 



CLEAR MONITOR INDICATOR 

* 

GET ILLEGAL ADDRESS 

SAVE FOR PRINT 

PRINT ERROR 

MESSAGE ID 

MESSAGE ID 

WORD COUNT 

LOCK RETURN 

GO EXIT ROUTINE 



*************************************************** 

* TABLE OF COMMON VALUES * 
*************************************************** 

* 
*************************************************** 

* ROUTINE TO INFORM MONITOR TO * 
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81F11580 
81F11590 
81F11600 
81F11610 
81F11620 
81F11630 
81F11640 
81F11650 
81F11660 
81F11670 
81F11680 
8 IF 11690 
81F11700 
81F11710 
81F11720 
81F11730 
81F11740 
81F11750 
81F11760 
81F11770 
81F11780 
81F11790 
81F11800 
81F11810 
81F11820 
81F11830 
81F11840 
81F11850 
81F11860 
81F11870 
81F11880 
81F11890 
81F11900 
81F11910 
81F11920 
81F11930 
81F11940 
81F11950 
81F11960 
81F11970 
81F11980 
81F11990 
8 IF 12000 
81F12010 
81F12020 
81F12030 
81F12040 
81F12050 
81F12060 
81F12070 
81F12080 
81F12090 
81F12100 
81F12110 
81F12120 
81F12130 
81F12140 
8 1F12150 
81F12160 
81F12170 
81F12180 
81F12190 
81F12200 
81F12210 
81F12220 
81F12230 
81F12240 
81F12250 



f DATE 
Cv EC NO. 



14N0V69 
431319 
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jDATE 
'EC NO. 
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9A 
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« 



1 I 



/ 



IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 
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r 

r 

r 

r 
r 
r 
f 
/ 



s 
s 

r 

r 

r 
f 



r 
r 
r 



r &4TE 
v IC NO. 



0C12 
0C13 
0C14 
0C15 
0C17 
0C18 
0C19 
0C1A 
0C1B 
0C1C 
0C1E 
0C20 
0C22 
0C24 
0C2 5 



0000 
D058 
690E 
6580 0C12 



C100 

D03F 

C101 

D03E 

71FF 
1 6D00 0C51 
1 C400 07FF 

D400 0133 

6500 0000 

C047 

4C80 0C12 



0C27 

0C28 
0C29 
0C23 
0C2D 
0C2E 
OC30 
0C32 
0C33 
0C34 
0C36 
0C37 
0C39 
0C33 
0C3C 
0C3E 
0C40 
0C4 2 
0C44 
0C45 
0C47 
0C49 
0C4A 



0000 
D043 

C40Q 

1 4C20 
6915 
6580 
C580 
D024 
C018 
D400 
C016 
D400 
0400 
802A 

1 D400 
1 6580 
4C00 
6500 
1010 
D400 
7401 
C022 
4C80 



0133 
0C44 

0C27 
0000 



0CE1 

0D2C 
0CF2 

0D08 
0C43 
0CE9 
0000 

0133 
0C27 

0C27 



0C4C 
0C4D 
0C4E 
0C4F 
0C50 
0C51 
0C52 
0C54 
0C55 
0C56 
0C57 
0C5 8 
0C59 
0C5A 
0C5A 
0C5B 
0C5C 
0C5D 



0C4E 

0C54 

E005 

0C57 

0003 

0000 

4C00 0C42 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 



• 
STINT 



ST1NA 



DC 

STO 

STX 

LDX 

LD 

STO 

LD 

STO 

MOX 

STX 

LO 

STO 

LDX 

LD 

BSC 



1 

II 

1 



*~* 

TMP 

STINA+1 

STINT 



M0D02 
1 1 

M0D03 
1 -1 
LI RTRN1 
L 
L 
LI 

I 



* IGNORE INTERNAL INTERRUPT IF * 81F12260 

* THIS PROGRAM IS RUNNING * 81F12270 
************************************************,,,,<,„, 81F12280 

81F12290 

ENTRY POINT 81F12300 

SAVE A REGISTER 81F12310 

SAVE INDEX 1 81F12320 

INDEX = CALL ADDRESS 81F12330 

GET INSTRUCTION 81F12340 

SAVE FOR PRINT 81F12350 

GET INSTRUCTION ADDRESS 81F12360 

SAVE FOR PRINT 8 1F12370 

SET LOCK RETURN 81F12380 

SAVE LOCK ADDRESS 81F12390 

PID SET MONITOR INDICATOR 81F12400 

CR CK * 81F12410 

*-* RESTORE INDEX 1 8 1F12420 

TMP RESTORE A REGISTER S1F12430 

STINT ROUTINE EXIT 81F12440 
**************** *********************************** g if 12450 

* CHECK CURRENT ADDRESS FOR * 81F12460 

* UNEXPECTED INTERRUPT! INTERNAL) * 81F12470 

*********** ***************************** * ********** 8 IF 12 480 

91F12490 
81F12500 
81F125I0 
81F12520 
81F12530 
81F12540 
81F12550 
8IF12560 
8 1F12570 
81F12580 
81F12590 
81F12&00 
81F12610 
81F12&20 
81F12630 
8 IF 12640 
81F12650 
81F12660 
81F12670 
81F12680 
81F12690 
81FI2700 
81F12710 
81F12720 
81F12730 
81F12740 
81F12750 
81F12760 
MESSAGE 81F12770 
81F12780 



* 

CKINT DC 
STO 
LD 
BSC 
STX 
LDX 
LD 
STO 
LD 
STO 
LO 
STO 
STQ 
A 

STO 
LDX 
BSC 

CKINA LDX 

CKINB SLA 
STO 
MDX 
LD 
BSC 

* 
* 

RTRNA DC 
MSAD1 DC 
RTRN DC 
DC 
DC 
RTRN1 DC 

BSC 
SPMSG DC 
DC 
DC 
M0D01 DC 
M0D02 DC 
MOD03 DC 

BSS 
CMN DC 
MAXAD DC 
ADRS DC 
ADRS1 DC 



*-* ENTRY POINT 

TMP SAVE A REGISTER 

CRCK CHECK IF INTRPT OCCURREO 

CKINB, Z BRANCH IF NOT 

CKINA+1 SAVE INDEX 1 

CKINT INDEX = CALL ADDRESS 

II GET TEST ADDRESS 

M0D01 SAVE FOR PRINT 

RTRNA SET PRINT RETURN 

L PRINT * 

MSAD1 SET MESSAGE ADDRESS 

PRNTP+2 * 

PRNTI+1 * 

K2 * 

PRNTB+1 # 

CKINA+1 RESTORE IX 1 IN CASE OF LK 

PRNTO PRINT MESSAGE 

*-* RESTORE INDEX 1 

16 CLEAR MONITOR INDICATOR 

CRCK * 

CKINT, 1 INCR RETURN 

TMP RESTORE A REGISTER 

CKINT EXIT ROUTINE 



L 
L 

1 
II 



L 

L 

L 
II 
L 
LI 



SPECIAL MESSAGE CONSTANTS 

RTRN SPECIAL PRINT RETURN 

SPMSG ADDRESS OF SPECIAL 

/E005 SPECIAL MESSAGE ID 

M0D01 MODIFIER ADDRESS 

3 WORD COUNT 

*-* LOCK RETURN 

CKINA RETURN TO CKINT ROUTINE 

*-* WORD COUNT 

MSG LINE CONTROL 

*-* MESSAGE 10 

*-* MESSAGE MODIFIERS 

*-* * 

*-* * 



RESERVED 

*-* MAX AUX CORE ADRS 

*-* AUX ADRS TO TEST 

*-* AUX ADRS TO TEST 



14N0V69 
431319 



81F12790 
81F12800 
81F12810 
81F12820 
81F12830 
81F12840 
81F12850 
81F12860 
81F12870 
81F12880 
81F12890 
81F12900 
81F12910 
81F12920 
81F12930 



PROG ID 
PAGE 
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I I 



I ! I 



081F-0 
10 



0C5E 





0200 


0C5F 





1000 


0C60 





5555 


0C61 





AAAA 


OC62 





EOOO 


0C63 





F1FF 


0C64 





FFFF 


0C6 5 





0001 


0C66 





0002 


0C67 





0004 


0C68 





0000 


0C69 





0000 


0C6A 





0000 


0C6B 





0000 


0C6C 





0000 


0C6D 


1 


0C70 


0C6E 





0009 


0C70 




0000 


0C70 





0000 


0C71 





0000 


0C72 


Q 


0000 


0C?3 





0000 


0C74 





0000 


0C75 





0000 


0C76 





0000 


0C77 





0000 


0C78 





0000 


0C79 





0000 



0C7A E026 
0C78 E027 
0C7C E028 



0C7D 


1 


0835 


0C7E 


1 


090A 


0C7F 


1 


0B17 


0C80 


1 


0B31 


0C81 


1 


034F 


0C82 


1 


OB&D 


0C83 


1 


0B77 


0C84 


1 


0B7C 


0C85 


I 


0B81 


0C86 


1 


0BF5 



0C87 





0001 


0C88 





0002 


0C89 





0004 


0C8A 





0008 


0C8B 





0010 


0C8C 





0020 


0C8D 





0040 


0C8E 





0080 


0C8F 





0100 


0C90 





0200 


0C91 





0400 


0C92 





0800 


0C93 





1000 


0C94 





2000 


0C95 





4000 


0C96 





8000 



H0200 


DC 


/0200 


H1000 


DC 


/1000 


H5555 


DC 


/5555 


HAAAA 


DC 


/AAAA 


HEOOO 


DC 


/EOOO 


HF1FF 


DC 


/F1FF 


HFFFF 


DC 


/FFFF 


* 






Kl 


DC 


1 


K2 


DC 


2 


K4 


DC 


4 


* 






SNAD 


DC 


*-* 


SNBK 


DC 


*-* 


EROC 


DC 


*-* 


TSTCT 


DC 


*-* 


TMP 


DC 


*-* 


HSGAD 


DC 


MSGO 


NRTNS 


DC 


9 


* 








BSS 


E 


MSGO 


DC 


*-* 




DC 







DC 


*-* 


MODI 


DC 


*-* 


M0D2 


DC 


*-* 


H0D3 


DC 


*-* 


M0D4 


DC 


*-* 


M0D5 


DC 


*-* 


M0D6 


DC 


*-* 


H0D7 


DC 


*-* 


HE026 


DC 


/E026 


HE027 


DC 


/E027 


HE028 


DC 


/E028 



HEXADECIMAL CONSTANT 

HEXADECIMAL CONSTANT 

HEXADECIMAL CONSTANT 

HEXADECIMAL CONSTANT 

HEXADECIMAL CONSTANT 

HEXADECIMAL CONSTANT 

HEXADECIMAL CONSTANT 

DECIMAL CONSTANT 
DECIMAL CONSTANT 
DECIMAL CONSTANT 

SINGLE ADDRESS SWITCH 
SINGLE BLOCK SWITCH 
ERROR OCCURRED SWITCH 
TEMPORARY STORAGE 
TEMPORARY STORAGE 
NORMAL MESSAGE ADDRESS 
NUMBER OF TEST RCUTINES 



MSG 


WORC 


COUNT 


MSG 


LINE 


CONTROL 


MSG 


ID 




MSG 


MODIFIERS 


* 






* 






* 






* 






* 






* 






MESSAGE 


ID-RTNS 5 


MESSAGE 


ID-RTN 7 


MESSAGE 


ID-RTN 8 



*************************************************** 

* TABLE OF ROUTINE ADDRESS 
*************************************************** 
* 

EDIT ENTRY-ILLEGAL ADRS 
RTTBL DC TR1 AUX INSTRUCTION TEST 

ADDRESSING TEST 
FLOATING ONE TEST 
FLOATING ZERO TEST 
WORST CASE PATTERN TEST 
COMPL WORST CASE PATTERN 
ALTERNATE 0/1 TEST 
ALTERNATE 1/0 TEST 

ILLEGAL ADDRESSING TEST 
***************************************** ********** 

* FLOATING ONE PATTERN * 

***************** ** ************** ****************** 



DC 


EDERR 


DC 


TR1 


DC 


TR2 


DC 


TR3 


DC 


TR4 


DC 


TR5 


DC 


T5 


DC 


TR6 


DC 


TR7 


DC 


TR8 
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FLONE 



DC 


/0001 


DC 


/0002 


DC 


/0004 


DC 


/0008 


DC 


/0010 


DC 


/0020 


DC 


/0040 


DC 


/0080 


DC 


/OlOO 


DC 


/0200 


DC 


/0400 


DC 


/0800 


DC 


/1000 


DC 


/2000 


DC 


/4000 


DC 


/8000 



BIT 



15 

14 

13 

12 

11 

10 

9 

8 

7 

6 

5 

4 

3 

2 

1 





DATE 
EC NO. 
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81F12940 
81F12950 
81F12960 
81F12970 

81F12980 

81F12990 

81F13000 

81F130X0 

81F13020 

81F13030 

81F13040 

81F13050 

81F13060 

8IF13070 

81F13080 

81F1309Q 

81F13100 

81F13110 

81F13120 

81F13130 

81F13140 

81F13150 

81F1316C 

81F13170 

81F13180 

81F13190 

81F13200 

81F13210 

81F13220 

81F13230 

81F 13240 

81F13250 

81F13260 

81F13270 

81F13280 

81F13290 

81F13300 

81F13310 

81F13320 

81F13330 

81F13340 

81F13350 

81F13360 

81F13370 

81F13380 

81F13390 

8 1F13400 

81F13410 

81F13420 

81F13430 

81F13440 

81F13450 

81F13460 

81F13470 

81F13480 

81F13490 

81F13500 

81F13510 

81F13520 

81F13530 

81F13540 

81F13550 

81F13560 

81F13570 

81F13580 

81F13590 

81F13600 

81F13610 
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PAGE 
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I i 



r 
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r 
r 

r 
r 
f 

r 

r 
r 
r 
s 
r 

c 

6. 

r 
r 
r 
r 

C 

r 
r 
r 
s~ 

r- 



r DATE 
.^ EC NO. 



0C97 0000 



0C98 





FFFE 


0C99 





FFFD 


0C9A 





FFFB 


0C9B 





FFF7 


0C9C 





FFEF 


0C90 





FFDF 


0C9E 





FFBF 


0C9F 





FF7F 


OCAO 





FEFF 


0CA1 





FDFF 


0CA2 





FBFF 


0CA3 





F7FF 


OCA 4 





EFFF 


0CA5 





OFFF 


0CA6 





BFFF 


OCA 7 





7FFF 


OCA 8 


1 


OCAB 


0CA9 


1 


OCBB 


OCAA 


1 


0CC3 


OCAB 


1 


0CB3 



OCAC 





FFFF 


OCAD 





0000 


OCAE 





FFFF 


OCAF 





0000 


OCBO 





0000 


0CB1 





FFFF 


0CB2 





0000 


0CB3 





FFFF 



0CB4 





0000 


0CB5 





FFFF 


0CB6 





0000 


0CB7 





FFFF 


0CB8 





FFFF 


0CB9 





0000 


OCBA 





FFFF 


OCBB 





0000 



OCBC 





5555 


OCBD 





5555 


OCBE 





5555 


OCBF 





5555 


OCCO 





5555 


0CC1 





5555 


0CC2 





5555 


0CC3 





5555 



DC /OOOO PARITY 

********* ****************************************** 

* FLOATING ZERO PATTERN * 

********************************************* ****** 



FLZRO DC 
DC 

DC 
DC 
DC 
OC 
DC 
DC 
OC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 



* 

WCPT 

AL01 

* 

ALIO 

* 

CMWC 



DC 
DC 

DC 

DC 



/FFFE 
/FFFD 
/FFFB 
/FFF7 
/FFEF 
/FFDF 
/FFBF 
/FF7F 
/FEFF 
/FDFF 
/FBFF 
/F7FF 
/EFFF 
/DFFF 
/BFFF 
/7FFF 

WCPAT-1 
ALT01-1 

ALT10-1 

CMPHC-1 



ZERO IN BIT PARITY E 15 

14 

13 

12 

11 

10 

9 

8 

7 

6 

5 

4 

3 

2 

1 



PATTERN ADRS-WORST CASE 
PATTERN ADRS-ALT 0-1 

PATTERN ADRS-ALT 1-0 



PATTERN ADRS-CMPL WORST CS 
*************************************************** 

* WORST CASE PATTERN * 

*************************************************** 



WCPAT DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 



/FFFF 
/OOOO 
/FFFF 
/OOOO 
/OOOO 
/FFFF 
/OOOO 
/FFFF 



64 WORDS OF EACH PATTERN 
* WORD WILL BE SET 

* 
* 
* 
* 
* 
* 



*************************************************** 

* COMPLIMENT WORST CASE PATTERN * 

*************************************************** 



CMPWC DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 



/OOOO 
/FFFF 
/OOOO 
/FFFF 
/FFFF 
/OOOO 
/FFFF 
/OOOO 



64 WORDS OF EACH PATTERN 
* WORD WILL BE SET 

* 
* 

* 
* 
* 



*************************************************** 

* ALTERNATE 0-1 PATTERN * 

* NOTE-THIS TABLE IS ARRANGED AS * 

* AN 8 WORD PATTERN TO * 

* ENABLE USE OF A COMMON * 

* ROUTINE WITH THIS PATTERN * 

* AND THE WORST CASE PATTERN* 
*************************************************** 

ALT01 DC /5555 TABLE COMPATABLE WITH 

DC /5555 * WORST CASE PATTERN 

DC /5555 * 

DC /5555 * 

DC /5555 * 

DC /5555 * 

DC /5555 * 

DC /5555 * 
*************************************************** 

* ALTERNATE 1-0 PATTERN * 

* NOTE-THIS TABLE IS ARRANGED AS * 
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81F13620 

81F13630 

81F13640 

81F13650 

81F13660 

81F13670 

81F13680 

81F13690 

81F13700 

81F13710 

81F13720 

8 IF 13730 

81F13740 

81F13750 

81F13760 

81F13770 

81F13780 

81F13790 

81F13800 

81F13810 

81F13820 

81F13830 

81F13840 

81F13850 

81F13860 

81F13870 

81F13880 

81F13890 

81F13900 

81F13910 

81F13920 

81F13930 

8 IF 13940 

81F13950 

81F13960 

81F13970 

81F13980 

81F13990 

8 IF 14000 

81F14010 

81F14020 

81F14030 

81F14040 

81F14050 

81F14060 

81F14070 

81F14080 

8 IF 14090 

81F14100 

8 IF 14110 

81F14120 

81F14130 

81F14140 

8 1F14150 

81F14160 

81F14170 

81F14180 

81F14190 

81F14200 

81F14210 

8 IF 14220 

81F14230 

81F14240 

81F14250 

81F14260 

81F14270 

81F14280 

81F14290 
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* 
* 

* 
* 



AN 8 WORD PATTERN TO * 
ENABLE USE OF A COMMON * 
ROUTINE WITH THIS PATTERN * 
AND THE WORST CASE PATTERN* 



*************************************************** 



0CC4 





AAAA 


0CC5 





AAAA 


0CC6 





AAAA 


0CC7 





AAAA 


0CC8 





AAAA 


0CC9 





AAAA 


OCCA 





AAAA 


OCCB 





AAAA 



ALT10 DC 
DC 

DC 
DC 
DC 
DC 
DC 
DC 



/AAAA 
/AAAA 
/AAAA 
/AAAA 
/AAAA 
/AAAA 
/AAAA 
/AAAA 



COMPATABLE WITH WORST 
* CASE PATTERN 

* 
* 
* 
* 
* 



*************************************************** 

* COMMON EXIT TO MONITOR ROUTINE * 

*************************************************** 

* 

ENTRY POINT 

GET RETURN ADDRESS 

SAVE 

SAVE INDEXING 

* 

* 

SET MONITOR RETURN 

* 

EXIT TO MONITOR 



occc 


OOOO 




MNEX 


DC 


*-* 


OCCD 


1 C480 


OCCC 




LD 


I MNEX 


OCCF 


D010 






STO 


CMEX+1 


OCDO 


6909 






STX 


1 CMEX1+1 


0CD1 


6A0A 






STX 


2 CMEX2+1 


0CD2 


6B0B 






STX 


3 CMEX3+1 


0CD3 


1 6500 


0CD9 




• LDX 


LI CMEX1 


0CD5 


1 6D00 


0809 




STX 


LI MLSCF 


0CD7 


4C80 


012D 


* 
* 
* 


BSC 


I START 

MO 



0CD9 6500 OOOO 
OCDB 6600 OOOO 
OCDD 67C0 OOOO 
OCDF 4C00 OOOO 



LI *-* 
L2 

L3 

L 



MONITOR WILL RETURN HERE 
RESTORE INDEXING 



*-* 



* 
* 
RETURN TO CALLING ROUTINE 



CMEX1 LDX 
CMEX2 LDX 
CMEX3 LDX 
CMEX BSC 

* 
*************************************************** 

* PRINT ROUTINE * 

*************************************************** 

* * 

* 
* 
* 
* 
* 
* 
* 



1. 



* THIS ROUTINE DETERMINES IF CALL IS TO LOG OR 

* ERROR MONITOR ROUTINES. 

* 

IF LOG- 

A. CHECK LOG BYPASS OPTION AND EXIT 
NORMALLY IF SELECTED. 

B. IF NOT BYPASSED-BUILD A LOG CALL AND 
MAKE THE CALL. 

C. TAKE THE NORMAL EXIT. 



2. IF ERROR- 

A. CHECK LOCK ON ERROR OPTION, AND SET 
ERROR LOCK OR NORMAL RETURN. 

B. BUILD MONITOR ERROR CALL. 

C. CHECK PRINT ONLY FIRST ERROR OPTION, 
AND CONTINUE IF OFF. IF ON CHECK 
ERROR HAS OCCURRED PROGRAM SWITCH. 

1. IF ERROR HAS OCCURRED EXIT TO 
PREVIOUSLY SET RETURN. 

2. IF NO ERROR HAS OCCURRED-CONT INUE. 



* 
* 
* 
* 
* 
* 
* 
* 
* 
****NOTE**** * 

IF ERROR OR LOG ROUTINES ARE BUSY THE ROUTINE * 
EXITS TO THE MONITOR START ROUTINE AND RE-TRIES * 
THE CALL UPON MONITOR RETURN. * 



D. CALL MONITOR ERROR ROUTINE. 

E. ON MONITOR RETURN-SET ERROR HAS 
OCCURRED PROGRAM SWITCH. 

F. EXIT TO PREVIOUSLY SET RETURN. 



DATE 
EC NO. 
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81F14300 

81F14310 

81F14320 

8 IF 14330 

81F14340 

81F14350 

81F14360 

81F14370 

81F14380 

81F14390 

81F14400 

81F14410 

81F14420 

81F14430 

81F14440 

81F14450 

81F14460 

8 IF 14470 

81F14480 

81F14490 

81F14500 

81F14510 

81F14520 

81F14530 

81F14540 

8 IF 14550 

81F14560 

81F14570 

81F14580 

81F14590 

81F14600 

81F14610 

81F14620 

81F14630 

8 IF 14640 

81F14650 

81F14660 

8 IF 14670 

81F14680 

81F14690 

81F14700 

81F14710 

81F14720 

8 IF 14730 

8 IF 14740 

81F14750 

8 IF 14760 

8 IF 14770 

8 IF 14780 

81F14790 

81F14800 

81F14810 

81F14820 

81F14830 

81F14840 

81F14850 

81F14860 

81F14870 

81F14880 

81F14890 

8 IF 14900 

81F14910 

81F14920 

81F14930 

81F14940 

8 IF 14950 

81F14960 

81F14970 



PROG ID 
PAGE 
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/ 

k. IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 
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r 
C 

s 

r 

r 

r 

r 

r 

,r 

s 

r 

r 

r 

r 

r 



.r 



r 
r 
r 
r 



f DATE 
- EC NO, 



0CE1 
0CE2 
0CE4 
0CE5 
0CE6 
0CE8 
0CE9 
OCEB 



OCEO 1 



OCEF 1 
0CF1 
0CF3 
0CF4 1 
0CF6 
0CF7 1 
0CF9 
OCFA 
OCFB 1 



0000 

C400 0C6D 
D047 
DOOC 

8400 0C66 
DO IF 

6D00 0D19 
6E00 0D1B 
6F00 0D1D 

6780 0CE1 
6600 0000 
C303 

4C20 OCFA 
COEA 

8400 0C67 
7001 
C303 
D400 0D42 



OCFD C300 
OCFE D202 

OCFF 1 6580 0800 
OD01 1 C500 0C7D 
0D03 1 D400 0801 

0D05 C302 
0D06 0200 

0D07 C400 0000 
0D09 1 F400 0C62 
ODOB 180C 
ODOC 1 4C18 0D22 

ODOE 1 C400 0802 
0D10 100D 
0D11 4828 
0D12 7005 



0D13 4480 012F 
0D15 I 0C70 
0D16 1 0D43 
0D17 0000 



0D18 6500 0000 
0D1A 6600 0000 
0D1C 6700 0000 
0D1E 1 7404 0CE1 
0D20 1 4C80 0CE1 



0D22 1 C400 0802 
0D24 100A 
0D25 1 4C10 0D2A 
0D27 1 7400 0C6A 
0D29 7005 

0D2A 4480 0130 
0D2C 0000 
0D2D 1 0D43 



********* 

* 

PRINT DC 
LD 
STO 
STO 
A 
STC 

PRNTO STX 
STX 
STX 

LDX 
PRNTI LDX 
LD 
BSC 
LD 
A 

MDX 
PRNTA LD 
PRNTH STO 

LD 
STO 

LDX 

LD 

STO 

LD 
STO 

PRNTB LD 
EOR 
SRA 
BSC 

LD 
SLA 
BSC 
MDX 

* 

# 

BSI 
DC 
DC 
DC 

* 
* 



**********************♦:************,, 



PRNTC LDX 

PRNTD LDX 

PRNTE LDX 

MDX 

BSC 

* 

PRNTG LD 
SLA 
BSC 
MDX 
MDX 

* 

PRNTP BSI 
DC 

DC 



*-* 
L MSGAD 

PRNTP+2 

PRNTI+1 
L K2 

PRNTB+1 
LI PRNTC+1 
L2 PRNTD+1 
L3 PRNTE+1 

13 PRINT 
L2 *-* 

3 3 
L PRNTA, Z 

PRINT 
L K4 
PRNTH 
3 3 
L PRNTF+1 

3 

2 2 

II RIO 

LI RTTBL-1 

L RAD 

3 2 

2 

L *-* 
L HEOOO 

12 
L PRNTG,+- 

L SWO 
13 
+2 

PRNTC 



ENTRY POINT 

GET MESSAGE ADDRESS 

SET IN ROUTINE 

* 

SAVE INDEXING 

* 
* 

IX 3 = CALL ADDRESS 
IX 2 = MSG ADDRESS 
GET LOCK RETURN 
BRANCH IF ACTIVE 
GET RETURN 
ADD 4 

SET AS LOCK RETURN 
SET LOCK RETURN 



SET MESSAGE ID 

* 

IX 1 = ROUTINE NUMBER 
GET ROUTINE ADDRESS 
SET FOR MESSAGE 

GET NUMBER OF MODIFIERS 
SET AS MSG WORD COUNT 

GET MESSAGE ID 
CHECK FOR ERROR CALL 

BRANCH IF ERROR CALL 

CHECK LOG BYPASS OPTION 



SKIP IF OFF 
GO EXIT 



CALL MONITOR LOG ROUTINE 

I LOG MONITOR LOG CALL 

MSGO ADRS OF MESSAGE 

PRBSY BUSY RETURN 

NOT USED 

EXIT ROUTINE 

RESTORE INDEXING 

* 
*-* * 
PRINT, 4 I NCR RETURN 
PRINT EXIT ROUTINE 



LI *-* 
L2 *-* 

L3 

L 
I 



CALL MONITOR ERROR ROUTINE 



L SWO 

10 
L PRNTP, - 
L EROCO 

PRNTQ 



1 



ERROR 

*-* 

PRBSY 



CHECK 1ST ERROR ONLY 
* OPTION 
BRANCH IF OFF 
SKIP IF NO ERROR 
SKIP PRINT 

MONITOR ERROR CALL 
ADRS MESSAGE 
BUSY RETURN 



14N0V69 
431319 



*** 81F14980 
81F14990 
81F15000 
81F15010 
81F15020 
81F15030 
81F15040 
81F15050 
81F15060 
81F15070 
81F15080 
81F15090 
81F15100 
81F15110 
8 1F15120 
81F15130 
81F15140 
81F15150 
81F15160 
81F15170 
81F15180 
81F15190 
8 IF 15200 
81F15210 
81F15220 
81F15230 
81F15240 
81F15250 
81F15260 
8 1F15270 
81F15280 
81F15290 
81F15300 
8 IF 15310 
81F15320 
81F15330 
81F15340 
81F15350 
81F15360 
81F15370 
81F15380 
8 IF 15390 
81F15400 
81F15410 
81F15420 
81F15430 
81F15440 
81F15450 
81F15460 
81F15470 
81F15480 
81F15490 
81F15500 
81F15510 
81F15520 
81F15530 
81F15540 
81F15550 
81F15560 
81F15570 
81F15580 
81F15590 
81F15600 
81F15610 
81F15620 
81F15630 
8 IF 15640 
81F15650 



PROG ID 
PAGE 
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0D2E 1 0D38 
0D2F 1 C400 0C64 
0D31 1 D400 0C6A 
0D33 1 C400 0802 
0D35 100C 

4810 

70E0 



0D36 
0D37 



0D38 1 4400 OCCC 
0D3A 1 0D3B 



0D3B 1 6580 0D19 
0D3D 1 6680 0D1B 
0D3F 1 6780 0D1D 
0D41 4C00 0000 



0D43 1 4400 OCCC 
0D45 1 0D07 

0D46 00C8 
OEOE 0000 
0E10 0844 



DC 

PRNTQ LD 
STO 
LD 
SLA 
BSC 
MDX 

* 

* 

* 

ZLOOP BSI 
DC 

* 

L00P1 LDX 
LDX 
LDX 

PRNTF BSC 

* 

PRBSY BSI 
DC 

BSS 
PEND DC 
END 



ZLOOP LOOP RETURN 

HFFFF SET ERROR OCCURRED SW 

EROC * 

SWO CHECK LOCK ON ERROR OPT 

12 * 

SKIP IF ON 

PRNTC NORMAL EXIT 

LOCK ON ERROR OPTION SELECTED 

MNEX EXIT TO MONITOR 
L00P1 RETURN ADDRESS 



RETURN IS TO HERE 



11 PRNTC*1 

12 PRNTD+l 

13 PRNTE+i 
L *-* 



RESTORE INDEXING 



* 
* 



L MNEX 
PRNTB 



LOCK RETURN 

MONITOR BUSY RETURN 

EXIT TO MONITOR 
RETURN ADDRESS 



NO STATEMENTS FLAGGED IN THE 



200 


BEG 
ABOVE ASSEMBLY 



PATCH AREA 

LAST PROGRAM ADDRESS 



081F-0 
12 
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8 IF 15660 

81F15670 

81F15680 

81F15690 

81F15700 

81F15710 

81F15720 

81F15730 

81F15740 

81F15750 

81F15760 

81F15770 

81F15780 

81F15790 

81F15800 

81F15810 

81F15820 

81F15830 

81F15840 

81F15850 

81F15860 

81F15870 

81F15880 

81F15890 

81F15900 

81F15910 

81F15920 

81F15930 



)ATE 
C NO. 



14N0V69 
431319 



PROG ID 
PAGE 
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12A 
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r 


AORS 


0C5C 


C8C7 


08C9 


08CD 


08F3 


08FA 


08FC 


0903 


0906 


090 A 


0914 


091B 


0926 


09 2C 








092E 


0933 


0935 


093F 


0945 


0947 


094C 


094E 


0959 


0961 


0963 


096 F 


0979 


f~ 






0983 


0984 


098D 


0998 


09B9 


09DC 


0A05 


OAOC 


OAOE 


0A17 


0A25 


0A27 


0A2E 


. — 






0A30 


0A35 


0A41 


0A43 


0A44 


0A53 


0A59 


0A65 


0A67 


0A68 


0A73 


0A82 


0A84 








0A8B 


0A8D 


0A92 


0A9E 


OAAO 


0AA2 


OAAD 


0AB2 


OABE 


OACO 


0AC1 


OACC 


OADA 


r~ 






OADC 


0AE3 


0AE5 


0AE9 


0AF5 


0AF7 


0AF8 


0B04 


0B09 


0B17 


OB IB 


OB ID 


0B20 








0B22 


0B24 


0B32 


0B39 


0B3B 


0B3E 


OB40 


0B50 


0B57 


0B59 


0B5C 


0B5E 


0B88 








0B8F 


0B91 


0B99 


OBAO 


0BA2 


OBAF 


0BB2 


0BB9 


OBCO 


0BC2 


0BC7 


0BD6 


OBDD 


/"- 






OBDF 


OBEC 


OBEF 


0BF5 




















-■ •— ■ 


ADR SI 
ALT01 


0C5D 
OCBC 


C84B 
0CA9 


0856 


C8C5 


09BC 


09C4 


09C6 


09CB 


09CD 


0BF7 


OBFD 


0C09 






r 


ALT10 


0CC4 


OCAA 




























AL01 
ALIO 


0CA9 
OCAA 


0B7F 
0B84 


























/~ 


BEG 


0844 


0E10 




























BEGIN 
CKINA 


012C 
0C42 


0844 
0C2D 


0C3E 


0C52 






















r 


CKINB 


0C44 


0C2B 




























CKINT 


0C27 


C913 


091A 


092D 


0934 


0946 


094D 


0962 


096E 


0982 


098C 


09A3 


09AB 


09C5 








09CC 


09 EB 


09F2 


OAOD 


0A16 


0A26 


0A2F 


0A42 


0A51 


0A66 


0A72 


0A83 


0A8C 


r 






0A9F 


OAAC 


OABF 


OACB 


OADB 


0AE4 


0AF6 


0B03 


0B1C 


0B21 


0B3A 


0B3F 


0B58 




CMEX 


OCDF 


0B5D 
OCCF 


0B90 


0BC1 


0C2E 


0C47 


0C4A 
















r 


CMEX1 


0C09 


OCOO 


0CD3 
























■ -- 


CMEX2 
CMEX3 


OCDB 

OCDD 


0CD1 
0CD2 


























r 


CMN 


0C5A 


C847 


084B 


0850 


0855 


0856 


085C 


085D 


0868 


086 B 


086E 


0877 


0882 


0889 








0893 


08AF 


08B0 


08B3 


08B8 


08C4 


08C5 


08C7 


08C8 


08C8 


08C9 


08CC 


08CD 








08D8 


08D9 


08F3 


08F4 


08FA 


08FB 


08FC 


0903 


0904 


0905 


0906 


090A 


090B 


r 






090E 


090F 


0910 


0913 


0916 


0917 


091A 


091C 


091D 


0926 


0927 


0929 


092A 








0920 


092F 


0930 


0931 


0934 


0936 


093F 


0940 


0941 


0942 


0943 


946 


0949 








094A 


094 D 


094F 


0950 


0959 


095A 


095B 


095 E 


095F 


0962 


0969 


096A 


096B 


r 






096E 


0970 


0979 


097A 


09 7C 


097D 


097F 


0982 


0984 


0985 


0988 


0989 


098C 








098E 


098F 


0998 


099B 


099F 


09A0 


09A3 


09A5 


09A7 


09A8 


09AB 


09AD 


09B9 








09BC 


09BD 


09BE 


09C0 


09C1 


09C2 


09C5 


09C8 


09C9 


09CC 


09CE 


09CF 


09D3 


r 






09DC 


09DF 


09E0 


09E4 


09E6 


09E7 


09E8 


09EB 


09EE 


09EF 


09F2 


09F4 


09F5 








09F9 


0A05 


0A07 


0A08 


0A09 


OAOA 


OAOD 


OA10 


0A11 


0A12 


0A13 


0A16 


0A18 








0A21 


0A22 


0A23 


0A26 


0A2 8 


0A29 


0A2A 


0A2B 


0A2C 


0A2F 


0A31 


0A32 


0A35 


r~ 






0A36 


0A3D 


0A3E 


0A3F 


0A42 


0A44 


0A45 


0A48 


0A49 


0A4A 


0A56 


0A59 


0A5A 


-- 






0A61 


0A62 


0A63 


0A66 


0A68 


0A6A 


0A6B 


0A6C 


0A6E 


0A6F 


0A72 


0A74 


0A75 








0A7E 


0A7F 


0A80 


0A83 


0A85 


0A86 


0A88 


0A89 


0A8C 


0A8E 


0A8F 


0A92 


0A93 


r 






0A9A 


0A9B 


0A9C 


0A9F 


0AA2 


0AA3 


0AA5 


0AA6 


0AA8 


0AA9 


OAAC 


OAAE 


OAAF 


^ 






0AB2 


0AB3 


OABA 


OABB 


OABC 


OABF 


0AC1 


0AC3 


0AC5 


0AC6 


0AC7 


0AC8 


OACB 








OACD 


0A06 


0AD7 


0AD8 


OADB 


OADE 


OADF 


OAEO 


0AE1 


0AE4 


0AE6 


0AE9 


OAEA 


r 






0AF1 


0AF2 


0AF3 


0AF6 


0AF8 


0AF9 


OAFC 


OAFD 


OAFF 


OBOO 


OB 03 


OB 05 


0B06 








OB 09 


OBOA 


0B17 


0B18 


0B19 


0B1C 


081E 


0B21 


0B23 


0B24 


0B25 


0B26 


0B32 








0B33 


0B36 


0B37 


0B3A 


0B3C 


0B3F 


0B41 


0B42 


0B50 


0B51 


0B54 


0B55 


0B58 


r 






0B5A 


0B5D 


0B5F 


0B60 


0B6D 


0B70 


0B77 


0B7A 


0B7C 


0B7F 


0B81 


0B84 


0B88 


-!*■ 






0B89 


0B8D 


0B90 


0B99 


0B9A 


OBAO 


0BA1 


0BA2 


OBAF 


OBBO 


0BB1 


0BB2 


0BB8 








0BB9 


OBBO 


OBBE 


0BC1 


0BC3 


0BC4 


0BC7 


0BC8 


0BD6 


0BD7 


OBDD 


OBOE 


OBDF 


jT^ 






OB EC 


OBEO 


OBEE 


OBEF 


0BF5 


0BF6 


0BF7 


0C09 


OCOA 












CMPWC 
CMWC 


0CB4 
OCAB 


OCAB 
0B7A 


























jt- 


CNTL 


0868 


085E 


0908 


























CNTLB 
CNTLC 
CNTLD 


088B 
0897 
089F 


086F 
0871 
088F 


0875 


























CNTLE 
CNTLF 


08 AF 

08DO 


087F 
08 B6 


08BF 


08C3 


08CB 




















r 


CNTLG 


0808 


0886 




























CNTLJ 
CNTLK 


08 B3 
087A 


080C 
0896 


























r 


CNTLL 


08B1 


088A 




























CNTLM 
CNTLN 


08C0 
08 C4 


08 BA 
08B0 


08C1 
























r 


CNTLO 


08A7 


087C 


08F1 


OB 97 


0BD4 




















r 


CNTLP 
COMPT 


08CC 
0810 


08CA 


























/ OATE 


14N0V69 


























PROG 


1_ EC NO. 


431319 


























PAGE 
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081F-0 
13 



CRCK 

DOEF 

EDERR 

END 

EPA 

EROC 

ERROR 

FLONE 

FLZRO 

HAAAA 

HEOOO 

HE026 

HE027 

HE028 

HFFFF 

HF1FF 

H0200 

H1000 

H5555 

I PA 

Kl 

K2 - 

K4 

LOG 

L00P1 

LPA 

MATO 

MAXAD 

MLSCF 

MNEX 

M0D01 

MOD02 

MOD03 

MODI 



M0D2 

M0D3 

M0D4 

M0D5 

M0D6 

M0D7 

MSAD1 

MSGAD 

MSGO 

NRTNS 

PEND 

PID 

PRBSY 

PRINT 



PRNTA 
PRNTB 
PRNTC 
PRNTD 
PRNTE 
PRNTF 
PRNTG 
PRNTH 
PRNTI 



0133 
0811 
0835 
012E 
0808 
0C6A 
0130 
0C87 
0C98 
0C61 

0C62 
0C7A 
0C7B 
0C7C 
0C64 
0C63 
0C5E 
0C5F 
0C60 
0806 
0C65 
0C66 
0C67 
012F 
003B 
0807 
0134 
0C5B 
0809 
OCCC 
0C57 
0C58 
0C59 
0C73 



0C74 



0C75 

0C76 

0C77 
0C78 
0C79 
0C4D 
0C6D 
0C70 
0C6E 
OEOE 
07 FF 
0D43 
0CE1 



OCFA 
0D07 
0D18 
0D1A 
0D1C 
0D41 
0D22 
OCFB 
0CF1 



084E 085A OBFA 0C01 0C07 0C20 0C29 0C45 

0816 081D 0829 0835 

0832 0C7D 

083F 0866 089D 08A5 08A0 0806 



086B 
0D2A 
0B34 
0B52 
09BE 
0A85 
0D09 
0B6D 
0B7C 
0881 
0850 
0905 
0BF6 
0904 
09E4 



0D27 0D31 



09C0 09CF 09D3 OA08 0A21 0A28 0A32 0A3D 0A61 0A6B 0A75 0A7E 
0A8F 0A9A 0AA5 OAAF OABA 0AC6 0AD6 OADF 0AF1 OAFC 0B06 

0B77 



085D 08AF 08D8 090E 092F 0941 0969 097C 09A5 0A2A 0D2F 
0BB1 OBEE 

OBBO OBED 

09E6 09F5 09F9 0A11 0A49 



0893 08FB 095B 097A 09E0 0A45 0AA3 0AF9 0BA1 OBDE 

0C38 0CE6 

0CF7 

0D13 

0D3A 



082A 
082E 
08F7 
0C32 
0C18 
CC1A 
0817 
0927 
09EC 
0AB3 
0B66 
090F 
0A3E 
0BC4 
0916 
OAFF 
09 1C 
0AA6 
0A18 
09AD 

0C36 
0CE2 
0C6D 
0873 
080B 
0846 
0D16 
0839 
09 D6 
0B63 
0CF4 
0C3C 
0CE9 
OCEB 
OCED 
OCFB 
ODOC 
0CF9 
0C39 



08F4 CB9A 0BD7 

0CD5 

0A02 0B9D 0BB4 OBDA OCCD 0D38 0043 

0C4F 



0837 
093C 
09F3 
0AB7 
0BC8 
091D 
0A62 



083C 
0940 
09FF 
0AC3 
OBCC 
0929 
0A7F 



086E 
0956 
0A07 
0AD3 
OCOA 
0942 
0A9B 



0877 089A 
095A 0976 
0A1E 0A36 
OAEA OAEE 
OCOE 

0950 095E 
OABB 0AD7 



08B3 08B8 08C4 

0985 0995 099B 

0A3A 0A5A 0A5E 

OBOA OBOE 0B18 

097D 098F 099F 
0AF2 0B25 0B36 



0930 0949 096A 0988 0A12 0A2B 0A4A 0A6E 

0B23 0B26 0B41 0B5F 0BC3 

0936 094F 0970 098E 09A7 09C8 09EE 0A10 

0AC5 OADE OAFD 

0A31 0A56 0A74 0A8E OAAE OACD 0AE6 0B05 

09CE 09F4 



08CC 08D3 090B 0923 

09B6 09BD 09D9 09DF 

0A6A 0A7B 0A93 0A97 

0B2C 0B33 0B48 0B51 

09C1 09E7 0A09 0A22 
0B42 0B54 0B60 OBBD 

0A88 0AA8 0AC7 OAEO 

0A29 0A48 0A6C 0A86 



0D15 
088D 

084C 0BF8 0C1E 

0D2D 

0860 0897 089F 08A7 08D0 08E4 0920 0939 0953 0973 0992 09B3 

09FC 0A1B 0A37 0A5B 0A78 0A94 0AB4 OADO OAEB OBOB 0B29 0B45 

0BC9 OCOB 0C34 OCEF 0CF6 0D1E 0D20 

0CE8 0D45 
0D12 0D37 0D3B 
0D3D 
0D3F 



0CE5 



DATE 
EC NO. 



14N0V69 
431319 



PROG ID 
PAGE 



081F-0 
13A 
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r 
r 

r 

r 
r 

r 
r 
r 
r 

r 

! r 

f 

/ 
/ 

r 
r 

r 

,r 
r 



9*TE 
fC HO, 



PRNTP 

PRNTQ 

PRNTO 

RAD 

RELDV 

REQDV 

RID 

RTRN 

RTRNA 

RTRN1 

RTTBL 

SNAD 

SNBK 

SPMSG 

START 

STINA 

STINT 



SHO 

SHI 

SU2 

SW3 

TERM 

TMP 

TR 

TRA 

TRB 

TRC 

TRF 

TR1 

TR1A 

TR1AA 

TR1AB 

TR1AC 

TRIAD 

TR1AE 

TR1AF 

TR1AG 

TR1AH 

TR1AI 

TR1AJ 

TR1AK 

TRIAL 

TR1AM 

TR1AN 

TR1B 

TR1BA 

TR1C 

TRIE 

TR1F 

TRIG 

TR1H 

TR1HA 

TR1I 

TR1J 

TR1K 

TR1L 

TRIM 

TRIP 

TR1R 

TR1S 

TR1T 

TR1U 

TRIM 

TR1X 

TR1XA 



0D2A 
0D2F 
0CE9 
0801 
0132 
0131 
0800 
0C4E 
0C4C 
0C51 
0C7E 
0C68 
0C69 
0C54 
012D 
0C22 
0C12 



0802 

0803 

0804 

0805 

080A 

0C6C 

08DD 

08EA 

08 EC 

09C8 

08 FA 

090 A 

0912 

0A3D 

0A54 

0A61 

0A71 

0A7E 

0A9A 

OAAB 

OABA 

OACA 

0A06 

0AF1 

0B02 

0B11 

OB 13 

0919 

0A50 

0926 

093F 

0959 

096D 

0979 

0981 

09 8B 

0998 

09 A2 

09 AA 

09 B3 

09 B9 

09D6 

09 DC 

09 EA 

09F1 

09 FC 

0A02 

0A05 



0C37 0CE4 0D25 

0D29 

0C40 

0815 0D03 



14N0V69 
431319 



0814 
0C4C 
0C33 
0C1C 
08EA 
0882 
0889 
0C4D 
0CD7 
0C14 
0910 
09C9 
0A9C 
0B5A 
087A 
086C 



0878 088B 0891 0894 08DD OCFF 



0D01 

08B0 08EC 0B92 OBCF 

08D9 0900 OBAC 0BE9 



0917 092A 0931 0943 094A 095F 096B 097F 0989 09A0 09A8 09C2 
09E8 09EF OAOA 0A13 0A23 0A2C 0A3F 0A4D 0A63 0A6F 0A80 0A89 
0AA9 OABC 0AC8 0AD8 0AE1 0AF3 OBOO 0B19 0B1E 0B37 0B3C 0B55 
0B8D OBBE 0C15 0C25 
0883 08DF 08EF 0B95 0BD2 ODOE 0D22 0D33 
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08B1 08DA 



0C13 

08CE 

08E2 

0B15 

08EE 

08F9 

0925 

090C 

0A33 

0A4B 

0A57 

0A69 

0A76 

0A90 

0AA4 

OABO 

0AC2 

OACE 

0AE7 

OAF A 

0964 

0966 

O90D 

0A46 

091E 

0937 

0951 

095C 

0971 

097B 

0986 

0990 

099C 

099D 

09AE 

09B1 

0900 

09 D4 

09E1 

09E2 

09F6 

09FA 

0A04 



0C24 0C28 0C49 



08FF 
0B2F 
08F5 

0C7E 

0A60 

0A7D 

0A99 
0AB9 

0AD5 

OAFO 
0B10 

OB 07 



093E 
0958 
0978 

0997 



0907 

0B4D 0B6B 0C04 

0902 0BF3 



09B8 
09A4 09AC 



09DB 
0A01 



TRIY 


0A15 


0A06 




TR1Z 


0A21 


0A19 0A3C 




TR2 


0B17 


0B2E 0C7F 




TR2A 


0B2F 


0B27 




TR3 


0B31 


0C80 




TR3A 


0B34 


0B4A 0B4C 




TR3B 


0B4B 


OB 43 




TR4 


0B4F 


0C81 




TR4A 


0B52 


0B68 0B6A 




TR4B 


OB 69 


0B61 




TR5 


0B60 


0C82 




TR5A 


0B8A 


0BA9 OBAB 




TR5C 


0BA6 


0BB3 




TR5D 


OBAC 


0BA4 




TR5E 


0BB4 


0B94 0B9B 


OBAE 


TR5F 


OBBA 


0BE6 0BE8 




TR5H 


0BE3 


OBFO 




TR5J 


0BE9 


0BE1 




TR5K 


0BF1 


0B87 0BD1 


0BD8 OBEB 


TR5L 


OBAO 


0B9F 




TR5M 


OBCF 


0BC5 




TR5N 


0BB7 


0BB6 




TR50 


OBDD 


OBDC 




TR5P 


0B8B 


0B71 0BA7 




TR5PR 


OBCB 


0B6E 0B78 


0B7D 0B82 


TR5Q 


OBBB 


0B73 OBCE 


0BE4 


TR567 


0B86 


CB75 




TR6 


0B7C 


0C84 




TR67 


0B71 


0B7B 0B80 


0B85 


TR7 


0B81 


0C85 




TR8 


0BF5 


0C86 




TR8A 


0BF8 


0C10 




TR8B 


OBFF 


OCOO 




TR8C 


0C04 


0C11 




TR8D 


0C06 


0C03 




TR9 


0847 


082C 0865 




TSTCT 


0C6B 


0855 085C 


CB89 0BB8 


T5 


0B77 


0C83 




HCPAT 


OCAC 


OCAS 




HCPT 


0CA8 


0B70 




ZEPA 


0841 


08 08 0842 




ZIPA 


0812 


0806 0807 


0830 


ZIPB 


0832 


081B 0824 


0828 


ZIPC 


0825 


081F 




ZIPO 


0829 


0822 0826 




ZIPE 


082E 


0834 




ZLOOP 


0D38 


0D2E 




END OF 
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• •••• 



»»»»» 

• « 

• « 



* 
« 



* • * 

» * * 
» * » 



THIS DECK MOST BE LOAOEO LAST WHEN 
RUNNING THIS PROGRAM WITH MORE THAN TWO 
121 MULTIPLEX ADDRESSES SPECIFIED FOR 
EVALUATION. IF THIS IS NOT DONE 327 
CORE POSITIONS OF THE PROGRAM FOLLOWING 
•HIS ONE WILL RE WIPED OUT AND USED 
BY THIS PROGRAM FOR DATA STORAGE. 



* 

* * * 
*» * * 

* * * * 

* ** » 

* * • 

* 
* 
* 
* 
» 
* 
* 
* 
* 



TABLE OF CONTENTS 

PARAGRAPH PAGE 

1. PURPOSE i 

2. PREREQUISITES. .......... 1A 

2.1 PROGRAM PREREQUISITES 

2.2 fOUIPHENT PREREQUISITES 

3« OPERATING PROCEDURE 1A 

3.1 PROGRAM LOADING 

3.2 PROGRAM OPERA ION 

3.3 PROGRAM HALTS 

3.4 PROGRAM TERMINATION 

3.5 SETUP OF DATA TABLE 

3.6 DATA TAttL : EXPLANATION 



4. 
5. 

6. 



PRINTOUTS 4A 

COMMENTS 5 

APPENDIX , 6 

6.1 EOIT PROCEDURE 
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PURPOSE 

THE ANALOG-INPUT OATA-CKANNEL 
TEST THE ANALOG INPUT FEATURE 
CHANNEL MODE OF OPERATION. A 
ENTERED AND OPERATEO ON AT ONE 
SELECTEO FOR EVALUATION OF ACC 
MULTIPLEX ADDRESSES CAN BE LIM 
RUNNING IN THE OVCatAP HOOF. 
CHECKED INCIUOING A RELA* ADOR 
SEQUENCE TO A TOTAL C0M"|NE0 L 
CAR CHECH WORDS. IN THl- OVERL 
ADDRESS IN ANY TABLE. 



RANDOM (A IDC RAN) FUNCT 
UNDER DATA-CHANNEL CONT 
MAX1MUN OF 10 MULTIPLEX 
TIME. UP TO FIVE MULT 
URACY AND REPEATABILITY 
IT CHECKED EXCEPT A REL 
IN NtlNOVFRLAP MODE ANY 
ESS. TABLES CAN BE CHA 
ENGTH OF 10 WORDSt INCu 
AP MODE A RELAY ADDRESS 



DATE 


2"<FEB66 


0IJUL66 


150EC66 


0*APR67 


13MAY67 


EC NO. 


♦15120 


♦15178 


♦21206 


♦21206A 


♦21206B 



1UN TEST IS DESIGNED TO 
RUL, USING THE TWO- 

AOORESSES CAN BE 
IPLEX ADDRESSES CAN BE 
. ANY OF THE 10 
AY AOORESS WHEN 
ADDRESS CAN BE LIMIT 
INED TOGETHER IN ANY 
UUING THE ACUfcESS AND 

CANNOT BE THE LAST 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM PART HO. 

PAbE 

Al DC RANDOM FUNCTION TEST 

2. PREREQUISITES 

2.1 PROGRAM PREREQUISITES 

THE AIDC RAN FUNCTION TEST MUST RUN UN9ER CONTROL OF THE DIAGNOSTIC 
MONITOR. 

2.2 EQUIPMENT PREREQUISITES 

A. MONI'iOR PREREQUISITES 

B. ANALOG-INPUT FEATURE 

3. OPERATING PROCEDURE 

3.1 PROGRAM LOADING 

STANDARD LOADING i-ROCEOURE AS DESCRIBED IN THE DIAGNOSTIC MONITOR USE 
PROCEDURE. 

3.2 PROGRAM OPERATION 

STANDARD MONITOR OPERATING PROCEDURES APPLY. 

THESE PROCEDURES ARE SUMMARIZED HERE. SEE DM USE PROCEDURE FOR 

DETAILS. 

1. CLE4R STORAGE 

2. LOAD DIAGNOSTIC MONITOR 

3. SE'.ECT MODE OF EXECUTION 

♦. SELECT MONITOR CUNTROL OPTIONS 

5. SELECT PROGRAM OPTIONS FRCM TArLE PROGRAM CONTROL FUNCTION. 

6. INSTRUCT MOMTOP TO EXECUTE (SEE SECTION 3.1.5 IN DIAGNOSTIC 
MONITOR DOCUMENTATION). 

TA6LE CONTROL FUNCTION 

**«*«*«*••***«***** i. SeT FUNCTION 00 IN SENSE/PROGRAM SWITCHES AND 1. 

* SENSE/PROGRAM » 2. SET PIO IN SENSE/PROGRAM SWITCHES 2 THROUGH 7. 
♦01234567* 3. SET DESIRED CONTROL OPTIONS IN DATA ENTRY SWITCHES 0-15. 
•00100001* ♦. PRESS CONSOLF INTERRUPT. 
****»*******************»******»*<■***»*»*««»»*»»»»»»»«*»*»*»«**««**»**********»* 

* DATA ENTRY SWITCHES * DESCRIPTION * 

* 1 2 3 * 5 6 7 8 9 10 11 12 13 14 15 * « 
* 1 BYPASS ANY LOG OUTPUT * 

* • . . 1 BYPASS OVERLAP CK LOG • 

* • 1.. CHECK RELAY-SOLID STATE OVERLAP « 

*.....»... 1 ...............*..•• .BYPASS BLAST AI * 

*........ 1. ........... .. .BYPASS E f1 <X OUTPUT * 

*•« 1. BYPASS COMPARATOR INTERRUP1 LOG » 

*...... 1.... BYPASS ALL 0001 OUTPUT * 

*•»••• 1.. BYPASS 0001 DISTRIBUTION TABLE * 

* • • • • 1...................... ...BYPASS A001 OUTPUT • 

* • • • 1 BYPASS ERSOR ( EOOX HEX) OUTPU." * 

* • • 1.... ,.-.. BYPASS SETUP ERROR 'E01X HEX) * 

* • * BYPASS TIMER OSW ERROR ( COOO HEX) * 

* 1 BYPASS OATA VERIFY OUTPUT * 

********»********»*****»»**************«»****»*»***»*»*l»»*««**«***tt«e*»**»»»**»:* 

3.3 PROGRAM HALTS 

A DESCRIPTION OF EACH PROGRAM HALT CONDITION CAN BE FOUND AT THE 
BEGINNING OF THE PROGRAM LISTING. 

3.4 PROGRAM TERMINATION 
STANDARD MONITOR TERMINATION 
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3.5 



SETUP OF DATA TABLE 

EACH DATA TABLE IS INITIALLY SPECIFIED INTERNALLY WITHIN THE PROGRAM TO 

ESTBLISH THE PARAMETERS FOR EVALUATING THE BASIC OPERATIONS 

OF THE CE CALIBRATE POINT. AN EXPLANATION OF THIS INITIAL SETUP IS 

CONTAINED IN THE APPENDIX SECTION 6.1. 

THE DATA TABLES CAN BE CHANGED EITHER BY CHANGING THE EDIT CARDS AND RELOADING 

OR DIRECTLY IN CORE USING THE DATA ENTRY SELECT FUNCTION. 

1. EDIT CARDS. 

THE PROGRAf EDIT FEATURE IS USED TO LOAD THE DATA TABLES WITH 
THE DESIRED INFORMATION. ANY OR ALL OF THE TABLE DATA CAN BE 
CHANGED OR MODIFIED BEFORE THE INITIAL LOADING OF THE PROGRAM. 
SEE FIGURE 1 FOR AN EXPLANATION OF THE DATA TABLE. 

2. D'TA ENTRY ROUTINE. 

ANY OR ALL OF THE TABLE DATA CAN BE CHANGED BY USING THE DATA 
ENTRY ROUTINE. THIS IS DONE ANYTIME AFTER THE PROGRAM IS IN 
CORE AND EXECUTING. FUNCTION 10-11 OF THE MONITOR READ BIT 
SWITCHES FEATURE IS USED. FUNCTION 10 IS USED TO SET UP THE 
ADDRESS OF THE WORD OR WORDS TO BE CHANGED. FUNCTION 11 IS USED 
TO ENTER THE NEW WORD. WORDS CAN BE ENTERED IN SEQUENCE 3Y 
SETTING THE DESIRED DATA INTO THE SWITCHES AND PRESSING CONSOLE 
INTERRUPT FOR EACH WORD TO BE ENTERED. SEE TABLE 2 AND 3 DATA 
ENTRY SELECT AND DATA ENTkY. 

A WORD COUNT EQUAL TO THE TERMINATOR (127) IS ENTERED AFTER A 
COMPLETE DATA ENTRY OPERATION (VIA FUNCTION 10). THIS RETURNS THE 
CONTROL TO THE OPERATING PROGP.AM. AN EXPLANATION OF THE DATA 
TABLES IS CONTAINED IN FIGURE 1. 

3; DATA VERIFY ROUTINE 

IF IT IS NECESSARY TO PRINT THE CONTENTS OF AN AI TABLE IN CORE, 
TABLE 1 (DAT* VERIFY) SHOULD BE USED. THE WORD COUNT (SWS. 9-15) 
INDICATES THE NUMBER OF WORDS TO BE PRINTED, TABLE DISPLACEMENT 
CSWS. 4-8) WILL SPECIFY THE FIRST WORD TO BE PRINTED FROM THE 
TABLE, AND TABLE NO. (SWS. 0-3) REFERS TO THE DESIRED TABLE 
(SEE THE DATA ENTRY ADDRESS TABLE LIST FOLLOWING TABLE 3). 

FOR EXAMPLE, THERE IS AN AI TABLE IN STORAGE THAT HAS THE 
CONVERTED VALUES OF ALL THE ADDRESSES THAT ARE SPECIFIED IN THE 
AIIAT TABLE. (MAXIMUM OF 10 ADDRESSES) IF THE CE WISHES TO 
PRINT OUT THE CONVCSTEO VALUES, THE FOLLOWING ENTRY 
SHOULD BE MADE USING TABLE 1. TABLE NO. !S E (SWS. 0-3), TABLE 
DISPLACEMENT IS (SWS. 4-8) AND WORD COUNT IS 11 (SI.S. 9-15). 
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DATA VERIFY ROUTINE SELECT 
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Ct~J 



******************* J 

• SENSE/PROGRAM * 2 

• 01234567* 3 

• * 
•01100001* 4 
•••*••****•«*****•*•** 



SE 
SE 
SE 
0- 
PR 

SWI 
>.0 1 
X 



T FUNCTION 01 IN SENSE/PROGRAM SWITCHES 

r ?ID IN SENSE/PROGRAM SWITCHES 2 THROUGH 

T DATA TABLE IDENTIFICATION IN DATA ENTRY 

15. 

ESS CONSOLE INTERRUPT. 




SL~*0<&' 



T 



-±o 



\3%? 



V- /3" 



*3*<+~ zuzft jL**> ) 



• DATA ENTRY SWITCHES 
•0123456769 i.O 11 12 13 

• X X X X X 

• 

• X X X X X 

» 

• X X X X 

* 



* DESCRIPTION 



14 15 
X X 



WORD COUNT. 1-127 ( 1-7F HEX) 



TABLE DISPLACEMENT. 0-31 
BIT SWITCHES 4 THRU 8 ARE USED TO * 
ALLOW ENTERING THE SELECTED TABLE AT » 
ANY OF THE FIRST 32 WUkDS. * 

* 
TABLE Ni'MBER. 0-F SEE THE DATA • 
ENTRY ADLRESS TABLE LIST * 

*******«»»*.»***»*»**»*»*«*»»»»*«*»»* v*t*»*»»*»*»»*»»»» 



TABLE 2 DATA ENTRY ROUTINE SELECT 



••••*•*•**• ***»•** 

SENSE/PROGRAM • 

01234567* 

* 

10100001* 

* 



1. SET FUNCTION 10 IN SENSE/PSOGRAM SWITCHES ANO 1. 

2. SET PID IN SENSE/PROGRAM SWITCHES 2 THROUGH 7. 

3. SET DATA TABLE IDENTIFICATION IN DATA ENTRY SWITCHES 
0-15. 

'•• PRESS CONSOLE INTERRUPT. 
NOTE PROGRAM MUST BE EXECUTING. 
•••••••*«•*******••*••*«•*•*•**•* w*******«*«***»4 »***•**«*«***•* ***••*•***«*«• 

DATA ENTRY SWITCHES * DESCRIPTION 

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 * 

X X X X X X X WORD COUNT OR TERMINATOR. 1-127 

TERMINAiOR * 127. (7F HEX) 



X X X X X 



TABLE DISPLACEMENT. 0-31 
BIT SWITCHES 4 THRU 8 ARE USED TO 
ALLOW ENTERING THE SELECTED TABLE AT 
ANY OF THE FIRST 32 WORDS. 



X X X X 



TABLE NUMBER. 0-F HEX SEE THE DATA 
ENTRY ADDRESS T-.BLE LIST 

••**«*•****** »*»**»»»»*«*♦»*«»♦*#****»******«**»#»»**»**»*»»»»*»«*»*«»»»**»»» * 

A WORD COUNT EQUAL TO THE TERMINATOR (127) IS ENTERED AFTER A COMPLETE 
DATA ENTRY OPERATION. THIS RETURNS CONTROL TO THE OPERATING PROGRAM. 



TABLE 3 



DATA ENTRY FUNCTION 



******************* 



1. SET FUNCTION 11 IN SENSE/PROGRAM SWITCHES AND 1. 
SENSE/PROGRAM * 2. SET PID IN SENSE/PROGRAM SWITCHES 2 THROUGH 7. 
•01234567* 3. SET DATA WORD INTO DATA ENTRY SWITCHES 0-15. 

• * 4. PRESS CONSOLE INTERRUPT. 

• * NOTE- PROGRAM MUST BE EXECUTING. 

• 11100001* 
•***•**********»***************************»**»***»»******»**»-»»*»»»»****»»»»*» 

• DATA ENTRY SWITCHES * DESCRIPTION 

• 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 * 
•XXXXXXXXXXX X X X X X DATA WORD TO BE ENTERED INTO TABLE 

• POSITION SELECTED BY FUNCTION 10. 

• SEE TABLE 2. 
a****************************************************************************** 
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DATA ENTRY ADDRESS TABLE LIST 

FOR USE WITH THE DATA ENTRY AND THE VERIFY DATA ROUTINES. 

THE T'RLE NUMBER IS ENTERED IN B0-B3 OF fHE DATA ENTRY SWITCHES. 

SEE DATA VERIFY ROUTINE SELECT AND DATA ENTRY ROUTINE SELECT, TABLES 1 AND 2. 
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CORE 


TABLE 


TABLE 


SYMBOLIC 


NO. 


ADDRESS 





T1BTI 


1 


AICYC 


2 


AIMPX 


3 


AIPRC 


* 


AIFRS 


5 


RAK'GE 


6 


A!HXS 


7 


AIADT+8 



CORE TABLE NAME 



TABLE 
LENGTH 



3.6 



t 
t 
t 



NAME 
T1BT1 

AICYC 

AIMPX 

AIPRC 
AIAPR 

AIFRS 



DATE 
EC NO. 



THE FOLLOWING 
7 IN DATA ENTRY 



1 
1 
6 
6 
1 
5 

1 

1 



8 


AICYR 


9 


AIIAT 


A 


AIXSS 


B 


AIWC 


C 


AIOLS 


D 


A1LWT 


E 


AlDRT-1 


F 


AITOA 



TIMER A SPEED CONSTANT 

CYCLE COUNT 

MULTIPLEX ADDRESS TABLE 

PRECISION READING TABLE 

RESOLUTION TABLE 

RANGE TABLE 

HEX-DEC/IAOOI HEX) SWITCH 

THIS WORD CONTAINS THE ADDRESS OF 

WORO. BY SELECTING TABLE ADDRESS 

FUNCTION 10 ANY CORE ADDRESS CAN BE ENTERED INTO TABLE 

ADDRESS 8 USING FUNCTION 11. THIS ADDRESS ENTERED 

DETERMINES THE STARTING POSITION OF THE CORE TABlE 

ADDRESSED BY POSITION 8 OF THE ADDRESS TABLE. BY 

SELECTING TABLE ADDRESS 8 FUNCTION 10, DATA CAN BE 

ENTEREC INTO THIS CORE TABLE USING FUNCTION 11. THIS 

ALLOWS ANY 1-126 WORD 1ABLE IN CORE TO BE MODIFIED. 

CYCLE COUNTER - ANY ADD'.ESS CAN BE ENTERED HERE 1-159 

INPUT ADDRESS TABLE 10 

EXTERNAL SYNC SWITCH 1 

NUMBER OF POINTS 1 

OVERLAP SWITCH 1 

LIMIT WORD TABLE 10 

INPUT DATA TABLE 11 

WRITE TABLE ADDR 20 



DATA TABLE EXPLANATION 



FIGURE I. 

DATA TABLE EXPLANATION 

EXPLANATION 

ONE-WORD TABLE. A CONSTANT TO ESTABLISH THE INTERRUPT RATE OF TIMER 
A IS ENTERED IN THIS WORD. SEE TABLE IN LISTING. 

ONE-WORD TABLE. THIS COUNT DETERMINES THE NUMBER OF TIMES EACH 
SPECIFIED MULTIPLEX AODRFSS IS READ AND CONVERIED. THE COUNT MAY BE 
ANY NUMBER FROM 1 TO 32,000 < 7000 HEX) CYCl E COUNTS. 

SIX-WORD (MAXIMUM) TABLE. THE MULTIPLEX ADDRESSES TO BE READ AND 
EVALUATE!- FOR ACCURACY AND REPEATABILITY ARE ENTERED IN THIS TABLE. 
THE LAST WORD MUST BE AN FFFF. SEE EXAMPLE 1. 

F1VE-W0R0 TABLE. THE PRECISION OIGIT VALUE CORRESPONDING TO EACH 
MULTIPLEX ACORESS IN THE AIHPX TABLE IS EhTERED IN THIS VABLE. 

ONE-WORD SWITCH. A ONE BIT IN THIS WORD WILL CAUSE THE FIRST VALUE 
READ FOR EACH SELECTED MULTIPLEX ADDRESS TO BE ENTERED IN THE AIPRC 
TABLE. A ZERO WILL CAUSE THE AIPRC TABLE ENTRIES TO BE USED AS ThEY 
ARE SPECIFIED. IMS SWITCH IS THE 67H ENTRY OF THE AIPRC TABLE. 

ONE-WORD TABLE. THE RESOLUTION FOR THE ADDRESSES IN THE 

AIMPX TABLE IS ENTERED IN THIS TABLE. OOOE HEX 14-BIT RESOLUTION, 

OOOB 11-BIT RESOLUTION, AND 0008 HEX, 8-BIT RESOLUTION. 
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RANGE 



AIWC 



AIIAT 



AILWT 



AIOLS 



NOTE. 



AIXSS 



LMTCK 



OATE 
EC NO. 



FIVE-WORD TABLE. THE RANGE CONSTANT CORRESPONDING TO EACH OF THE 
MULTIPLEX ADDRESSES IN THE AIMPX TABLE IS ENTERED IN THE 
CORRESPONDING LOCATION OF THIS TABLE. THE VARIOUS RANGES AND RAWiE 
CONSTANTS ARE LISTED BELOW. 



RANGE 


HEX CONSTANT 


500 MV 


01F4 


2C0 MV 


00C8 


100 MV 


0064 


50 MV 


0032 


20 MV 


0014 


10 MV 


OOOA 


5 VOLTS 


0005 



ONE-WORD TABLE. A VALUE (1-10) EOUAL TO THE NUMBER OF MULTIPLEX 
ADDRESS TO BE USED FROM THE AIIAT TABL^ IS ENTERED HERE. WHEN 
SPECIFYING CHAINING, THE TFRM INATORS (FFFF HEX) USED ARE INCLUDED IN THIS 
COUNT. (SEE EXAMPLE 2, WORD COUNT WOULD BE 9 TO INCLUDE BOTH TABLES) 

TEN-WORD TABLE. EACH MULTIPLEX AODRESS TO BE READ IS ENTERED 
INTO THIS TABLE. SOLID STATE ADDRESSES CAN APPEAR IN ANY ORDER OR 
BE REPEATED AS DESIRED. SEE NOTE 1 CONCERNING RELAY ADDRESSES. 
EXAMPLES 1. 2, AND 3 SHOW THE ARRANGEMENT OF THE TABLES FOR 
VARIOUS CONFIGURATIONS. 

TEN-WORD TABLE. THIS TABLE MUST CONTAIN EITHER ALL ZEROS FOR 
NO LIMIT CHECKING OR A LIMIT WORO IN THE P1SIT10NS CORRESPONDING TO 
THE AODRESSES IN THE AIIAT TA8LE TO BE LIMIT CHECKED. SEE EXAMPLE 
1,2, AND 3 FOR THE VARIOUS CONFIGURATIONS. 



ONE-WORD SWITCH. A ZERO I 
THE HARDWARE OVERLAP MUST 
AND A ONE SET INTO THIS SW 
AIOLS SWITCH SET FOR OVERL 
SWITCH 10 ON WILL INSTRUCT 
SOLID STATE OVEPLAP, PROVI 
CONTAINING ONE RELAY ADORE 
ADDRESS ANO THE ONLY RELAY 
ADD.tESS AND ANY OF THE SOL 
ALSO BE SPECIFIED IN THE A 



N THIS WORD WILL SELECT OVERLAP OPERATION. 
BE DISABLED BY REMOVING THE OVERLAP CARD 
ITCH TO RW; NONOVERLAf OPERATION. WITH fHE 
hP OPERATION, CONTROL FUNCTION WITH BIT 

THE PROGRAM TO PERFORM A CHECK OF RELAY, 
DING THE AIIAT TASJLE IS SPECIFIED 
SS. THE RELAY AODRESS MUST BE THE FIRST 

ADDRESS IN THE AIIAT 1ABLE. THE RELAY 
IC STATE AODRESSES IN THE AIIAT TABLE MAY 
IMPX TABLE FOR EVALUATION. 



IT IS POSSIBLE FOR EOOX MESSAGES TO OCCUR WHEN RUNNING THE RELAY- 
SOLID STATE OVERLAP TEST EXPLAINED ABOVE. IF THE AIDCR PROGRAM IS 
NOT THE ONLY PROGRAM RUNNING. 

ONE-WORD SWITCH. A ZERO IN THIS WORD SELECTS NORMAL MODE OF 
OPERATION. A ONE SELECTS EXTERNAL SYNC MOOE. (NOTE A PULSE SOURCE 
MUST BE CONNECTED TO EXTERNAL SYNC INPUT IF EXTERNAL SYNC MODE IS 
SELECTED) . 

ONE-WORD SWITCH. A ONE IN THIS WORD WILL ALLOW THE LIMIT WORD. 
SPECIFIED TO BE SETUP IN THE TABLE BUT THE EXECUTE BIT IN THE ADDRESS 
WORD IS TURNFD OFF. NO LIMIT CHECKING WILL OCCUR. A ZERO IN THIS WORO 
ALLOWS LIMIT CHECKING. THIS SWITCH IS THE SECOND ENTRY IN THE ATOLS TABLE, 
TABLE C. 
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EXAMPLE 1 


AIMPX TABLE 


AIIAT TABLE 


1000 


1000 * 


1002 


1001 


1003 


1002 » 


1004 


1003 * 


1006 


1004 * 


FFFF 


1005 




1006 * 




1007 




1008 




1009 



ORDER OF SELECTED 
POINTS MUST AGREE 
MITH AIMPX TABLE. 



SEE NOTE 1 



EXAMPLE 2 
(EXAMPLE OF A TYPICAL AIIAT TABLE) 



AIIAT TABLE 

1000 
1001 
1003 
1002 
1006 
1004 
FFFF 
0009 
1004 
SEE NOTE 1 



AILWT TABLE DESCRIPTION 

XXXX * LIMIT CHECK MULTIPLEX 1000 

0000 NO LIMIT CHECK 

XXXX * LIMIT CHECK MULTIPLEX 1003. 

0000 NO LIMIT CHECK. 

XXXX * LIMIT CHECK MULTIPLEX 1006. 

0000 NO LIMIT CHECK. 

0000 POSITION IGNOREO. 

0000 POSITION IGNORED UNLESS NONOVERLAP. 

XXXX * LIMIT CHECK MULTIPLEX 1004. 

* XXXX MAY BE ANY LEGITIMATE 
LIMIT WORD. 



* 


.< 




3 


3 


D 


1 


"» 


"> 


» 


3 


. ) 


"> 


/ 


1 


) 


1 


") 


) 


1 


1 


~> 


■) 


") 



( ( 



(((((( 



VOLTAGE» 


CYCLE 


VALUE 


COUNT 


READ 




XXX.XXXXX 


XXXXXXXX 



EXAMPLE 3 
(EXAMPLF OF CHAINING THREE TABLES) 



NO. 



NO. 2 



NO 3. 



AIIAT TABLE 

1001 
1002 
FFFF 
1003 
1004 
1005 
1006 
FFFF 
1007 
SEE NOTE 1 



AILHT TABLE 



XXXX 
XXXX 
0000 
XXXX 
XXXX 
XXXX 
XXXX 
0000 
XXXX 



POSITION IGNORED 



POSITION IGNORED 



* XXXX MAY BE ANY LEGITIMATE 
LIMIT WORD. 



] r 



NOTE 1 

RELAY MULTIPLEX AODRESSES MUST BE SPACED IN THE TABLE TO INSURE 10 MS 
MINIMUM DELAY BETWEEN THEM. THEY CANNOT BE THE LAST ADDRESS IN THE 
TABLE UNLESS THE OVERLAP CARD IS REMOVED AND OOOi IS ENTERED INTO 
LOCATION AIULS. THEN ANY COMBINATION OF RELAY AND SOLID-STATE 
MULTIPLEX AD0RESSE5 CAN BE ENTEREDt BUT NO RELAY ADDRESS MAY BE 
REPEATED IN THE T \3! E. 



IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 
AI DC RANDOM FUNCTION TEST 

4.0 PRINTOUTS 

ALL OF THE MESSAGES PRINTED BY THIS PROGRAM ARE IN THE STANDARD MONITOR 
FORMAT. THE FIRST FOUR WORDS OF .HE MESSAGE ARE ALWAYS IN HEX AND ARE USED 
FOR IDENTIFICATION ONLY. THE MESSAGE EXPLANATIONS GIVEN 3EL0W DO NOT 
SHOW THE PROGRAM ID IPIO). 

THE REMAINOER OF THE MESSAGE CAN BE EITHER IN HEX OR DECIMAL. IN THE WORDS 
WHERE FRACTIONAL VALUES CAN APPEAR THE DECIMAL POINT POSITION IS INDICATED 
IN THE EXAMPLE. NO DECIMAL POINTS ARE LOGGED. A MINUS SIGN IS LUGGED 
PRECEEDING THE NEGATIVE DECIMAL VALUES. 

MID RID RAO MULTIPLEX PRECISION DIGIT 
ADDRESS DIGIT VALUE 
VALUE RFAO 
A001 OOOX XXXX XXXXXXXX XXXXXXXX XXXXXXXX 

THIS DECIMAL MESSAGE IS USED TO PRINT ANY DATA HEAD THAT IS OUT OF 
THE SAVE TAB"? LIMITS, OVERLOAOS FXCEPTEO. THE SAVE TABLE INCLUDES 
THE PRECISION REAOING PLUS AND MINUS 54 DIGITS. 

COMP ERX. CYCLE 

DSW CNT CNT 
A002 OOOX XXXX XXXX XXXX XXXX 

THIS HEX MESSAGE IS USED TO PRINT ANY LIMIT ERRORS OETECTED DURING 
COMPARATOR OPERATION) THE MULTIPLEX^ AODRESS IS CONTAINED IN THE DSW 
WORD BIT 4 THRU 15. 
MULTIPLEX ADDRESS IS CONTAINED IN THE DSW WORD BITS 4 THRU 15. 

ADDR WORD 

OF 

WORD 
AAAA OOOX XXXX XXXX XXXX 

THIS HEX MESSAGE IS USED TO PRINT PROGRAM DATA TABLES AND SWITCHES 
TO VERIFY CONTENTS. SEE TABLE 1. iHE MFSSAGC- MAY BE FROM 1-127 LINES. 

OVLP 

CNT 
8BBB OOOX XXXX XXXXXXXX 

THIS MESSAGE IS PRINTED »UTOMATICALLY AFTER THE COUNT IS DETERMINED 
IF OVERLAP CHECKING IS SPECIFIED AND EDITED FOR. (SEE FUNCTION 00 
CONTROL). 

TIt-iR ERROR 

DSW COUNT 
COOO OOOX XXXX XXXX XXXX 

THIS HEX MESSAGE IS USED TO LOG TIMER DSW ERRORS. AFTER THIS ERROR IS 
LOGGED THE PROGRAM IS ENDED. THE ERROR COUNT INDICATES THE NUMBER OF 
ERRORS COUNTED SINCE THE LAST LOG. 

LINE 
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MULTIPLEX RANGE 
ADDRESS 



DATE 
EC NO. 



28FEB66 
415120 



01JUL66 
415178 



15DEC66 
421206 



04APR67 
421206A 



13MAY67 
421206B 
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PRECISION PRECISION* 

OIGIT VOLTAGE 

VALUE VALUE 

XXXXXXXX XXX.XXXXX 

USED TO LOG THE EVALUATION DATA FOR THE 
MULTIPLEX ADDRESSES SELECTED. THE SUMMARY DATA IS GIVEN IN THE FIRST 
THREE LINES AND THE DISTRIBUTION TABLE IS CONTAINED IN THE FOLLOWING 
1-109 LINES. 



D001 OOOX XXXX XXXXXXXX XXXXXXXX 
THIS DECIMAL MESSAGE IS 



LINE 1 

MEAN 
DIGITS 



PERCEN1 PERCENT 
ACCURACY REPEAT- 
ABILITY 
XXXX. XXXX XXXX. XXXX XXXXXXX.X XXX.XXXXX 



MEAN* 
VOLTAGE 



DATE 
CC NO. 



28FEB66 
415120 



01JUL66 
415178 



15DEC66 
421206 



04APR67 
421206A 



13MAY67 

421206B 
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LINE 2 

accuracy repeat- resolution cycles overload out of table 
deviation a8ility counter counter 

Deviation 

XXXXXXX.X XXXXXXX.X XXXXXXaX xxxxxxxx xxxxxxxx xxxxxxxx 

LINE 3 THROUGH LINE 112 

VOLTAGE* DIGIT COUNT 

VALUE VALUE 

XXX.XXXXX XXXXXXXX xxxxxxxx 

* VOLTAGE VALUES ARE GIVEN IN TERMS Or THE RANGE. SEE THE RANGE 
TABLE IN SECTION 3.1. 

MID RIO R\D ERR OSW DSW ERR CYCLE 
ID LAST LAST CNT CNT 
SNS INT 
EOOX OOOX XXXX XXXX XXXX XXXX XXXX XXXX 

THIS HEX MESSAGE IS USED TO PRINT ERRORS OCCURRING DURING PROGRAM' 
OPERATION. 

EOOO ERROR OETECTEO DURING INTERRUPT. 

E003 END OF TABLE INTERRUPT DIDN'T OCCUR. 

£004 RELAY INTERRUPT DIDN'T OCCUR. 

E007 BUSY STAYS ON OVER 100 MS. THE SENScO OSW WORD IN THE 
MESSAGE CONTAINS ONLY BITS 8 AND 9. THE OTHER BITS IF 
ANY, ARE ANDED OUT. 

E008 THE USW IS NOT RESET TO ZERO AFTER EXECUTING A BLAST AI 
OPERATION. 

EVAL TOTL 
ADO HRi 
CNT CNT 
E010 OOOX XXXX XXXX XXXX 

SET UP ERROR 

THIS ERROR WILL OCCUR IF NO MULTIPLEX ADDRESSES ARE SELECTED TO BE 
READ AND EVALUATED. AFTER LOGGING IS COMPLETED THE PROGRAM CONTROL 
IS TRANSFERRED TO THE OATA ENTRY ROUTINE. 
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5. COMMENTS 



5.1 



5.2 



THE AIDC RANDOM FUNCTION TEST IS DESIGNED 10 ALLOW THE CUSTOMER 
ENGIKEER TO VERIFY THE OPERATION OF EACH FUNCTION OF THE ANALOG INPUT 
FEATURE USING THE TWO-TABLE (RANDOM) MODE OF OPERATION. 



TO ENABLE THE 
WOROS WITHOUT 
10-KORD TABLE 
SEQUENCE DESI 
WORD IS ENTER 
CORRESPONDING 
A PROGRAM SWI 
TO ALLOW UPER 
SUPPRESSING T 
THE FIVE MULT 



CE TO ENTER THE DESI 
hAVING TO ASSEMBLE T 
S ARE USED. ALL MULT1 
RFD. WHEN AN ADDRESS 
ED INTO THE LIMIT-WOR 
TO THE POSITION OF T 
TCH (LMTCK) IS USED I 
ATION WITH THE LIMIT 
HE LIMIT CHECKING. A 
J LEX ADCRESSES TO 6E 



RED MULTIPLEX ADDRESSES AND LIMIT 
HE ENTIRE TABLE, TWO SEPARATE 
PLEX ADDRESSES ARE ENTERED IN THE 
IS fO BE LIMIT CHECKED, THE LIMIT 
D TABLE IN THE POS.TION 
HE MULTIPLEX ADDRESS TO BE CHECKED. 
N CONJUNCTION WITH THE TWO TABLES 
WORDS SET UP IN THE TABLE 3UT 

THIRD TABLE IS USED TO SPECIFY THE 

EVALUATED. 



! r 

! f 

! t 
t 



DATE 
EC NO. 



28FEB66 
415120 



01JUL66 
415178 



150EC66 
421206 



04APR67 
421206A 



13MAY67 
421206B 
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5.3 OURING INITIALIZATION, THE SETUP ROUTINE WILL ASSEMBLE THE MULTIPLEX- 
ADDRESS TABLE USING THE DATA ENTERED INTO THE THREE TAOLCS USING A 
SEPARATE AREA OF CODE. THIS BECOMES THE TABLE ADDRESSED BY THE 
INITIALIZE WRITE 10CC WORDS. THE ORIGINAL TABLES ENTERED ARE SAVED. 
TABLES CAN BE CHAINED TOGETHER TO A MAXIMU" LENGTH OF 10 WORDS, 
INCLUDING THE CHAINING ADDRESSES AND CAR CHECK WORDS. 

5.4 THE AIPRC TABLE IS USED TO PROVIDE A PRECISION OIGIT VALUE WHICH 
POSITIONS THE CENTER OF THE DISTRIBUTION TABLE. THIS ENABLES THE 
TABLE 10 BE POSITIONED TO INCLUDE AN INCOMING DATA SPREAD OF 54 
DIGITS ON EITHER SIDE OF THE PRECISION DIGIT VALUE ENTERED. 

THC PRECISION OIGIT VALUES CAN BE AUTOMATICALLY SPECIFIED EQUAL TO 
THE FIRST VALUE READ FOR EACH SELECTED MULTIPLEX ADDRESS B v ENTERING 
A 1 IN THE AIAPR SHITCH, THE 6TH ENTRY IN THE AIPRC TABLE. THIS 
SWITCH IS RESET TO ZERO AFTER THE AIPRC TABLE IS INITIALLY SET UP. 

5.5 DURING OPERATION, THE OUT-OF-LIMIT ERRORS AND OUT-OF-TABLE READINGS 
FOR ANY OF THE FIVE SELECTED POINTS WILL BE TYPED OUT ALONG WITH THE 
CYCLE NUMBER. THESE TYkEUUTS CAN BE BYPASSED BY USING THE PROGRAM 
CONTROL OPTIONS. SEE TABLE 1 SECTION 3.3.6. 

5.6 AFTER COMPLETING THE SPECIFIED NUMBER OF CYCLES, THE MEAN, ACCURACY 
ANO REPEATABILITY ARE CALCULATED *ND PRINTED OUT FOR EACH OF THE 
FIVE SELECTED MULTIPLEX. ADORESSES. ALL OF THE VARIABLE FACTORS USEO 
TO PERFORM THE CAl CULAT IONS ARE PRINTED IN TABULAR FORM BELOW THE 
SELECTED MINT NUMBER TO PROVIOE A COMPLETE HISTORY OH THE OATA READ. 
THE P1STR1BUTI0N TABLE OR THE ENTIRE O'lTPUT CAN BE OMITTED BY USING 
THE PROGRAM C0N1R0L OPTIONS. SEE 1ABLE 1 SECTION 3.3.6. 

5.7 IF THE SYSTEM HAS THE OVERLAP FEATURE INSTALLED ANO THE AIOLS SWITCH 
CONTAINS A ZERO, '..OVERLAP OF RELAY ANO SOLID STATE CAN BE PERFORMED 
8V INCLUDING ONE RELAY ADDRESS IN THE TABLE OF MULTIPLEX ACDRESSES. 
THIS WILL ALLOW ALL OF THE SOLID-STATE AOOPESSES FOLLOWING THE RELAY 
ADDRESS TO BE CONVERTED DURING THE RELAY-BUSY TIME. WHEN THE OVERLAP 
OPERATION IS SPECIFIED AND ONE RELAY ADDRESS IS PLACED FIRST IN THE 
AIIAT TABLE, THE PROGRAM WILL CHECK THE NUMBER OF SOLID STATE 
CONVERSIONS MADE IN OVERLAP WHEN FUNCTION SWITCH 10 IS ON. THE 
NUMBER WIIL BE PRINTED OUT USING MESSAGE ID BBBB. 

5.6 ANY COMBINATION OF THE OPERATIONS DESCRIBED ABOVE, WITHIN THE 

MAXIMUM TABLE LENG1H OF 10 WORDS, IS PERMISSABLE, EXAMPLES OF THE 
SETUP CONFIGURATIONS ARE GIVEN IN SECTION 3.1.2 

5.9 THE NUMBER OF CYCLES CAN BE VARIED BY ENTERING THE NUMBER DES1RFD IN 
THE CYCLE-COUNT WORD (AICYCI. THE CYCLE COUNT CAN BE CHANGED DURING 
OPERATION USING THE DATA ENTRY ROUTINE. ScE SECTION 3.1. 

5.10 ERRORS THAT OCCUR DURING fHE OPERATIONS ARE LOGGED. SEE SECTION 4 FOR 
THE POSSIBLE ERROR MESSAGES. 



DATE 
C .C NC. 
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f 

6. APPENDIX 

t 

6.1 THE EDIT CARD NUMBER MUST BE IN THE CARD DECK TO ESTABLISH THE 
DFVIC ASSIGNMENTS AND THE TIMER A INTERNAL BEFORE LOADING THIS 

FUNCTION TEST. IF NO OTHER EDIT CARDS ARE INCLUDED, THE PROGRAM KILL t 

PERFORM THE FOLLOWING FUNCTIONS- 

A. 1000 CYCLES. T HE FIRST CYCLE WILL ESTABLISH VHE PRECISION DIGIT * 
VALUES BY PLACING THE VALUES READ IN THE AIPRC TABLE. 

B. THE CE MULTIPLEX ADDRESS (13E8) IS READ TWICE IN CHAINED TABLES. 

C. THE CE MULTIPLEX ADORESS IS SPECIFIED (0 BE EVALUATED EACH TIME 1 
IT IS READ. 

D. 14 BIT RESOLUTION. 

E. 5 VPLT RANGE ) 

F. NO LIMIT CHECKING 

G. NO EXTERNAL SYNC 

H. OVEP.AP MODE - NO CHECK '.} 

THE TERMINATOR IENDI EDIT CARD MUST ALWAYS BE THE LAST EDIT CARD. 
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Al DC RANDOM. CARD 0. 



•5.1 EDIT PROCEDURE: 



THE FOLLOWING EDIT PROCEDURE IS FOR CARD INPUT. THE EDIT PROCEDURE FOR PAPER TAPE INPUT IS LOCATED IN 
THE PAPER TAPE EDIT UTILITY PROGRAM DOCUMENTATION. THE PROPER EDIT CARDS MUST BE THE LAST CARDS IN THIS 
PROGRAM DECK. THE FOLLOWING FORMS ARE PROVIDED TO AID IN MANUALLY PREPARING THESE EDIT CARDS OR UPDATING 
EXISTING EDIT CARPS. IF IT IS NECESSARY TO PREPARE CR MODIFY EDIT CARDS, FILL IN THE NECESSARY DATA IN THE 
FORMS PRIOR TO PUNCHING THE CARDS. CARD COLUMNS THAT ARE SHADED SHOULD BE LEFT BLANK. 

DDEF STANDS FOR DEVICE DEFINITION EDIT FIELD. IT INCLUDES: 

1. THE INTERRUPT LEVEL ASSOCIATED WITH THIS DEVICE (USE HEX NOTATION, OC-17). 

2. THE ILSW BIT POSITION ASSOCIATED WITH THIS DEVICE (USE HEX NOTATION, 0-F) . 

3. THE CHANNEL ASSIGNED TO THIS DEVICE (0-8). 

NOTE 1 THE INTERRUPT LEVEL SPECIFIED IN THIS WCRD MUST BE THE LEVEL THAT THE A I COMPARATOR INTERRUPTS ON. 
THE ILSW BIT MUST BE FOR THIS INTERRUPT. THt CHANNEL HAS NOTHING TO DO WITH THE COMPARATOR, BUT IS 
THE HIGH PRIORITY CHANNEL ASSIGNED FOR Al . THE MONITOR EDIT ENTRIES MUST AGREE WITH THESE FNTRIES 
AND THE "AREA CODE-MODIFIER" ENTRY FOLLOWING THE DDEF ENTRY FOR Al COMPARATOR MUST CONTAIN A HEX 80 
MODIFIER. IF THE Al COMPARATOR FEATURE IS NOT INSTALLED. THE FOLLOWING RULE MUST BE FOLLOWED- 
AN UNUSED INTERRUPT LEVEL ASSIGNMENT MUST BE ENTERED IN THE DDEF FOR THE COMPARATOR (COLS. 22-24) , 
TOGETHER WITH THE HIGH PRIORITY CHANNEL FOR THE Al. (COL. 25). 





TIBTI 


TABLE 




THE FOLLOWING 


TABLE 


LISTS 


CONSTANTS TO BE 


ENTERED BY THt 


OPERATOR FOR TIMER A TIME 


BASE. 








TIME BASE 




CONSTANT ENTERED 


OF TIMER A 




IK 1 


4EX AT LABEL 


IN MILLISEC 


■ 




TIBTI 


128.000 






000! 


64.000 






0002 


32.000 






0004 


16.000 






0007 


8.000 






OOOE 


4.000 






001 B 


2.000 






0036 


1.000 






0068 


.500 






0006 


.250 






OIAB 


.125 






0?56 



DDEF 



DDEF 
NOTE I 



INTERVAL 
TIMER 
DDEF 



TIBTI 



A I MOD 



COLUMN 



CARD 
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A I DC RANDOM CARD 1. 



EDIT PROCEDURE (CONTINUED) 
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CARDS 
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0000 


EDIT 


DC 
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0000 
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DDEF FOR COMPARATOR 
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0000 
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DDEF FOR TIMER 




0814 


0356 


TIBT1 


DC 
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TIMER CONSTANT 
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A I MOD 


DC 




* MODI ADC MOD CONSTANT 




0816 


03E8 


AICYC 


DC 


I 


1000 


CYCLES TO BE RUN 




0817 


13E8 


AIMPX 


DC 


2 


5096 


**** 
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13E8 




DC 
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DC 
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MPX ADDR TABLE 
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FFFF 




DC 
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081B 


FFFF 




DC 
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0«!C 


FFFF 




DC 
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**** 
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C 0000 
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DC 
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**** 




081E 
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DC 











081F 
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DC 







PREC READING TABLE 
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0000 




DC 
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0000 




DC 







**** 
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DC 




1 


AUTO PREC RDNG SW 




0823 


C OOOE 


AIFRS 


DC 


4 


14 


**** 




0824 
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RANGE 


DC 


5 


5 


**** 




082 3 


0005 




DC 




5 
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DC 




5 


RANGE TABLE 




0827 
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DC 




5 






082 8 


0005 




DC 




5 


**** 
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13E8 
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DC 


9 
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**** 




082A 
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DC 
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082B 


13E8 




DC 




5096 
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13E8 




DC 
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0820 


13E8 




DC 
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082E 


13E8 




DC 




5096 






082F 


13E8 




DC 




5096 
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13E8 




DC 




5096 






0831 


13E8 




DC 




5096 






0832 


13E8 




DC 
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0833 
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DC 


D 





**** 
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DC 











0835 


0000 




DC 
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0000 




DC 
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0000 




DC 
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0000 




DC 











083 9 


0000 




DC 











083A 


0000 




DC 











083B 


0000 




DC 











083C 


0000 




DC 











083D 


0000 


AIXSS 


DC 


A 





EXTERNAL SYNC SWITCH 




083E 


0003 
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DC 


B 


3 
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083F 
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DC 
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F 
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0855 
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82101590 

8 2101600 

82101610 

82101620 

82101630 

82101640 

82101650 

82101660 

82101670 

82101680 

82101690 

82101700 

82101710 

82101720 

82101730 

82101740 

82101750 

82101760 

82101770 

82101780 

82101790 

82101800 

82101810 

82101820 

82101830 

82101840 

82101850 

82101860 

82101870 

82101880 

82101890 

82101900 

82101910 

82101920 

82101930 

82101940 

82101950 

82101960 

82101970 

82101980 

82101990 

82102000 

82102010 

82102020 

82102030 

82102040 

82102050 



PROG ID 
PAGE 



0821-2 
2 





0857 1 0855 




* 
* 
* 
* 
* 


DC 




AICCA 
** 


* * 
TIMER INTERRUPT ROUTINE ** 


82102060 
82102070 
82102080 
821C2090 
82102100 
82102110 










* 






THIS ROUTINE IS ENTERED FOR EACH 


82102120 










* 






TIMER 


INTERRUPT. SAPROX. EVERY 110 


82102130 










* 






MILLISECONDS< EACH DELAY COUNT IS 


82102140 










* 






DECREMENTED BY 1. WHEN ANY COUNT 


82102150 










* 






GOES TO ZERO, THE PROGRAM SWITCH 


82102160 










* 






WORD CORRESPONDING TO THE COUNT 


82102170 










* 






IS SET 


TO ZERO. 


82102180 










* 










82102190 










* 










82102200 






0858 0000 






DC 







TIMER AC/MOD STORAGE 


82102210 






0859 C 0000 




Til NT 


DC 







IE 


82102220 






085A 0867 






XIO 




TSNSE 


SENSE TIMER DSH 


82102230 






085B B03D 






CMP 




TICON 


CHECK FOR PROPER BIT 


82102240 






085C 1000 






SLA 







SKIP 


82102250 






0850 7015 






MDX 




TIERR 


ERROR DSW - BRANCH 


82102260 






085E C063 






LD 




TSNSE 


RESTORE CONSTANT 


82102270 






085F D4C0 


0004 




STO 


L 


4 




82102280 






0861 6305 






LDX 


3 


5 




82102290 






0862 1 C700 


087A 


TIWRK 


LD 


L3 


TIMll 


GET TIME COUNT 


82102300 






0864 1 4C18 


086F 




BSC 


L 


TIGOB, 


£- CALL NOT USED 


82102310 






0866 9068 






S 




AONE 




82102320 






0867 1 D700 


087 A 




STO 


L3 


TIMll 


RESTORE ADJ CNT 


82102330 






0869 1 4C20 


086F 




BSC 


L 


TIGOB, 


Z 


82102340 






086B 1 D780 


0879 




STO 


13 


TIM11- 


1 SET PROG SW OFF 


82102350 






086D 1 D700 


0879 




STO 


L3 


TIM11- 


1 RESET CALL 


82102360 






086F 73FE 




T1G08 


MOX 


3 


-2 




82102370 






0870 70F1 






MDX 




TIWRK 


CHECK REST OF CALLS 


82102380 






0871 1 4C30 


0859 


TIEXX 


BSC 


I 


Til NT 


EXIT ROUTINE IX 


8 2102390 






0873 D004 




TIERR 


STC 




TIOSW 


SAVE DSW 


82102400 






0874 1 7401 


0880 




MDX 


L 


TIERS, 


1 ADD ONE TO ERR SW 


82102410 






0876 70FA 






MDX 




TIEXX 


BRANCH TO EXIT 


82102420 






0877 70FF 




TITRP 

* 


MDX 




TITRP 


INTR ON SOLID - TRAP 


a 2IC2430 
82102440 






0878 0000 




TIDSW 


DC 







DSW STORAGE 


821C2450 






087A 0000 


0000 


TIMll 


DEC 







CALL THREE 


82102460 






087C 0000 


OOOO 




DEC 







CALL TWO 


82102470 






087E 0000 


0000 




DEC 







CALL ONE 


8 210 2480 






0880 0000 




TIERS 

* 
* 

* 
* 


DC 






** 


TIMER DSW ERROR SW 
LOOP PROGRAM ROUTINE ** 


82102490 
82102500 
32102510 
82102520 
82102 530 










* 






THIS ROUTINE IS ENTERED ONLY FROM 


82102540 










* 






MONITOR WHEN THE LOOP PROGRAM BIT 


82102550 










* 






IS SET ON IN MONITOR. 


8 2102 560 










* 










82102570 










* 










82102580 






0881 0000 




LOPAI 


DC 









82102590 






0882 4063 






BSI 




RSAI 


INITIALIZE PROGRAM 


82102600 






0883 1 6700 


096 7 




LDX 


L3 


AIRAC 


LOAO ENTRY ADDRESS 


82102610 






0885 1 6F0O 


0809 




STX 


L3 


MLSCF 


SET RETURN ENTRY 


82102620 






0887 1 4C80 


0881 


* 
* 


BSC 


I 


LOPAI 


EXIT TO MONITOR 
DSW XFER VECTOR 


82102630 
82102640 
82102650 






0889 0000 




AIIBT 


DC 







NOT USED 


8 2102660 






088A I 08A1 






DC 




AIERR 


ERROR ENTRY 


82102670 






088B 1 08A1 






DC 




AIERR 


ERROR ENTRY 


82102680 






088C 1 08A1 






OC 




AIERR 


ERROR ENTRY 


82102690 






088D 1 08A1 






DC 




AIERR 


ERROR ENTRY 


82102700 






0R8E 1 08A1 






DC 




AIERR 


ERROR ENTRY 


82102710 






088F 0000 






DC 







NOT USED 


82102720 


< 




0890 0000 






DC 







NOT USED 


82102730 




DATE 


28FEB66 1 


D1MAY66 


01JUL66 


15DEC66 


15DEC66 15DEC66 14N0V69 


PROG ID 


0821-2 


EC NO. 


415120 


415120A 


415178 


4212068 


421206A 421206 431319 


PAGE 


2A 



;< 



4 i 



I I 



i I 



I « 



till 



I I 
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PART NO. 
PAGE 



2196390 
3A 





0891 


1 


08A1 






DC 




AIERR 


ERROR ENTRY 


82102740 


08BA 





C056 






LD 




INTSW 




LOAD INTERRUPT SW 




82103420 






0892 


1 


08A1 






DC 




AIERR 


ERROR ENTRY 


82102750 


08BB 





4818 






BSC 




-6 








82103430 






0893 


1 


08A1 






DC 




AIERR 


ERROR ENTRY 


82102760 


08BC 





40E4 






BSI 




AIERR 




ERROR IF OFF 




82103440 






0894 


1 


08A1 






DC 




AIERR 


ERROR ENTRY 


82102770 


08BD 





1010 






SLA 




16 








82103450 






0895 


1 


08 A 1 






DC 




AIERR 


ERROR ENTRY 


82102780 


08BE 





D052 






STO 




INTSW 




RESET INTERRUPT SW 




82103460 






0896 


1 


08AB 






DC 




AIIRY 


RELAY ENTRY 


82102790 


08BF 


1 


4C80 


08B9 




BSC 


I 


AIEOT 




EXIT SUBROUTINE 


IX 


82103470 






0897 


1 


08 9C 






DC 




AISSE 


DPC SOLID STATE ENTRY 


82102800 










* 














82103480 






0898 


1 


08B9 




* 
* 
* 
* 


DC 




AIEOT 
** 


END OF TABLE ENTRY 
A I INTERRUPT ROUTINE ** 


82102810 
82102820 
82102830 
82102840 
82102850 


08C1 

08C2 
08C2 






FF3E 

0000 
0000 




AIPAS 

* 

TSNSE 


DC 

BSS 
DC 


E 


/FF3E 







INTERRUPT BITS 
TIMER SENSE IOCC 




82103490 
82103500 
82103510 
82103520 
82103530 














* 






THE MONITOR ENTERS SHIS ROUTINE 


82102860 


08C3 





0721 






DC 




/0721 








82103540 














* 






AFTER 


DETECTING AN AI INTERRUPT. 


82102870 










♦ 














82103550 














* 






THE ROUTINE SENSES AND EVALUATES 


82102880 










* 














82103560 














* 






BOTH AI ANO COMPARATOR DSWS, AND 


82102890 










* 






THIS SEQUENCE SETS UP TO ENABLE 




82103570 














♦ 






TRANSFERS TO THE SUBROUTINE TO 


82102900 










* 






LOGGING 


OF A COMPARE INTERRUPT, 




82103580 














* 






PERFORM THE REQUIRED SERVI3E. 


82102910 










* 






EITHER HI LIMIT, LO LIMIT OR 




82103590 














* 






MISSING OR EXTRA DSW BITS AND 


82102920 










* 






OVERLOAD 


# 




82103600 . 














* 






EXTRA 


INTERRUPTS WILL BE OUTPUTTED 


82102930 










* 














82103610 














* 






IN AN 


ERROR MESSAGE FROM MAINLINE. 


8 2102940 










* 














82103620 














* 






COMPARATOR INTERRUPTS HILL BE OUT- 


82102950 










* 








COMPARE ENTRV 




82103630 














* 






PUTTED IN A LOG MESSAGE FROM MAIN- 


82102960 










* 














82103640 














* 






LINE. 


tEOOO, A002< 


82102970 


08C4 





0000 




LGDSW 


DC 









OSW STORAGE FOR LOG 




82103650 














♦ 










82102980 


08C5 





0000 




ACCMP 


DC 









AREA COOE - COMPARE 




82103660 






0899 





8000 




TICON 


DC 




/8000 


TIMER CONSTANT 


82102990 


08C6 





0000 




AICMR 


DC 











IE 


82103670 






089 A 





0000 




A1IST 


DC 







TEMPORY STORAGE 


82103000 


08C7 





0858 






XIO 




LMOSW 




READ DSW - RESET 




82103680 






089B 





0000 




AIDSW 


DC 







DSW STORAGE AREA 


82103010 


08C8 





DOFB 






STO 




LGDSW 




SAVE OSW 




82103690 














* 










82103020 


08C9 


1 


7401 


0E3C 




MOX 


L 


AILGS, 


1 


SET LOG REQ SW ON 




82103700 














* 










82103030 


08CB 





7001 






MDX 




♦61 








82103710 






089C 





0000 




A1SSE 


DC 







IE 


8 2103040 


08CC 





70FF 




CMTRP 


MDX 




CMTRP 




INTR ON SOLID - TRAP 




82103720 






0890 





4003 






BSI 




AIERR 


GO SET UP ERROR 


82103050 


08CD 


1 


4C80 


08C6 




BSC 


I 


AICMR 




EXIT ROUTINE 


IX 


82103730 






089E 





0845 






XIO 




AISRD 


READ INTO DUMMY 


82103060 










# 














82103740 






089F 


1 


4C80 


089C 




BSC 


I 


AISSE 


EXIT ROUTINE IX 


82103070 










* 














82103 750 














* 










82103080 










* 








RESPONSE ENTRY 




S2103760 














* 










82103090 










# 














82103770 














* 






THIS SEQUENCE SETS UP TO ENABLE 


82103100 


08CF 





0001 




AONE 


DC 




1 




CONSTANT ONE 




82103780 














* 






LOGGING OF AN ERROR INTERRUPT. 


82103110 


0800 





ooco 




ACAI 


DC 









AREA CODE - AI 




32103790 














* 










82103120 


0801 


c 


0000 




AINTR 


DC 











ie' 


82103800 






08A1 





0000 




AIERR 


DC 







IE 


82103130 


08D2 





084F 






XIO 




CKDSW 




READ DSW - RESET 




82103810 






08A2 





C0F8 






LD 




AIDSW 




82103140 


08D3 





D0C7 






STC 




AIDSW 




SAVE DSW 




82103820 






08A3 


1 


0400 


092 




STO 


L 


LMDSW 


STORE FOR LOG 


82103150 


0804 





EOEC 






ANO 




AIPAS 




TURN OFF PASS BITS 




82103830 






08 A 5 


1 


7401 


0A28 




MOX 


L 


AIERS, 


1 SET ERR SW ON 


82103160 


0805 





D0C4 






STO 




AIIST 




STORE DSW 




82103840 






08A7 





7001 






MDX 




*61 




82103170 


08D6 


c 


63 OF 






LOX 


3 


15 








82103850 






08A8 





70FF 




AITRP 


MDX 




AITRP 


INTR ON SOLID - TRAP 


82103180 


08D7 


1 


4418 


08A1 




BSI 


L 


AIERR, 


6- 


ERROR IF DSW ZERO 




82103860 






08A9 


1 


4C80 


08A1 


# 


BSC 


I 


AIERR 


EXIT ROUTINE IX 


82103190 
82103200 


08D9 
08DA 






COCO 
1340 




AIIBR 


LD 
SLCA 


3 


AIIST 





FIND DSW BIT 




82103870 
82103880 














* 










82103210 


08DB 


I 


4C98 


08D1 




BSC 


I 


AINTR, 


e- 


EXIT IF DONE 


IX 


82103890 














* 










82103220 


08DD 





FOBB 






EOR 




TICON 




TURN OFF BIT 




82103900 














* 










82103230 


08DE 





DOBB 






STO 




AIIST 








82103910 














* 








RELAY INTERRUPT ENTRY 


82103240 


080F 


1 


4780 


0889 




BSI 


13 


AIIBT 








82103920 














* 










82103250 


08E1 





70F7 






MDX 




AIIBR 




BRANCH 




82103930 






08AB 





0000 




AIIRY 


DC 







IE 


82103260 










* 














82103940 






08AC 





0835 






XIO 




AIRCC 


READ RLY DATA 


82103270 










# 














82103950 






08AO 


1 


7400 


0973 




MDX 


L 


AIRCT, 


CHECK FOR ERROR 


8 2103280 










* 














82103960 






08AF 





7002 






MOX 




♦ 82 


SKIP IF OK 


82103290 










* 






** 


INITIALIZATION ROUTINE ** 




82103970 






08B0 





40FO 






BSI 




AIERR 




82103300 










* 














82103980 






0861 





7005 






MDX 




♦ 65 


BRANCH TO EXIT 


82103310 










* 






THIS ROUTINE PERFORMS THE REQUIRED 


82103990 






0882 


1 


74FF 


08E2 




MDX 


L 


AIRCC, 


-1 SET UP FOR NXT RLY 


82103320 










* 






INITIALIZATION FOR RESTART OF THE 


82104000 






08B4 


1 


74FF 


0973 




MDX 


L 


AIRCT, 


-1 REOUCE RELAY CNT 1 


82103330 










* 






PROGRAM, 


AND LOADS THE INITIAL 




82104010 






08B6 





1000 






SLA 







MDX MAY SKIP 


8 2103340 










* 






ENTRY 


AODRESS INTO THE MAIN LINE 




82104020 






08B7 


1 


4C80 


08AB 




BSC 


I 


AIIRY 


EXIT SUBROUTINE IX 


82103350 










* 






SEQUENCE 


CONTROL FIELD. 




82104030 














* 










82103360 










* 














82104040 














* 










8 2103370 










* 














82104050 














♦ 








END OF TBL INTER ENTRY 


82103380 


08E2 




0000 






BSS 


E 











82104060 














* 










8 2103390 


08E2 


1 


OEEE 




AIRCC 


DC 




AIDRTG10 


IOCC WORD RD RLY 




82104070 














* 










82103400 


08E3 





0000 






DC 









IOCC WORD RD RLY 




82104080 






08B9 





0000 




A I EOT 


DC 







IE 


82103410 


08E4 


1 


0922 




AISRD 


DC 




CKDSW 




SOLID STATE IOCC 




82104090 




DATE 


28FEB66 01MAY66 


01JUL66 


15DEC66 


15DEC66 15DEC66 14N0V69 


PROG ID 0821-2 


DATE 28FEB66 01MAY66 


01JUL66 


15DEC66 


15DEC66 15DEC66 14N0V69 


PROG 10 


0821-2 


EC NO. 


415120 415120A 


415178 


421206B 


421206A 421206 431319 


PAGE 3 


EC NO. 41512C 


> 415120A 


415178 


421206B 


421206A 421206 431319 


PAGE 
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0SE5 





0000 






DC 











82104100 














* 












82104110 














* 












82104120 






08E6 





0000 




RSAI 


OC 











82104130 






08E7 


I 


C400 


0E85 




LD 


L 


AIAAS 


LOAD TERMINATOR 




82104140 






08E9 


1 


D400 


0805 




STO 


L 


SW3 


INITIALIZE BIT SW 


3 


82104150 






08EB 





C830 






LDD 




RT01 


LOAD ROUTINE 1 




82104160 






08EC 


1 


DC 00 


0800 




STD 


L 


RID 


STO RT ID 6 ADDR 




82104170 






08EE 





1090 






SLT 




16 


SHIFT ENTRY ADDR 




82104180 






08EF 


1 


0400 


0809 




STO 


L 


MLSCF 


STORE ENTRY 




82104190 






08F1 





1010 






SLA 




16 






82104200 






08F2 


1 


D400 


0973 




STO 


L 


AIRCT 






82104210 






08F4 


1 


D400 


0A2B 




STO 


L 


AIERS 






82104220 






08F6 


1 


4400 


0CC8 




BSI 


L 


AISTP 


GO TO SET UP RT 




82104230 






08F8 





6600 


0019 




LDX 


L2 


AI0VCS5-AISUX **** 




82104240 






08FA 


1 


6500 


0EF3 




LOX 


LI 


AISUX-1 






82104250 






08FC 





4015 






BSI 




CLEAR 






82104260 






08FD 


1 


6580 


0C9B 




LDX 


11 


AIWC1 




* 


82104270 






08FF 





7260 






MDX 


2 


109 




* 


82104280 






0900 





71FF 






MDX 


1 


-1 




* 


82104290 






0901 





70FD 






MDX 




*-3 


ZERO WORK AREAS 


* 


82104300 






0902 


1 


6500 


0F21 




LDX 


LI 


AISTB-1 






82104310 






0904 





4000 






BSI 




CLEAR 






82104320 






0905 


1 


D400 


0B4B 




STO 


L 


AICYR 


INITIALIZE 


* 


82104330 






0907 


1 


D400 


09F0 




STO 


L 


TMCNT 


SWITCHES 


* 


82104340 






0909 


1 


65 80 


09A5 




LOX 


11 


AIRSY 


LOAD RELAY COUNT 




82104350 






0908 


1 


7401 


09F0 




MDX 


L 


TMCNT,1 


SET DELAY TIME 




8 2104360 






090D 





71F7 






MDX 


1 


-9 






82104370 






090E 





70FC 






MDX 




*-4 






82104380 






09 OF 


1 


4C80 


08E6 


* 
* 


BSC 


I 


RSAI 


EXIT ROUTINE 




82104390 
82104400 
82104410 






0911 





0000 




INTSW 

* 

* 


DC 







INTERRUPT SWITCH 




8 2104420 
82104430 
82104440 






0912 





0000 




CLEAR 


DC 











82104450 






0913 





6902 






STX 


1 


CLRCRE1 






82104460 






0914 





1010 






SLA 




16 






82104470 






0915 





0600 


0000 


CLRCR 


STO 


L2 









82104480 






0917 





72FF 






MDX 


2 


-1 






82104490 






0918 





70FC 






MDX 




CLRCR 






82104500 






0919 


1 


4C80 


0912 


* 
* 


BSC 


I 


CLEAR 






82104510 
82104520 

82104530 














* 






CONTROL SEQUENCE NUMBEH 


I 1 


82104540 














* 












82104550 














* 






THIS SEQUENCE REQUESTS THE USE OF 


82104560 














* 






THE DEVICES USED IN THIS PROGRAM 


82104570 














* 






FROM MONITOR. THE FIRST PART 




82104580 














* 






REQUESTS THE TIMERS AND IS ENTERED 


82104590 














* 






ONLY FROM 


THE INITIALITION. THE 


82104600 














* 






SECOND PART *RT01A< REQUESTS 


THE 


82104610 














* 






AI AND IS 


ENTERED PRIOR TO EACH 


8 2104620 














* 






CYCLE. ANY SETUP ERROR IS OUTPUTTED 


82104630 














* 






FROM THIS 


SEQUENCE. »E006< 




82104640 














* 












8 2104650 














* 












82104660 






091C 




0000 






BSS 


E 









82104670 






091C 





0001 




RT01 


DC 




I 


RT 01 - REQ DEVICES 


82104680 






091D 


1 


0924 




* 


DC 




TMREQ 


ENTRY ADDRESS 




82104690 
82104700 






091E 





0001 




RT01A 


DC 




1 


RT 01A - REQ AI 




82104710 






091F 


1 


095B 




* 
* 


DC 




AIACC 


ENTRY ADDRESS 




82104720 
82104730 
82104740 






0920 





0000 


0000 


LMDSW 


DEC 







IOCC TO RESET CMP 


DSW 


8 2104750 






0922 





0000 


0000 


CKOSW 


DEC 







IOCC TO RESET AI DSW 


82104760 














* 












82104770 




DATE 


28FEB66 01MAY66 


01JUL66 


15DEC66 15DEC66 15DEC66 14N0V69 


PROG ID 


0821-2 


EC NO. 


415120 415120A 


415178 


421206B 421206A 421206 431319 


PAGE 


4 













***** 


***** 


*** 


t*********4 


i********************** 


82104780 












* 






** REQUEST TIMERS ** * 


82104790 




0924 





4480 


0131 


TMREQ 


BSI 


I 


REQDV 


GO REQUEST TIMERS * 


82104800 




0926 


1 


0965 






DC 




TMBSY 


ADDR OF BSY RTRN * 


82104810 




0927 


1 


0813 






DC 




EDIT62 


ADDR OF TM DEV DEF * 


82104820 




0928 


1 


08 58 






DC 




TIINT-1 


ADDR OF AC STORAGE * 


82104830 




0929 


1 


080A 




* 


DC 




TERM 


ADDR OF TERMINATOR * 

* 


82104840 
82104850 












********************************************* 


82104860 




092A 


1 


C400 


0814 




LD 


L 


TIBTl 


LOAD TIMER 1 CONS 


82104870 




09 2C 





404C 






BSI 




MKPOS 


CHANGE SIGN 


82104880 




092D 





D094 






STO 




TSNSE 


STORE CONSTANT 


82104890 




092E 





0400 


0004 




STO 


L 


4 


INITIALIZE TIMER 1 


8 2104900 




0930 





4026 




AIREQ 


BSI 




REQAI 


REQUEST AI 


82104910 




0931 





C09E 






LD 




ACAI 


LOAD AREA CODE 6 MOO 


82104920 




0932 





E83D 






OR 




CONTL 


OR CONTROL FUNTION 


82104930 




0933 





D065 






STO 




AIBST61 


SET IN IOCC WORD 


8 2104940 




0934 





E83D 






OR 




IWT 


OR INITIATE WRITE 


8 2104950 




0935 





D069 






STO 




AIWRTS1 


STO IN IOCC WORD 


82104960 




0936 





C099 






LD 




ACAI 


LOAD AREA CODE 


82104970 




0937 





E837 






OR 




RD 


OR READ FUNTION 


82104980 




0938 





DOAA 






STO 




AIRCCtl 


STO IN IOCC WORO 


82104990 




0939 





DOAA 






STO 




AISRO 


SET IN IOCC WORD 


82105000 




093A 





E839 






OR 




SDSW 


OR SENSE FUNTION 


82105010 




093B 





D05F 






STO 




RDDSWei 


STO IN READ DSW IOCC 


82105020 




093C 





E892 






OR 




AONE 


OR BIT 15 


82105030 




093 D 





00E5 






STO 




CK0SWE1 


STO IN RESET DSW IOCC 


82105040 




093E 





E863 






OR 




AIB08 


OR COMPARATOR MODIFIER 


82105050 




093F 





D0E1 






STO 




LMDSWC1 


STO IN IOCC WORD 


82105060 




0940 


1 


C400 


0823 




LD 


L 


AIFRS 


**** 


82105070 




0942 





100E 






SLA 




14 


* 


82105080 




0943 





180E 






SRA 




14 


* 


82105090 




0944 





B05C 






CMP 




AIB14 


* 


82105100 




0945 





7003 






MDX 




AIRG 


RESOLUTION ADJUST * 


82105110 




0946 





7004 






MDX 




AIRL 


SEQUENCE * 


82105120 




0947 





1002 






SLA 




2 


* 


82105130 




0948 





7003 






MDX 




AIRDD 


CAN BE EITHER * 


82105140 




0949 





1010 




AIRG 


SLA 




16 


14 BIT * 


82105150 




094 A 





7001 






MDX 




AIRDD 


11 BIT 


82105160 




094 B 





C057 




AIRL 


LO 




AIB11 


08 BIT * 


82105170 




094C 





E883 




AIRDD 


OR 




ACAI 


OR AREA CODE * 


82105180 




0940 





E823 






OR 




IRO 


OR READ FUNTION * 


82105190 




094E 


1 


7400 


083 D 




MDX 


L 


AIXSS.O 


CHECK FOR EXT SYNC * 


82105200 




0950 





E851 






OR 




AIB08 


OR EXT SYNC BIT * 


82105210 




0951 





D04B 






STO 




AIIRDC1 


SET IN IOCC * 


82105220 




0952 


1 


C400 


0A2B 




LD 


L 


AIERS 


LOAD SETUP ERROR SW 


82105230 




0954 


1 


4C20 


0AA9 




BSC 


L 


LSUER.Z 


LOG ERROR IF ON 


82105240 




0956 





7011 




* 
* 


MDX 




AIRACS1 


BRANCH 


82105250 
82105260 
82165270 




0957 





0000 




REQAI 


DC 







se 


82105280 




0958 





C8C5 




AIBSY 


LDD 




RT01A 


LOAD ROUTINE 1A 


82105290 




0959 


1 


6400 


9FC 




LDX 


L 


AIEXX 


BR TO EXIT 


82105300 












********************************************* 


82105310 












* 






** REQUEST A I ** * 


82105320 




095B 





4480 


0131 


AIACC 


BSI 


I 


REQDV 


GO REQUEST AI * 


82105330 




0950 


1 


0958 






DC 




AIBSY 


ADDR OF BSY RTRN * 


82105340 




095E 


1 


0811 






DC 




EDIT 


ADDR OF AI OEV DEF * 


82105350 




095F 


1 


08D0 






DC 




ACAI 


ADDR OF AC STORAGE * 


8 2105360 




0960 


1 


0812 






DC 




EDITE1 


ADDR OF CMP DEV DEF* 


82105370 




0961 


1 


08C5 






DC 




ACCMP 


ADDR OF CMP AC STO * 


82105380 




0962 


1 


080A 






DC 




TERM 


ADDR OF TERMINATOR * 


8 2105390 












********************************************* 


82105400 




0963 


1 


4C80 


0957 


* 
* 


BSC 


I 


REQAI 


EXIT ROUTINE SX 


82105410 
82105420 
82105430 




0965 





C8B6 




TMBSY 


LDD 




RT01 


LOAD ROUTINE 1 


82105440 




0966 





7044 






MDX 




AIINXS1 


BRANCH TO EXIT 


82105450 


DATE 


28FEB66 01MAY66 


01JUL66 


15DEC66 15DEC66 15DEC66 14N0V69 


PROG ID 


EC NO. 


41512C 


1 415120A 


415178 


421206B 421206A 42120* 431319 


PAGE 
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2196390 
5* 













* 










82105460 


099E 1 0841 


AIWRT 


DC 




AITOA 


IOCC TO INITIATE WR 


82106140 














* 










82105470 


099F 0000 




DC 









82106150 
82106160 






0967 





40EF 




AIRAC 


BSI 




REQAI 


GO REQUEST AI 


82105480 


09A0 0000 


AITMS 


DC 







TIMER SWITCH 






0968 


1 


7401 


0B4B 




MDX 


L 


AICYR, 


1 ADD 1 TO CYCLE CNTR 


82105490 


09A1 0002 


AIB14 


OC 




/0002 


BIT 14 CONSTANT 


82106170 






096 A 


1 


6700 


OEEE 




LDX 


L3 


AIDRTtlO LOAO RLY ADDR 


82105500 


09A2 0080 


AIB08 


DC 




/0080 


BIT 08 CONSTANT 


82106 180 






096C 


1 


6FO0 


08E2 




STX 


L3 


AIRCC 


STORE IN IOCC 


82105510 


09A3 0010 


AIB11 


DC 




/10 


BIT 11 CONSTANT 


82106190 






096 E 





7043 




* 
* 


MOX 




AIINP 


BRANCH TO RT0 3 


82105520 
82105530 
82105540 


09A4 0000 
09A5 0000 
09A6 0000 


TMSSW 
AIRSY 
AIOSP 


DC 

DC 
DC 









TIME SWITCH 
RELAY SWITCH 
OVERLAP CNTR 


82106200 
82106210 
82106220 






096F 





0200 




RO 


DC 




/0200 


READ FUNTION 


82105550 




* 










82106230 
82106240 

82106250 






0970 





0400 




CONTL 


DC 




MOO 


CONTROL FUNTION 


8 2105560 




* 














0971 





0620 




IRO 


DC 




/0620 


INITIATE READ FUNTION 


82105570 




* 






CONTROL SEQUENCE NUMBER 3 






0972 





0500 




IWT 


DC 




/0500 


INITIATE WRITE FUNTION 


82105580 




* 










82106260 






0973 





0000 




AIRCT 


DC 







RELAY CNT STORAGE 


82105590 




* 






THIS SEQUENCE INITIATES THE READ 


82106270 






0974 





0700 




SDSW 


DC 




/0700 




82105600 




* 






AND WRITE 


AI COMMANDS. IT ALSO 


82106280 






0976 





0000 


0000 


POSWK 


DEC 







WORK AREA 


82105610 




* 






STARTS THE TIME DELAY USING TIMER 


82106290 














* 










82105620 




* 






NUMBER 1. 


ENTRY TO THE DATA ENTRY 


82106300 






0978 


1 


0B58 




* 


DC 




AIWKH 

** 


MPX ADDRESS * 
CHANGE SIGN SUBROUTINE ** 


82105630 
82105640 




* 
* 






AND EVALUATE ENTERED DATA ROUTINES 
IS MADE FROM THIS SEQUENCE. 


82106310 
8 2106320 














♦ 










82105650 




* 










82106330 














* 






THIS SUBROUTINE CHANGES THE SIGN 


82105660 


09A8 0000 




BSS 


E 







82106340 














* 






OF THE 


VALUE IN A£Q, AND RETURNS 


82105670 


09A8 0003 


RT03 


DC 




3 


ROUTINE 3 


82106350 














* 






WITH THE NEW VALUE IN ASQ. THE 


82105680 


09A9 1 09B2 




DC 




AIINP 


ENTRY ADDRESS 


82106360 














* 






VALUE 


CAN BE A ONE WORD VALUE IN 


82105690 




* 










82106370 














* 






A BUT 


Q MUST # ZERO. 


82105700 




* 










82106380 














* 










82105710 


09AA C8FD 


AIINX 


LDD 




RT03 


LOAD RT03 RETURN 


82106390 














* 










82105720 


09AB 7050 




MOX 




AIEXX 


BRANCH TO EXIT 


82106400 






0979 





0000 




MKPOS 


DC 







SE 


82105730 




* 










82106410 






097 A 





D8FB 






STD 




POSWK 




82105740 




* 










82106420 






097B 





10A0 






SLT 




32 




82105750 


09AC 1010 


NOTVC 


SLA 




16 




82106430 






097C 





98F9 






SD 




PCSHK 




82105760 


09AD I 0400 0A20 




STO 


L 


AIOCS 




82106440 






0970 


1 


4C80 


0979 


* 

* 
* 
* 


BSC 


I 


MKPOS 


SX 
CONTROL SEQUENCE NUMBER 2 


82105770 
82105780 
82105790 
82105800 
82105810 


09AF 1 4400 0CC8 
09B1 702E 

09B2 10A0 
09B3 1 C400 0804 


* 
AIINP 


BSI 

MDX 

SLT 

LD 


L 
L 


AISTP 

AIPLT 

32 
SW2 


CLEAR A 6 Q 

LD BIT SW WORD 2 


82106450 
8 2106460 
82106470 
82106480 
82106490 














* 






THIS SEQUENCE SENSES AND RESETS 


82105820 


09B5 1 4C20 0E*0 




BSC 


L 


AIDER, Z 


GO TO ADO DATA 


82106500 














* 






THE AI 


DSW. NONZERO DSW WILL OUT- 


82105830 


09B7 1 C400 8C3 




LD 


L 


SW1 


LD BIT SW WORD 1 


82106510 














* 






PUT AN 


ERROR. SEOOK 


82105840 


09B9 1 4420 OE?E 




BSI 


L 


AIVED,Z 


GO TO VERIFY DATA 


82106520 














* 










82105850 


09B3 1 C400 or, a 




LD 


L 


TIERS 


LD TKR ERROR SW 


82106530 






097 F 


1 


6E00 


0A2B 


AIERL 


STX 


L2 


AIERS 


RESET ERROR SW 


82105860 


09BD 1 4C20 0A87 




BSC 


L 


LGTER.Z 


BR TO LOG ERROR 


8 2106540 






0981 





400F 




AISRT 


BSI 




BLAST 


GO TO BLAST ROUTINE 


82105870 


09BF C0E5 




LD 




AIRSY 


LO RLY SW 


82106550 






0982 





0817 






XIO 




RDDSW 


SENSE DSW 


82105880 


09CO 1 4C18 09EC 




BSC 


L 


AIIZZ.E- 


BR TO RD IF NOT RLY 


82106560 






0983 


1 


4C18 


09B2 




BSC 


L 


AIINP, 


6- TO RT03 IF DSW # 


82105890 


09C2 1 7400 09A0 




MOX 


L 


AITWS.O 


SKIP IF TMR SW OFF 


82106570 






0985 


1 


D400 


0A2C 




STO 


L 


ERDSW 


STORE OSW FOR PRINT 


8210590C 


09C4 70E5 




MDX 




AIINX 


BRANCH TO EXIT 


8 2106580 






0987 


1 


4400 


0A90 




BSI 


L 


AIERC 




82105910 


09C5 DO AD 




STO 




AIRCT 


STO NO RLY POINTS 


82106590 






0989 





E001 






AND 




♦ 61 


MID FOR DSW NOT RESET 


82105920 


09C6 1 C400 083F 




LD 


L 


AIOLS 




82106600 














********************************************* 


82105930 


09C8 1 4C30 09E0 




BSC 


L 


AIPLT, Z- 




82106610 














* 








** RELEASE AI ** * 


82105940 


09CA 1 C400 0802 




LD 


L 


swo 




82106620 






098A 





4480 


0132 


ENDAI 


BSI 


I 


RELDV 


GO TO RELEASE AI * 


82105950 


09CC 100A 




SLA 




10 




82106630 






098C 


1 


0811 






DC 




EDIT 


ADDR OF AI DEV DEF * 


82105960 


09CD 1 4C10 09AC 




BSC 


L 


NOTVC, - 




82106640 






0980 


1 


0812 






DC 




E0IT61 


ADDR OF CMP DEV DEF* 


82105970 


09CF 1 C400 0A2D 




LD 


L 


AIOCS 




82106650 






098 E 


1 


08 OA 






DC 




TERM 


ADDR OF TERMINATOR * 


82105980 


0901 1 4C30 09D7 




BSC 


L 


OVLPC, -Z 




8 2106660 














********************************************* 


82105990 


09D3 1 7401 0A2D 




MDX 


L 


A I OC S , 1 




82106670 






098 F 





4C80 


012E 


* 
* 


BSC 


I 


END 


END PROGRAM 


82106000 
82106010 
82106020 


09D5 1 4400 0CC8 
09D7 COCE 
09D8 9051 


OVLPC 


BSI 

LD 
S 


L 


AISTP 
AIOSP 
AIOSB 


LOAD OVERLAP COUNT 
SUBT CONSTANT 


82106680 
82106690 
82106700 






0991 





0000 




BLAST 


DC 







SE 


82106030 


09D9 1801 




SRA 




1 




82106710 






0992 





0805 






XIO 




AIBST 


RESET AI CHAN 


82106040 


09DA 1 4C30 0EC9 


A I TOO 


BSC 


L 


AIOLT.Z- 


BR TO PRINT OVLP CNTR 


82106720 






099 3 





088C 






XIO 




LMDSW 


RESET PENDING INTER 


82106050 


09DC 1 C400 0D66 




LD 


L 


C001 


LO CHAIN-INT CONSTANT 


8 2106730 






0994 





088D 






XIO 




CKDSW 


RESET PENDING INTER 


82106060 


090E 1 D400 OEFO 




STO 


L 


LOOP 


RESET CONTROL BITS 


82106740 






0995 


1 


4C80 


0991 


* 
* 


BSC 


I 


BLAST 


EXIT ROUTINE SX 


82106070 
82106080 
82106090 


09E0 1 C400 083F 
09E2 1 4C18 09E6 
09E4 1010 


AIPLT 


LD 

BSC 

SLA 


L 
L 


AIOLS 
AITRT, £- 
16 


BR IF OVERLAP 


82106750 

82106760 
82106770 






099 8 





0000 


0000 


AIBST 


DEC 







BLAST IOCC 


82106100 


09E5 D08D 




STO 




AIRCT 




82106780 






099 A 





00 00 


0000 


RDDSW 


DEC 







IOCC TO RD AI DSW 


82106110 




*************** ********** * ********** ******** * 


82106790 






099 C 


1 


0EE3 




AIIRD 


DC 




AIDRT- 


1 IOCC TO INITIATE READ 


82106120 




* 






** TIMER CALL ** * 


82106800 






099D 





0000 






DC 









82106130 


09E6 1 4400 0DB7 


AITRT 


BSI 


L 


TIMER 


GO TO TIMER * 


82106810 




DATE 


28FEB66 01MAY66 


01JUL66 


15DEC66 


15DEC66 15DEC66 14N0V69 


PROG ID 0821-2 


DATE 28FEB66 01MAY66 


01JUL66 


15DEC66 15DEC66 15DEC66 14N0V69 


PROG ID 


0821-2 


EC NO. 


41512C 


1 415120A 


415178 


421206B 


421206A 421206 431319 
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09E8 





0003 






OC 




3 




TIME # 320 M SEC 


* 


82106820 






09E9 


1 


09A0 




* 


OC 




AITMS 




ADDR OF TIME SW 


* 
* 


82106830 
8 2106840 














*************** **************** ************** 


82106850 






09EA 





C03F 






LD 




AIOSB 








82106860 






09EB 





DOBA 






STO 




AIOSP 




RESET OVERLAP CNTR 




82106870 






09EC 


1 


7401 


0911 


AIIZZ 


MDX 


L 


INTSW, 


1 


TURN INT SW ON 




82106880 














********************************************* 


82106890 














* 






** 


TIMER CALL ** 


* 


82106900 






09EE 


1 


4400 


0DB7 




BSI 


L 


TIMER 




GO TO TIMER 


* 


82106910 






09F0 





0000 




TMCNT 


DC 









TM # 107 MSEC/9 PTS* 


82106920 






09F1 


1 


09 A 4 




* 


DC 




TMSSW 




ADDR OF TIME SW 


* 
* 


82106930 

82106940 














********************************************* 


82106950 






09F2 





08A9 






XIC 




AIIRD 




INITIATE READ 




82106960 






09F3 





08AA 






XIO 




AIWRT 




INITIATE WRITE 




82106970 






09F4 


I 


C400 


0A2D 




LD 


L 


AIOCS 








82106980 






09F6 


1 


4420 


0A03 




BSI 


L 


AIOCK, 


Z 


BR IF OVRL CK 




8 2106990 






09F8 


1 


7400 


083D 




MDX 


L 


AIXSSi 





CHECK FOR EXT SYNC 




82107000 






09FA 





7034 






MDX 




XTSNC 




BR FOR EXT SYNC 




82107010 






09F8 





C83C 




AIEXB 


LDD 




RT04 




LOAD ROUTINE 4 




82107020 






09FC 


I 


DC 00 


0800 


AIEXX 


STD 


L 


RIO 




STO RT ID £ ADDR 




82107030 






09FE 





1090 






SLT 




16 




SHIFT ENTRY ADDR 




82107040 






09FF 


1 


D400 


809 




STO 


L 


MLSCF 




STORE ENTRY ADDR 




82107050 






OAOl 





4C80 


0120 


AIRTM 

* 


BSC 


I 


START 




RETURN TO MONITOR 




82107060 
82107070 






0A03 





0000 




AIOCK 


DC 













82107080 






0A04 


1 


6780 


09A6 




LOX 


13 


AIOSP 




INITIALIZE EOT COUNT 


82107090 






0A06 





OCOO 


0348 




XIO 


L 


MASK 








82107100 






0A08 





OCOO 


034A 




XIO 


L 


MASK1 








82107110 






OAOA 


1 


OCOO 


092 2 


AISSS 


XIO 


L 


CKOSW 








82107120 






OAOC 





4828 






BSC 




ez 




SKIP IF NOT COUNT 




82107130 






OAOD 





7301 






MDX 


3 


1 




COUNT EOT BITS 




82107140 






OAOE 





1002 






SLA 




2 








82107150 






OAOF 


I 


4C10 


0A18 




BSC 


L 


SPRLY, 




BR IF RLY DATA NOT 


ROY 


82107160 






0A11 





18D0 






RTE 




16 




SAVE A 




82107170 






0A12 


1 


OCOO 


08E2 




XIO 


L 


AIRCC 




READ RLY DATA 




82107180 






0A14 


1 


74FF 


0973 




MDX 


L 


AIRCT, 


-1 


REDUCE RLY COUNT 




82107190 






0A16 





1000 






SLA 













82107200 






0A17 





18D0 






RTE 




16 




GET A 




82107210 






0A18 





1007 




SPRLY 


SLA 




7 




SET UP RLY BUSY CK 




82107220 






0A19 


1 


4C28 


OAOA 




BSC 


L 


AISSS, 


EZ 


BR IF STILL BUSY 




82107230 






0A1B 





68 8A 






STX 


3 


AIOSP 




STO EOT COUNT 




82107240 






0A1C 


1 


4400 


08B9 




BSI 


L 


AIEOT 








82107250 






0A1E 


1 


4400 


0991 




BSI 


L 


BLAST 








82107260 






OA20 





OCOO 


034C 




XIO 


L 


UMASK 








82107270 






0A22 





OCOO 


034E 




XIO 


L 


UMAS1 








82107280 






0A24 


1 


C400 


091E 




LD 


L 


RT01A 








82107290 






0A26 


I 


0400 


OEFO 




STO 


L 


LOOP 








82107300 






0A28 


1 


4C80 


0A03 


* 


BSC 


I 


AIOCK 




BRANCH 




82107310 
82107320 






0A2A 





0000 




AIOSB 


DC 









OVLP CK SW 




82107330 






0A2B 





0000 




AIERS 


DC 









ERROR SWITCH 




82107340 






0A2C 





0000 




ERDSW 


DC 









ERROR DSW STORAGE 




82107350 






0A2D 





0000 




AIOCS 


DC 









CK OVLP SW 




8 2107360 






0A2E 





OOCO 




BSYBT 

* 


DC 




/OOCO 




BSY BITS 8 £ 9 




82107370 
82107380 






0A2F 


1 


OCOO 


099A 


XTSNC 


XIO 


L 


RDDSW 




READ DSW 




82107390 






0A31 


1 


4C20 


09FB 




BSC 


L 


AIEXB, 


Z 


CHECK FOR BUSY ON 




82107400 






0A33 


I 


7400 


0911 




MDX 


L 


INTSW, 


,0 


CHECK FOR INTER 




82107410 






0A35 





70F9 






MDX 




XTSNC 




LOOP FOR BUSY 




82107420 






0A36 





70C4 




* 
* 


MDX 




AIEXB 




EXIT FOR INTR OFF 




82107430 
82107440 
82107450 














* 








CONTROL SEQUENCE NUMBER 


4 


82107460 














* 














82107470 














* 






THIS SEQUENCE IS ENTERED FROM 




82107480 














* 






MONITOR AS 


LONG AS THE AI IS 




82107490 




DATE 


28FEB66 01MAY66 


01JUL66 


15DEC66 


15DEC66 15DEC66 14N0V69 


PROG ID 


0821-2 


EC NO. 


415120 415120A 


415178 


421206B 


421206A 421206 431319 


PAGE 


6 













* 






BUSY. IT 


CHECKS FOR LOST RELAY 


8 2107500 














* 






AND LOST 


END OF TABLE INTERRUPTS. 


82107510 














* 






IT ALSO CHECKS FOR PROPER OPERATION 


82107520 














* 






OF THE BUSY BITS AND THE BLAST 


82107530 














* 






INSTRUCTION. IT INITIATES THE 


82107540 














* 






OUTPUT OF 


AN ERROR WHEN ONE IS 


82107550 














* 






DETECTED. 


*E004, E003, E007, E008< 


82107560 














* 










82107570 






0A38 




0000 






BSS 


E 







82107580 






0A38 





0004 




RT04 


DC 




4 


RT 04 - INTER/BSY CK 


82107590 






0A39 


1 


0A3A 




* 
* 


DC 




AIENB 


ENTRY ADDRESS 


82107600 
82107610 
82107620 






0A3A 


1 


C400 


0E3C 


AIENB 


LD 


L 


AILGS 


TEST FOR COMP INTR 


82107630 






0A3C 


1 


4C18 


0A48 


* 
* 


BSC 


L 


AILCL, 6- 


tOG COMP INTR IF ON 


8 2107640 
82107650 
82107660 














* 






CCMPARE LOG CALL 


8 2107670 














* 










82107680 














* 






THIS CALL 


IS ENTERED FROM MAIN- 


82107690 














* 






LINE WHENEVER A COMPARATOR INTERRUPT 


82107700 














• 






HAS BEEN 


SERVICED. THE INFORMATION 


82107710 














* 






FOR THE LAST INTERRUPT DETECTED IS 


82107720 














* 






LOGGED. <A002< 


82107730 














* 










82107740 














* 










82107750 














********************************************* 


82107760 














* 






** LOG 


CALL ** * 


82107770 






0A3E 


1 


4400 


0DE4 




BSI 


L 


LOGCL 


GO LCG COMPARE INTR* 


82107790 






0A40 





0003 






DC 




3 


WORD COUNT * 


82107790 






0A41 





0000 






DC 







HEX-DEC SW £HEX< * 


82107800 






0A42 


1 


0A3A 






DC 




AIENB 


RTRN.ADDR * 


t 82107810 






0A43 





A042 






DC 




/A042 


MSG.I.D. * 


t 82107820 






0A44 





0104 






DC 




/0104 


BYPASS BITS * 


82107830 






0A45 


1 


08C4 






DC 




LGDSW 


ADDR OF CMP DSW * 


82107840 






0A46 


1 


0E3C 






DC 




AILGS 


ADDR OF LOG REQST * 


82107850 






0A47 


1 


0B4B 






OC 




AICYR 


ADDR OF CYCLE CNTR * 


82107860 














********************************************* 


82107870 














* 










82107880 






0A48 


1 


OCOO 


099 A 


AILCL 


XIO 


L 


ROOSW 


READ DSW 


82107890 






0A4A 


1 


0400 


099A 




STO 


L 


RDDSW 


STORE DSW 


82107900 






0A4C 


1 


7400 


0<?73 




MDX 


L 


AIRCT, 


CHECK FOR RLY INTR 


82107910 






0A4E 





7028 






MDX 




A I CRY 


GO CHECK TIME 


82107920 






0A4F 


1 


7400 


0911 


A1CKB 


MDX 


L 


INTSW,0 


CHECK FOR EOT INTR 


82107930 






0A51 





702D 






MDX 




AICKT 


GO CHECK TIME 


8 210 7940 






0A52 





EODB 




AICKC 


AND 




BSYBT 


BUSY BITS 8 E 9 


82107950 






0A53 


1 


4C18 


0A5B 




BSC 


L 


AIENX, £- 


GO EVALUATE IF BSY OFF 


82107960 






0A55 


1 


7400 


09A4 




MDX 


L 


TMSSW, 


CHECK FOR TIMEOUT 


82107970 






0A57 





70A3 






MDX 




AIEXB 


BRANCH TO EXIT 


82107980 






0A58 





D003 






STO 




EROSW 


STORE BITS FOR PRINT 


82107990 






0A59 





4036 






BSI 




AIERC 


GO LOG ERROR 


82108000 






0A5A 





E007 






AND 




♦ 67 


MID FOR BSY ON 


82108010 






0A5B 


1 


C400 


0802 


AIENX 


LD 


L 


SWO 




82108020 






0A5D 





1009 






SLA 




9 




82108030 






0A5E 


1 


4C28 


0AB3 




BSC 


L 


AIEVL.&Z 


BYPASS BLAST AI 


82108040 






0A60 





1001 






SLA 




1 




82108050 






0A61 


1 


4C28 


0AB3 




BSC 


L 


AIEVL.EZ 


BYPASS BLAST OVLP CK 


82108060 






0A63 


1 


OCOO 


099C 




XIO 


L 


AIIRD 


INITIATE READ 


8 2108070 






0A65 


1 


OCOO 


099E 




XIO 


L 


AIWRT 


INITIATE WRITE 


82108080 






0A67 





4000 




* 


BSI 




AICBL 


PREVENT INTERRUPT 


82108090 
82108100 






0A68 





0000 




AICBL 


DC 









82108110 






0A69 


1 


OCOO 


099A 


BLTRP 


XIO 


L 


RDDSW 


SENSE DSW 


82108120 






0A6B 


1 


4418 


0A68 




BSI 


L 


AICBL, £- 


BRANCH IF ZERO 


82108130 






0A6D 


1 


4400 


0991 




BSI 


L 


BLAST 


BLAST AI 


82108140 






0A6F 


1 


OCOO 


099A 




XIO 


L 


RDDSW 


READ DSW 


82108150 






0A71 





4818 






BSC 




6- 


ERROR IF NOT ZERO 


82108160 






0A72 





7040 




AIEXT 


MDX 




AIEVL 


BRANCH TO EVAL 


82108170 




DATE 


28FE866 01MAY66 


01JUL66 


15DEC66 15DEC66 15DEC66 14N0V69 


PROG ID 


0821-2 


EC NO. 


415120 415120A 


415178 


421206B 421206A 421206 431319 


PAGE 


6A 
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0A73 D0B8 
0A74 401 B 
0A75 E008 
0A76 70FB 



STO 
BSI 
AND 
MDX 



0A77 
0A79 
0A7A 
0A7B 
0A7C 
0A7D 
0A7E 

0A7F 
0A81 
0A82 
0A83 
0A84 
0A85 
0A86 



0A87 
0A89 
0A8A 
0A88 
0A8C 
0A8D 
0A8E 
0A8F 



7400 09A4 

7081 

D0B1 

4014 

E004 

COAE 

70D0 

7400 09A4 

70F7 

D0A9 

400C 

E003 

C0A6 

70CB 



* 
* 

AICRY 
T 



* 
AICKT 



MDX 

MDX 

STO 

BSI 

AND 

LD 

MDX 

MDX 

MDX 

STO 

BSI 

AND 

LD 

MDX 



ERDSW SAVE ERROR DSW 

AIERC GO LOG ERROR 

*£8 MID FOR BLAST FAILING 

AIEXT BRANCH TO EXIT 



TMSSW.O CHECK FOR TIMEOUT 

AIEXB BRANCH TO EXIT 

ERDSW STORE BITS FOR PRINT 

AIERC GO LOG ERROR 

*C4 MID FOR LOST RLY INTR 

ERDSW RELOAD DSW 

AICKB 

TMSSW.O CHECK FOR TIMEOUT 

T BR TO BR TO EXIT 

ERDSW STORE BITS FOR PRINT 

AIERC GO LOG ERROR 

*£3 MID FOR LOST EOT 

ERDSW RELOAD DSW 
AICKC 



4400 0DE4 

0002 

0000 

098A 

C040 

4004 

08 78 

0880 



* 
* 
* 

* 
* 
* 
* 
* 

********************************************* 

* ** LOG CALL ** * 

LGTER BSI L LOGCL GO LOG ERROR * 

DC 2 WORD COUNT * 

DC HEX-DEC SW ?HEX< * 

DC ENDAI RTRN.ADDR * 

DC /C040 MSG.I.D. * 

DC /4004 BYPASS BITS * 

DC TIDSW ADDR OF DSW * 

DC TIERS ADDR OF ERROR SW * 



TIMER DSW ERROR CALL 

TIMER DSW ERRORS ARE LOGGED BY 
THIS CALL. AFTER LOGGING THE PROGRAM 
IS ENDED AND CONTROL RETURNED TO 
MONITOR. SC000< 



********************************************* 

* 
* 



** ERROR LOG ROUTINE ** 

THIS ROUTINE IS ENTERED WHEN EVER 
AN AI ERROR IS DETECTED. ALL ERRORS 
WHICH OCCUR DURING MAINLINE 
OPERATION HAVE AN UNIQUE ID NUMBER, 
AND EACH ONE IS OUTPUTTED UNLESS 
BYPASSED. 

ERRORS DETECTED IN INTERRUPT WILL 
BE COUNTED AND THE INFORMATION FOR 
THE LAST ONE DETECTED WILL BE OUT- 
PUTTED AFTER RETURN TO MAINLINE. 
THE 3AND3 FOLLOWING THE BSI TO 
AIERC IS THE MESSAGE ID FOR THAT 
CALL AND IS EXECUTED UPON RETURN 
FROM THE ERROR CALL. 



OA90 0000 

0A91 1 C480 0A90 

0A93 E814 

0A94 D006 



* 
* 
* 

* 

* 
* 
* 

* 
* 
* 
* 
* 
* 
AIERC DC 

LD I AIERC LOAD HID 

OR H0040 

STO ERMID STO IN ERROR CALL 
********************************************* 

* ** ERROR CALL ** * 



SE 



UATE 
|C NO. 



28FEB66 
415120 



01MAY66 
415120A 



01JUL66 
415178 



15DEC66 
421206B 



15DEC66 
421206A 



15DEC66 
421206 



14N0V69 
431319 



82108180 

82108190 

82108200 

82108210 

82108220 

82108230 

8 2108 240 

82108250 

82108260 

82108270 

82108280 

82108290 

82108300 

82108310 

82108320 

82108330 

82108340 

82108350 

82108360 

82108370 

82108380 

82108390 

82108400 

82108410 

82108420 

82108430 

82108440 

82108450 

82108460 

82108470 

82108480 

82108490 

82108500 

82108510 

82108520 

82108530 

82108540 

82108550 

82108 560 

82108570 

82108580 

82108590 

82108600 

82108610 

82108620 

82108630 

82108640 

82108650 

82108660 

82108670 

82108680 

82108690 

82108700 

82108710 

82108720 

82108730 

82108740 

82108750 

82108760 

82108770 

82108780 

82108790 

82108800 

82108810 

82108820 

82108830 

821C8840 

82108850 



PROG ID 
PAGF 



0821-2 

7 





0A95 1 4400 
0A97 1 097F 


0DF3 




BSI 


L ERRCL 


GO TO ERR CALL SBRT* 


82108860 










DC 


AIERL 


LOOP ERROR ENTRY * 


82108870 






0A98 0005 






DC 


5 


WORD COUNT * 


82108880 






0A99 0000 






OC 





HEX-DEC SW *HEX< * 


82108890 






0A9A 1 0AA2 






DC 


ERCAI 


RTRN.ADDR. * 


* 82108900 






0A9B 0000 




ERMID DC 





MESSAGE ID * 


82108910 






0A9C 1080 






DC 


/1080 


BYPASS BITS * 


82108920 






0A9D 1 0A90 






DC 


AIERC 


ADDR OF CALLING RTN* 


92108930 






0A9E 1 0A2C 






DC 


ERDSW 


ADDR OF DSW * 


82108940 






0A9F 1 0920 






DC 


LMDSW 


INTR ERROR DSW ADDR* 


821C8950 






OAAO 1 0A2B 






DC 


AIERS 


ERROR SW * 


82108960 






0AA1 1 0B48 






DC 


AICYR 


CYCLE COUNTER * 


82108970 










********************************************* 


82108980 






0AA2 1 6E00 


0A2B 


ERCA1 


t STX 


L2 AIERS 


RESET ERROR SW 


82108990 






0AA4 1 6E00 


092 




STX 


L2 LMDSW 


RESET INTR DSW 


82109000 






0AA6 1 4C80 


0A90 




BSC 


I AIERC 


EXIT ROUTINE SX 


82109010 






0AA8 0040 




H004C 

* 
* 


l DC 


/0040 


CONSTANT 


$ 82109020 
8 210.9030 
















82109040 










* 






SETUP ERROR CALL 


82109050 










* 








82109060 










* 




SETUP 


ERROR IS LOGGED BY THIS CALL. 


82109070 










* 




AFTER 


LOGGING CONTROL IS TRANSFERRED 


l 82109080 










* 




TO THE DATA ENTRY ROUTINE. 


82109090 










* 








82109100 










♦ 








82109110 










********************************************* 


82109120 










* 






** LOG CALL ** * 


82109130 






0AA9 1 4400 


0DE4 


LSUER 


BSI 


L LOGCL 


GO LOG ERROR * 


82109140 






OAAB 0002 






DC 


2 


WORD COUNT * 


82109150 






OAAC 0000 






DC 





HEX-DEC SW ?HEX< * 


82109160 






OAAD 1 0E4D 






DC 


AIDER 


RTRN.ADDR. 


* 82109170 






OAAE E050 






OC 


/E050 


MSG.I.D. 


$ 82109180 






OAAF 2000 






DC 


/2000 


BYPASS BIT * 


3 2 1 09 190 






OABO 1 0C9B 






DC 


AIWC1 


EVL ADDR CNT ADDR * 


82109200 






0AB1 1 083E 




* 


DC 


AIWC 


ADDR WD CNT ADDR * 

* 


82109210 
87109220 










********************* **************** **** $s ft * 


82109230 










* 








82109240 










* 








821.09250 










'■' 






DATA EVALUATION SEQUENCE 


3 2109 260 










* 








82109270 










* 




THIS SEQUENCE IS ENTERED AFTfR EACH 


82109280 










* 




THIS ROUTINE IS ENTERED AFTER EACH 


82109290 










* 




CYCLE 


TO EVALUATE, SORT ANO SAVE 


82109300 










* 




THE INPUT DATA FOR THE CALCULATIONS. 


82109310 










* 




DATA WHICH IS NOT WITHIN THE LIMITS 


82109320 










* 




TO BE 


SAVED FOR CALCULATIONS IS 


82109330 










* 




OUTPUTTED FOR IMMEDIATE OBSERVATION. 


82109340 










* 




THIS OUTPUT MESSAGE CAN BE 


82109350 










* 




BYPASSED. 


82109360 










* 








8 2109 370 






0AB2 0000 




AIWKJ 
* 

* 


DC 





WORK AREA - J 


82109380 
82109390 
82109400 






0AB3 1 C400 ( 


3A2B 


AIEVL 


LD 


L AIERS 


LD ERROR SW 


82109410 






0AB5 1 4420 1 


3A90 




BSI 


L AIERC, 


Z GO LOG ERROR 


82109420 






0AB7 EOOO 






AND 


*eo 


MID FOR INTR ERROR 


82109430 










********************************************* 


82109440 










* 




** i 


RELEASE AI ** * 


82109450 






0AB8 4480 0132 




BSI 


I RELDV 


GO TO RELEASE AI * 


82109460 






OABA 1 0811 






DC 


EDIT 


ADDR OF AI DEV DEF * 


82109470 






OABB 1 0812 






DC 


EDIT&l 


ADDR OF CMP DEV DEF* 


82109480 






0A8C 1 080A 






DC 


TERM 


ADDR OF TERMINATOR * 


82109490 










**************************************** ***** 


82109500 






OABO 6100 






LDX 


1 




821-09510 






OABE 1 C400 0815 


AIEV1 


LD 


L A I MOD 


LD ADC MOD SWITCH 


82109520 


t 




OACO 1090 






SLT 


16 


SET CARRY ZERO Q 


82109530 




DATE 


28FEB66 01MAY66 


01JUL66 


15DEC66 


15DEC66 15DEC66 14N0V69 


PROG ID 


0821-2 


EC NO. 


415120 415120A 


415178 


421206B 


421206A 421206 431319 


PAGE 


7A 



F 
M 
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0AC1 1 C580 OCBE 




LD 


11 


AIDTA 


LD VALUE READ 


82109540 






0AC3 1 4C04 0B05 




BSC 


L 


AIOVL, E 


BR IF OVERLOAD 


82109550 






0AC5 1 4402 0979 




BSI 


L 


MKPOS.C 


BR IF CARRY ON 


82109 560 






0AC7 1 D580 OCBE 




STO 


11 


AIDTA 


RESTORE NEW VALUE 


82109570 






0AC9 1881 
OACA D0E7 




SRT 

STO 




1 
AIWKJ 


SAVE VALUE READ 


82109580 
82109590 






OACB 1890 




SRT 




16 


SHIFT RDNG TO Q 


82109600 






OACC 1 8D80 0E93 




AD 


11 


AISUM 


TO BE ADDED TO SUM 


82109610 






OACE 1 0D80 0E93 




STD 


11 


A I SUM 


TOTAL OF GOOD RDGNS 


82109620 






OADO 1 C500 OEFE 




LD 


LI 


AIGRD 


**** 


82109630 






0AD2 807B 




A 




AIONE 


ADD 1 TO GRDING CTR* 


82109640 






0AD3 1 D500 OEFE 




STO 


LI 


AIGRD 


**** 


82109650 






0AD5 10A0 




SLT 




32 


CLEAR A t 


82109660 






0AD6 CODB 




LD 




AIWKJ 


LO VALUE READ 


82109670 






0AD7 1 9500 081D 




S 


LI 


AIPRC 


SUBT PREC READING 


82109680 






0AD9 D029 




STO 




MDY04S1 


SAVE DIFFERENCE 


82109690 






OADA 1 4428 0979 




BSI 


L 


MKPOS.SZ 


GO TO MAKE POSITIVE 


82109700 






OAOC 1 9400 0C1C 




S 


L 


FTFOR 


SUBT TABLE LIMIT 


82109710 






OADE 1 4C08 OAFE 




BSC 


L 


AICNC, e 


BR IF WITHIN LIMIT 


82109720 






OAEO 1 C500 0F03 




LD 


LI 


AIOTR 


LD OUT OF TABLE CNTR 


82109730 






0AE2 806B 




A 




AIONE 


ADD 1 TO OTC 


82109740 






0AE3 1 D500 0F03 




STO 


LI 


AIOTR 


SET OTC # 0TCE1 


82109750 






0AE5 1 C500 0817 




LD 


LI 


AIMPX 




82109760 






0AE7 4076 




BSI 




AIMPC 




82109770 






0AE8 1 C500 081D 




LD 


LI 


AIPRC 




82109780 






OAEA D06E 




STO 




AIWKHS1 


SAVE PREC RDNG 


82109790 






OAEB 1 C500 0824 




LD 


LI 


RANGE 




82109800 






OAED D06F 




STO 




AIWKE 


SAVE FOR LOG 


82109810 






OAEE C0C3 




LD 




AIWKJ 


LD VALUE READ 


82109820 






OAEF 1 4400 0CA2 




BSI 


L 


AIDCN 


GO TO DEC CNVRT RTN 


82109830 








********************************************* 


82109840 








* 






** LOG 


CALL ** * 


82109850 






0AF1 1 4400 0DE4 




BSI 


L 


LOGCL 


GO TO LOG CALL SBRT* 


82109860 






0AF3 0006 




DC 




6 


WORD COUNT * 


82109870 






0AF4 1001 


AIHXS 


DC 




/1001 


HEX-DEC SW *DEC< * 


82109880 






OAF 5 1 OBOA 




DC 




AIZX1 


RTRN.ADDR * $ 


82109890 






0AF6 A041 




DC 




/A041 


MSG.I.D. * $ 


82109900 






OAF 7 0804 




DC 




/0804 


BYPASS BITS * 


82109910 






0AF8 1 OB 58 




DC 




AIWKH 


MPX ADDRESS * 


82109920 






0AF9 1 0B59 




DC 




AIWKHE1 


PREC VALUE * 


82109930 






OAFA 1 0AB2 




DC 




AIWKJ 


VALUE READ *DEC< * 


82109940 






OAFB 1 0CC6 




DC 




AIWKL 


VALUE READ *VOLT< * 


82109950 






OAFC 1 0CC7 




OC 




AIWKLS1 


VALUE READ *VOLT< * 


82109960 






OAFD 1 0B4B 




DC 




AICYR 


CYCLE COUNTER * 


82109970 








********************************************* 


82109980 








* 










82109990 






OAFE C004 


AICNC 


LD 




MDY0461 


LOAD DIFFERENCE 


82110000 






OAFF 1 8500 0E98 




A 


LI 


AISPT 


ADD SPT ADDR TO DIFF 


82110010 






0801 D001 




STO 




MDY04&1 


SET ADDR OF RD CNT PR01 


82110020 






0B02 7401 0000 


MDY04 


MDX 


L 


0,1 


SET RD CNT#RD CNT£1 PM01 


82110030 






0B04 7005 




MDX 




AIZX1 


BRANCH 


82110040 






0B05 I C500 0F08 


AIOVL 


LD 


LI 


AIOVC 


**** 


82110050 






0B07 8046 




A 




AIONE 


ADO 1 TO OVLD CNTR * 


82110060 






0808 1 D500 OF08 




STO 


LI 


AIOVC 


**** 


82110070 






OBOA 7101 


AIZX1 


MDX 


1 


1 




82110080 






OBOB 6948 




STX 


1 


AIWKF 


STO XI IN WK AREA 


82110090 






OBOC C047 




LD 




AIWKF 


LD WK AREA 


82110100 






OBOO 1 F400 0C9B 




EOR 


L 


AIWC1 


EOR NUMBER OF POINTS 


82110110 






OBOF 1 4C20 OABE 




BSC 


L 


AIEV1.Z 


BR TO CK NEXT PT 


82110120 






0B11 6100 




LDX 


1 





RESET INDEX # 


82110130 






0B12 1 C400 0822 




LD 


L 


AIAPR 


LD AUTO PREC SW 


82110140 






0B14 1 4C18 0B22 




BSC 


L 


AI0A4,£- 


BR IF SW # OFF 


82110150 






0B16 1 6780 0C9B 




LDX 


13 


AIWC1 


COMPARE # 


82110160 






0B18 1 C780 OCBD 


AISPR 


LD 


13 


AIDTA-1 


LOAD VALUE READ 


82110170 






0B1A 1881 




SRT 




1 




82110180 






0B1B 1 D700 081C 




STO 


L3 


AIPRC-1 


SET INTO PREC TBL 


82110190 






0B1D 73FF 




MDX 


3 


-1 


SUBT 1 FROM INDEX 


82110200 






0B1E 70F9 




MDX 




AISPR 


BRANCH 


82110210 




OATE 


28FEB66 01MAY66 


01JUL66 


15DEC66 15DEC66 15DEC66 14N0V69 


PROG ID 


0821-2 


EC NO. 


415120 415120A 


415178 


421206B 421206A 421206 431319 


PAGE 


8 





0B1F 1010 
0B20 1 D400 0822 




SLA 

STO 


L 


16 
AIAPR 


ZERO AUTO PREC SW 


82110220 
82110230 






0B22 C028 
0B23 1 F4C0 0816 


AI0A4 LO 
EOR 


L 


AICYR 
AICYC 


LD CYCLE COUNT 


82110240 
82110250 
82110260 






0B25 1 4C20 0967 


AI0A5 BSC 


L 


AIRAC.Z 


BRANCH IF MORE CYCLES 








* 










82110270 
















82110280 








* 






PERCENT CONSTANT SETUP 


82110290 








* 
* 






SEQUENCE 


82110300 
















82110310 








* 
* 






CONSTANT * 99.7 PCENT OF CYCLES 


82110320 






0B27 C023 


LD 




AICYR 


LD NO OF CYCLES 


82110330 
82110340 






0B28 A031 
0B29 A822 
0B2A D024 




M 
D 
STO 




C0997 
AlOOO 
P9970 


MULT BY 99.7 PERCENT 
STORE CONSTANT 


82110350 
82U0360 
82110370 






0B2B 1090 




SLT 




16 


SHIFT REM TO A 


82110380 






0B2C 1 4C18 0B30 




BSC 


L 


*62,6- 


CHECK FOR FRACTION 


8 2110390 






082E I 7401 0B4F 


* 
* 


MDX 


L 


P9970.1 


ADD 1 FOR FRACTION 


82110400 
82110410 
82110420 








* 






DATA CALCULATION SEQUENCE 


82110430 








* 










82110440 








* 






THIS SEQUENCE IS ENTERED WHEN THE 


82110450 








* 






SPECIFIED 


NUMBER OF CYCLES IS 


82110460 








* 






COMPLETED, 


. THE CALCULATIONS PERFORMED 82110470 








* 






IN THIS SEQUENCE ARE. MEAN, VOLTAGE 


82110480 








* 






MEAN, ACCURACY PERCENT, AND 


82110490 








* 






REPEATABILITY PERCENT. 


82110500 








* 










82110510 






0B30 1 C500 0817 


* 
AIYP1 


LD 


LI 


AIMPX 


LD MPX ADDR 


82110520 
82110530 






0B32 402B 




BSI 




AIMPC 




82110540 






0B33 1 C500 0824 




LD 


LI 


RANGE 


LOAO RANGE 


82110550 






0B35 0027 




STO 




AIWKE 


SAVE RANGE 


82110560 






0B36 1 C500 081D 




LD 


LI 


AIPRC 




82110570 






0B38 1 4400 OCA? 




BSI 


L 


AIDCN 


GO TO DEC CNVRT RT 


82110580 






0B3A 1 C500 0810 




LD 


LI 


AIPRC 


^ 


82110590 






0B3C A01F 
0B3Q D818 




M 
STD 




TEN 
AIWKG 


SAVE PREC READING 


8211C600 
82110610 








**************** ***************************** 


82110620 








* 






** LOG 


CALL ** * 


82110630 






0B3E 1 4400 00E4 




BSI 


L 


LOGCL' 


GO TO LOG CALL SBRT* 


82110640 






0B40 0006 




DC 




6 


WORD COUNT * 


82110650 






0B41 2801 




DC 




/2801 


HEX-DEC SW *OEC< * 


82110660 






0B42 1 0B6B 




DC 




AI3 


RETURN ADDR * 


82110670 






0B43 0001 




DC 




/D001 


MESSAGE 10 * 


82110680 






0844 0204 




DC 




/0204 


BYPASS BITS * 


82110690 






0B45 1 0B58 




DC 




AIWKH 


POINT NO * 


82110700 






0B46 1 0B5D 




DC 




AIWKE 


RANGE * 


82110710 






0B47 1 0B56 




DC 




AIWKG 


PRECISION READING * 


82110720 






0B48 1 0B57 




DC 




AIWKGE1 


PRECISION READING * 


82110730 






0B49 1 0CC6 




DC 




AIWKL 


DECIMAL VALUE * 


82110740 






0B4A 1 0CC7 




DC 




AIWKLS1 


OECIMAL VALUE * 


82110750 








********************************************* 


82110760 








* 










82110770 








* 










82110780 






0B4B 0000 


AICYR 


DC 







CYCLE COUNTER 


82110790 






0B4C 03E8 


AlOOO 


DC 




1000 


CONSTANT 1000 


82110800 






0B4D 4000 


AIRSC 


DC 




/4000 


CONSTANT FULL SCALE 


82110810 






0B4E 0001 


AIONE 


DC 




1 


CONSTANT 1 


82110820 






0B4F 0000 


P9970 


DC 







99.70 PCENT VALUE 


82110830 






0B50 0000 0000 


VMEAN 


DEC 







MEAN IN VOLTAGE 


82110840 






0852 0000 0000 


MEAN 


DEC 







MEAN IN DIGITS 


82110850 






0B54 OOCO 0000 


AIWKF 


DEC 







WORK AREA - F 


82110860 






0B56 0000 0000 


AIWKG 


DEC 







WORK AREA - G 


82110870 






0B58 OOCO 0000 


AIWKH 


DEC 







WORK AREA - H 


82110880 






0B5A 03E5 


C0997 


DC 




997 


CONSTANT 997 


82110890 




DATE 


28FEB66 01MAY66 


01JUL66 


15DEC66 15DEC66 15DEC66 14N0V69 


PROG ID 


0821-2 


EC NO. 


415120 415120A 


415178 


421206B 421206A 421206 431319 


PAGE 


** 
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0B5B 0005 
0B5C OOOA 
0B5D 0000 



0B5E 0000 
0B5F 1003 
0B60 1 4C10 0B69 
0B62 1001 
0B63 1804 
0B64 1 8400 0C9F 
0B66 D0F1 
0B67 1 4C80 0B5E 
0B69 1803 
0B6A 70FB 



0B6B 1 CD80 0E93 
0B6D 1 AOOO OEFE 
0B6F D8E8 

AOEB 

D8E0 
0B72 C0E6 
OB73 A0E8 
0B74 1 ADOO OEFE 

1890 

880A 

D8D9 



0B70 
0B71 



0B76 
0B77 
0B78 



FIVE DC 
TEN DC 
AIWKE DC 

* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 

AIMPC DC 
SLA 
BSC 
SLA 

SRA 
A 

STO 
BSC 

AIMP1 SRA 
MDX 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

A 1 3 LDD 
D 

STD 
M 

STD 
LD 
M 
D 

SRT 
AO 
STO 

* 
* 
* 
* 
* 

* 
* 
* 
* 

* 
* 
* 
* 

* 
* 



5 

10 





CONSTANT FIVE 
WORK AREA - E 

** CONVERT MPX AODR ROUTINE ** 



THIS ROUTINE CONVERTS THE HEX MPX 

ADDR TO THE FORM TO BE OUTPUTTED 

- 9999 # RLY ADDRESS 

10000 - UP # SS ADDRESS 

THIS IS USED ONLY IN THE OUTPUT 

MESSAGE. 



SAVE POINT NO 





3 

AIMP1,- 

1 

4 

TENTH 

AIWKH 

AIMPC 

3 

AIMP1-3 



MEAN CALCULATION 
ALGORITHM 

SUM/GRD # Rl £ Nl 

Nl X 10 # N2 

Rl X 10/GRD # N3 

N2 £ N3 # MEAN X 10 



SI 



SX 



II AISUM 
LI AIGRD 

AIWKH 

TEN 

MEAN 

AIWKHC1 

TEN 
LI AIGRD 

16 

MEAN 

MEAN 



SUM OF READINGS 

/ NO OF GOOD READINGS 

# Nl £ Rl 
X 10 

# N2 
Rl 

X 10 

/ GOOD READINGS # N3 



6 N2 

# MEAN X 



10 



TE 



VMEAN CALCULATION 
ALGORITHM 

SUM/GRD # Nl S Rl 

RANGE X 10000/RSC # N2 £ R2 

N2 X 10 # N3 

N3 X Nl # N6 

Nl X R2/RSC # N4 £ R3 

N4 X 10 # N7 

N2 X Rl/GRD # N5 £ R4 

N5 X 10 # N8 

R3 X 10/RSC * N9 

R4 X 10/GRD # N10 

N6 £ N7 £ N8 E N9 £ N10 # VMEAN IN 

RMS OF INPUT RANGE SXXX.XXXXX< 



0B79 C0E3 
0B7A 1 A400 0C9F 



LO 
M 



AIWKE 
TENTH 



LOAD RANGE 
X 10000 



82110900 

82110910 

82110920 

82110930 

82110940 

82110950 

82110960 

82110970 

82110980 

82110990 

82111000 

82111010 

82111020 

82111030 

82111040 

82111050 

82111060 

82111070 

82111080 

82111090 

82111100 

82111110 

82111120 

82111130 

82111140 

82111150 

82111160 

82111170 

82111180 

82111190 

82111200 

82111210 

82111220 

82111230 

82111240 

82111250 

82111260 

82111270 

82111280 

82111290 

82111300 

82111310 

82111320 

82111330 

82111340 

82111350 

82111360 

82111370 

82111380 

82111390 

82111400 

82111410 

82111420 

82111430 

82111440 

82111450 

82111460 

82111470 

82111480 

82111490 

82111500 

82111510 

82111520 

82111530 

82111540 

82111550 

82111560 

82111570 



0B7C 

0B70 

0B7E 

0B7F 

0B80 

0B81 

0B82 

0B83 

0B84 

0B85 

0B86 

0B87 

0B88 

0B89 

0B8A 

0B8B 

0B8D 

0B8E 

0B8F 

0B90 

0B91 

0B92 

0B93 

0B94 

0B95 

0B96 

0B97 

0B98 

0B99 

0B9B 

0B9C 

0890 

0B9E 

0B9F 

OBAO 

0BA2 

0BA3 

0BA4 

0BA5 

0BA6 

0BA7 

0BA9 

OBAA 

OBAB 

OBAD 

OBAE 

OBAF 

OBBO 

0BB2 

0BB3 

0BB4 

0BB5 

0BB6 

08B7 

0BB9 

OBBA 

OBBB 

OBBC 

OBBD 



A8D0 
D8D6 
AODD 
1090 
A0D7 
08D4 
C0D5 
A0D1 
A8C8 
08CA 
A005 
88CE 
D8CD 
COCA 

AOCE 

1 AOOO OEFE 
D8C6 
AOCD 
88C6 
D8C5 
COBF 
A0C9 
A8B9 

1890 
88C0 

D8BF 

COBD 

A0C3 

ADOO OEFE 

1890 
8889 
08 B2 
C8B3 

D878 

1 4428 0*79 
A8B8 
80AA 
1881 
OOBO 

C071 

1 4C10 OBAE 

10A0 
COAB 

4400 0979 
00A8 
C0A7 
D070 

1 9500 0810 
4071 
C06A 
D062 
C063 

D064 

1 C500 081D 
0066 
A0A1 
D85C 
1010 
4066 





STD 
M 

SLT 
M 

STD 
LD 
M 


STD 
M 

AD 
STD 
LD 
M 


STD 
M 

AO 
STD 
LD 
M 


SRT 
AD 
STD 
LD 
M 
D 

SRT 
AD 
STD 
LDD 
STD 
3SI 
D 
A 

SRT 
STO 
LD 
BSC 
SLT 
LD 
BSI 
STO 
AISRX LD 
STO 
S 

BSI 
LD 
STO 
LD 
STO 
LD 
STO 
M 

STD 
SLA 
BSI 



AIRSC 
AIWKF 
TEN 
16 

AIWKH 
AIWKG 
AIWKH 
AIWKFE1 
AIRSC 
VMEAN 
TEN 
AIWKG 
AIWKG 
AIWKF 
AIWKHE1 
LI AIGRO 
AIWKF 
TEN 
AIWKG 
AIWKG 
VMEANS1 
TEN 
AIRSC 
16 

AIWKG 
AIWKG 
AIWKFG1 
TEN 
LI AIGRD 
16 

AIWKG 
VMEAN 
MEAN 
AIWKD 
L MKPOS.SZ 
FIVE 
AIONE 
1 

AIWKG 
AIWKD 
L AISRX, - 
32 

AIWKG 
L MKPCS 
AIWKG 
AIWKG 
AIRAX 
LI AIPRC 
PCENT 
AIMCT 
AIWKA£1 
AIWKDG1 
AIWKC 
LI AIPRC 
AIRAX 
TEN 
AIWKO 
16 
PCENT 



/ FULL SCALE 

# N2 £ R2 

# N3 

X Nl 

# N6 
Nl 

X R2 

/ FULL SCALE 



* N4 

* N7 
£ N6 

* N6 
N2 

X Rl 



£ R3 



£ N7 



NO OF GOOD READNGS 

N5 £ R4 

N8 

N6 

N6 



N7 

N7 S N8 



OBBE 1 4400 0DE4 

OBCO 0006 

0BC1 2801 

0BC2 1 OBCB 

0BC3 D001 

0BC4 02C4 

0BC5 1 0C19 



*********************** 

* ** LOG 

BSI L LOGCL 

DC 6 

DC /2801 

DC AI4 

DC /D001 

DC /0204 

DC AIWKDE1 



/ 
# 

£ 
* 

R3 

X 10 

/ FULL SCALE # N9 

£ N6 £ N7 £ N8 

* N6 £N7 £N8 £N9 
R4 

X 10 

/ GOOO READNGS * N10 

£ N6 £N7 £N8 £N9 

# MEAN IN VOLTS 
ID MEAN VALUE X 10 
SAVE MEAN X 10 

GO TO MAKE POS RT 

DIVIDE BY FIVE 

ADD ONE 

DIVIDE BY TWO 

SAVE RESULT RMEAN £ 

LD MEAN X 10 

8R IF NOT NEGATIVE 

CLEAR A £ Q 

LO RMEAN POSITIVE 

GO TC MK NEGATIVE 

SAVE RESULT RMEAN - 

LD RMEAN 

SET RMEAN FOR CALC 

SUBT PREC READING 

BR TO PCENT ROUTINE 

LD DEVIATION 

SAVE DEVIATION 

LD REPEATABILITY 

SAVE REPEATABILITY 

LD PREC READING 

STO PREC READING 

STO PREC X 10 TO LOG 

BR TO PCENT ROUTINE 

******** ************** 

CALL ** * 
GO TO LOG CALL SBRT* 

WORD COUNT * 

HEX-DEC SW ?DEC< * 

RETURN ADDR * 

MESSAGE ID * 

BYPASS BITS * 

ACCURACY * 



82111580 

82111590 

82111600 

82111610 

82111620 

82111630 

82111640 

82111650 

82111660 

82111670 

82111680 

82111690 

82111700 

82111710 

82111720 

82111730 

82111740 

82111750 

82111760 

82111770 

82111780 

82111790 

82111300 

82111810 

82111820 

82111830 

82111840 

82111850 

82111860 

82111870 

82111880 

82111890 

82111900 

821U910 

32111920 

32111930 

82111940 

82111950 

82111960 

82111970 

82111980 

8 21 11990 

82112000 

82112010 

82112020 

82112030 

82112040 

82112050 

82112060 

821T2070 

82112080 

82112090 

82112100 

82112110 

82112120 

82112130 

82112140 

82112150 

82112160 

82112170 

82112180 

8 2 1 ' > 190 

82112200 

82112210 

82112220 

82112230 

82112240 

82112250 



DATE 
EC NO. 



28FEB66 

415120 



01MAY66 
415120A 



01JUL66 
415178 



15DEC66 
421206B 



15DEC66 
421206A 



15DEC66 
421206 



14N0V69 
431319 



PROG ID 
PAGE 



0821-2 
9 



OATE 
EC NO. 



28FEB66 
415120 



01MAY66 
415120A 



01JUL66 
415178 



15DEC66 
421206B 



15DEC66 
421206A 



15DEC66 
421206 



14N0V69 
431319 



PROG ID 
PAGE 



0821-2 
9A 
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0BC6 


1 


0C1B 






DC 




AIWKC 


REPEATABILITY 


* 


82112260 






0BC7 


1 


0B52 






DC 




MEAN 


MEAN IN DIGITS 


* 


82112270 






0BC8 


1 


0B53 






DC 




MEANS1 


MEAN IN DIGITS 


* 


82112280 






0BC9 


1 


0B50 






DC 




VMEAN 


MEAN IN VOLTAGE 


* 


82112290 






OBCA 


1 


0B51 






DC 




VMEANS1 


MEAN IN VOLTAGE 


* 


82112300 














********************************************* 


82112310 






OBCB 


1 


C500 


0F08 


AI4 


LD 


LI 


AIOVC 






82112320 






OBCD 





D04D 






STO 




AIWKC 


SAVE OVERLOAD CNTR 




82112330 






OBCE 


1 


C500 


0F03 




LD 


LI 


AIOTR 






82112340 






OBDO 





D047 






STO 




AIWKD 


SAVE OUT OF TBL CNTR 


82112350 














********************************************* 


82112360 














* 






** LOG 


CALL ** 


* 


82112370 






OBDl 


1 


4400 


0DE4 




BSI 


L 


LOGCL 


GO TO LOG CALL SBRT* 


82112380 






0BD3 





0006 






DC 




6 


WORD COUNT 


* 


82112390 






0BD4 





0001 






DC 




/0001 


HEX-DEC SW %DEC< 


* 


82112400 






0BD5 


1 


OBDE 






DC 




AI5 


RETURN ADDR 


* 


82112410 






0BD6 


c 


D001 






DC 




/D001 


MESSAGE ID 


* 


82112420 






0BD7 





0204 






DC 




/0204 


BYPASS BITS 


* 


82112430 






0BD8 


1 


0C1E 






DC 




AIMCT 


ACCURACY DEVIATION 


* 


82112440 






0BD9 


1 


0C17 






DC 




AIWKAE1 


REPEATABILITY DVTN 


* 


82112450 






OBOA 


1 


0823 






DC 




AIFRS 


RESOLUTION 


* 


82112460 






OBDB 


1 


0816 






DC 




AICYC 


CYCLES 


* 


82112470 






OBDC 


1 


OCIB 






DC 




AIWKC 


OVERLOAD COUNTER 


* 


82112480 






OBDD 


1 


0C18 






DC 




AIWKD 


OUT OF TBL COUNTER 


* 


82112490 














********************************************* 


82112500 






OBDE 





C041 




AI5 


LD 




AIRAX 


LD PREC READING 




82112510 






OBDF 





803C 






A 




FTFOR 


ADD 54 




82112520 






OBEO 





D03D 






STO 




AIMCT 


SET HIGH TBL VALUE 




82112530 






0BE1 





7101 






MDX 


I 


I 


SET XI # X1C1 




82112540 






0BE2 





693C 






STX 


I 


AITCN 


STORE XI IN WORK AREA 


82112550 






0BE3 





61 6C 






LDX 


1 


108 


SET XI # 108 




82112560 






0BE4 





C500 


0000 


AIRTB 


LD 


LI 





LD CNT FROM TBL 


PM01 


82112570 






0BE6 


1 


4C18 


08F7 




BSC 


L 


AINXT, -C 


BR IF COUNT # 




82112580 






0BE8 





D031 






STO 




AIWKB 


SAVE COUNT 




82112590 






0BE9 





C034 






LD 




AIMCT 






82112600 






OBEA 


1 


4400 


0CA2 




BSI 


L 


AIDCN 


GO TO DEC CNVRT RT 




82112610 














********************************************* 


82112620 














* 






** LOG 


CALL ** 


* 


82112630 






OBEC 


1 


4400 


00E4 




BSI 


L 


LOGCL 


GO TO LOG CALL SBRT* 


82112640 






OBEE 





0004 






DC 




4 


WORD COUNT 


* 


82112650 






OBEF 





8001 






DC 




/0001 


HEX-DEC SW %DEC< 


* 


82112660 






OBFO 


1 


0BF7 






DC 




AINXT 


RETURN ADDR 


* 


82112670 






0BF1 





D001 






DC 




/D001 


MESSAGE ID 


* 


82112680 






0BF2 





0604 






DC 




/0604 


BYPASS BITS 


* 


82112690 






0BF3 


1 


0CC6 






DC 




AIWKL 


DECIMAL VALUE 


* 


82112700 






0BF4 


1 


0CC7 






DC 




AIWKLS1 


DECIMAL VALUE 


* 


82112710 






08F5 


1 


0C1E 






DC 




AIMCT 


VALUE 


* 


82112720 






0BF6 


1 


0C1A 






DC 




AIWKB 


COUNT 


* 


82112730 














********************************************* 


82112740 






0BF7 


I 


74FF 


0C1E 


AINXT 


MDX 


L 


AIMCT, -1 


SUBT 1 FROM VALUE 




82112750 






0BF9 


c 


1000 






SLA 







WILL SKIP THRU ZERO 


82112760 






OBFA 





71FF 






MDX 


I 


-1 


SKIP IF XI * 




82112770 






OBFB 





70E8 






MDX 




AIRTB 


BRANCH 




82112780 






OBFC 


1 


6E00 


0E48 




STX 


L2 


LNCNT 


RESET LINE CNTR 




82112790 






OBFE 


1 


6580 


0C1F 




LDX 


11 


AITCN 


RESTORE XI 




82112800 






OCOO 





C01E 






LD 




AITCN 


LD WK AREA 




82112810 






0C01 


1 


F400 


0C9B 




ECR 


L 


AIWC1 


EOR NUMBER OF POINTS 


82112820 






0C03 


1 


4C20 


0B30 




BSC 


L 


AIYP1.Z 


BR TO CALC NEXT PNT 


82112830 






0C05 


1 


C400 


0804 




LD 


L 


SW2 


LOAD SW WORD 2 




82112840 






0C07 


1 


4C20 


0967 




BSC 


L 


AIRACZ 


INSURE DATA ENTRY 




82112850 






0C09 





4C80 


012E 




BSC 


I 


END 


EXIT TO MONITOR END 


82112860 














* 












82112870 














* 












82112880 






OCOB 





0000 




AICLM 


DC 









SE 


82112890 






OCOC 





9010 






S 




STRAD 






82112900 






OCOO 





8012 






A 




AIRAX 






82112910 






OCOE 





A06B 






M 




AITEN 






82112920 






OCOF 





98C8 






SD 




AIWKD 






82112930 




DATE 


28FEB66 I 


31MAY66 


01JUL66 


15DEC66 15DEC66 15DEC66 14N0V69 


PROG ID 


0821-2 


EC NO. 


415120 


415120A 


415178 


421206B 421206A 421206 431319 


PAGE 


10 





0C10 


1 4428 


0979 




BSI 


L 


MKPOS, 


ez 






82112940 






0C12 


1090 






SLT 




16 








82112950 






0C13 


1 4C80 


OCOB 


* 
* 


BSC 


I 


AICLM 




EXIT 


SX 


82112960 
82112970 
82112980 






0C15 


006C 




AI108 


DC 




108 




CONSTANT 108 




82112990 






0C16 


0000 


0000 


AIWKA 


DEC 









WORK AREA - A 




82113000 






0C18 


0000 


0000 


AIWKD 


DEC 









WORK AREA - 




82113010 






OCIA 


0000 




AIWKB 


DC 









WORK AREA - B 




82113020 






OCIB 


0000 




AIWKC 


DC 









WORK AREA - C 




82113030 






0C1C 


0036 




FTFOR 


DC 




54 




CONSTANT 54 




82113040 






OCID 


0000 




STRAD 


DC 









INITIAL ADDRESS 




82113050 






0C1E 


0000 




AIMCT 


DC 









POSITIVE M CNTR 




82113060 






0C1F 


0000 




AITCN 


DC 









COUNTER 




82113070 






OC20 


0000 




AIRAX 


DC 









MEAN OR PREC RDNG 




82113080 






0C21 


7000 




AC0N1 


MDX 




* 




BRANCH CONSTANT -NOP 




82113090 






0C22 


701E 




AC0N2 


MDX 


X 


HIINC- 


BRLOC-1 BRANCH CONSTNT 




82113100 






0C23 


7021 




AC0N3 


MDX 


X 


LOINC- 


BRLOC-1 BRANCH CONSTNT 




82113110 












* 














82113120 












* 














82113130 












* 








PERCENT SUBROUTINE 




82113140 












* 














82113150 












* 






THIS SUBROUTINE PERFORMS THE TABLE 


82113160 












* 






SEARCHES 


ANO CALCULATES THE PERCENT 


82113170 












* 






ACCURACY 


AND PERCENT REPEATABILITY. 


82113180 












* 














82113190 












* 














82113200 












* 














82113210 






0C24 


0000 




PCENT 


OC 











SE 


82113220 






0C25 


1 8500 


0E98 




A 


LI 


AISPT 




SET UP STARTING 




82113230 






0C27 


D0F5 






STC 




STRAD 




ADDRESS 




82113240 






0C28 


D0F1 






STO 




AIWKB 




SAVE INITIAL ADDR 




82113250 






0C29 


1 D400 


0CC4 




STO 


L 


AIWKI 








82113260 






0C2B 


10A0 






SLT 




32 




INITIALIZE COUNTERS 




82113270 






0C2C 


08F1 






STD 




AIMCT 








82113280 






0C20 


I C500 


0E98 




LD 


LI 


AISPT 




FIND AND STORE 




82113290 






0C2F 


90 EC 






S 




FTFOR 




HI ANO LO ADDR 




82113300 






0C30 


D0B4 






STO 




AIRTBtl 


LIMITS OF TABLE 


PR01 


82113310 






0C31 


80E3 






A 




Alice 




in use 




82113320 






0C32 


D06E 






STO 




PAODR 








82113330 






0C33 


COED 






LD 




AC0N1 




INITALIIE BRANCH 




82113340 






0C34 


D010 






STO 




BRLOC 




INSTRUCTION 


PR06 


82113350 






0C35 


6200 






LDX 


2 







INITIALIZE X2 # 




82113360 






0C36 


4033 




AICHG 


BSI 




WAWTC 




GO TO CHECK LMT X2 # 





82113370 






0C37 


1 C480 


OCIA 




LD 


I 


AIWKB 




LD COUNT FROM TABLE 




82113380 






0C39 


80E5 






A 




AITCN 




ADO TO COUNT SUM 




82113390 






0C3A 


D0E4 






STO 




AITCN 




SAVE TOTAL 




82113400 






0C3B 


1 9400 


0B4F 




S 


L 


P9970 








82113410 






0C30 


1 4C10 


0C80 




BSC 


L 


AIMBRt 




BR IF TOTAL # 99.7 PCNT 


82113420 






0C3F 


1 C480 


OCIA 




LD 


I 


AIWKB 








82113430 






0C41 


1 4C08 


0C45 




BSC 


L 


BRLOC i 


,6 


BR IF CNT # 




82113440 






0C43 


C0D6 






LD 




AIWKB 








82113450 






0C44 


D07F 






STC 




AIWKI 








82113460 






0C45 


7000 




BRLOC 


MDX 




* 




MDX WILL CHANGE NOP-! 


BR 


82113470 






0C46 


1 7401 


OCIE 




MDX 


L 


AIMCT, 


1 


AOD 1 TO INC WORD 




82113480 






0C48 


C0D5 






LD 




AIMCT 








82113490 






0C49 


4804 






BSC 




E 




SKIP IF INC WORD EVEN 


82113500 






0C4A 


7003 






MDX 




MDY05 




BRANCH 




82113510 






0C4B 


COCE 






LD 




AIWKB 








82113520 






0C4C 


80D1 






A 




AIMCT 




ADD INC WORD TO STRT 


AD 


82113530 






0C4D 


7002 




* 


MDX 




MDY06 




BRANCH 




82113540 
82113550 






0C4E 


COCB 




M0Y05 


LD 




AIWKB 








82113560 






0C4F 


90CE 






S 




AIMCT 




SUBT INC WD FROM STRT AD 


82113570 






0C50 


D0C9 




MDY06 


STO 




AIWKB 




SET NEXT TBL WORD ADDR 


82113580 






0C51 


6201 






LDX 


2 


1 








82113590 






0C52 


4017 






BSI 




WAWTC 




GO CHECK LMT X2 # 1 




82113600 






0C53 


70E1 






MDX 




AICHG- 


-1 


BRANCH 




82113610 




DATE 


28FEB66 I 


31MAY66 


01JUL66 


15DEC66 


15DEC66 15DEC66 14N0V69 


PROG ID 


0821-2 


EC NO. 


415120 


U5120A 


415178 


421206B 


421206A 421206 431319 


PAGE 


10A 
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AI DC RANDOM FUNCTION TEST 



PART NO. 2196390 
PAGE . ua 



0C54 
0C55 
0C56 
0C57 
0C58 
0C59 



0C5A 1 



0C5C 
0C50 
0C5E 
0C5F 
0C60 
0C61 
0C62 



0000 
COCC 
DOEE 
C0C2 
90C5 
DOCO 
4C80 0C54 

0000 
C0C5 
D0E6 
COBA 

80BD 
D0B8 
1 4C80 OC?C 



0C64 1 74FF 0C1A 
0C66 70CE 

0C67 1 7401 0C1A 
0C69 70CB 



0C6A 0000 
0C6B COAE 

0C6C 9034 

0C60 1 46B0 0C76 

0C6F COAA 

0C70 1 9400 0BE5 

0C72 1 46A8 0C78 

0C74 1 4C80 0C6A 

0C76 1 0C7B 

0C77 1 0C54 

0C78 1 0C7B 

0C79 1 0C5C 

0C7A OOOA 



0C7B 0000 
0C7C C822 
0C7D D89A 
0C7E D09F 
0C7F 7019 



0C80 C099 
0C81 4089 
0C82 009B 



HILMT DC 
LD 
STO 
LD 
S 

STO 
BSC 

* 

LOLMT DC 
LD 
STO 
LD 
A 

STO 
BSC 

HI INC MDX 

MOX 

* 

LOINC MDX 
MDX 

* 

* 

* 

* 

WAWTC DC 
LD 
S 

BSI 
LD 
S 

BSI 
BSC 
* 

AIHIL DC 
DC 

AILOL DC 
DC 

AITEN DC 

* 

AITLM DC 
LOD 
STD 
STO 

MDX 

• 

* 
* 

* 
* 

* 
* 
* 

* 
* 

* 
* 
* 
* 
* 

AIMBR LD 
BSI 
STO 





AC0N2 

BRLOC 

AIWKB 

A I MCT 

AIWKB 

HILMT 



AC0N3 

BRLOC 

AIWKB 

AIMCT 

AIWKB 

LOLMT 

AIWKB, -1 
AICHG-1 

AIWKB, 1 
AICHG-1 



SE 



SET BR CONSTANT 



SET NEXT TBL WORD ADDR 
EXIT Sx 



SE 



SET BR CONSTANT 



SET NEXT TBL WORD ADOR 
EXIT SX 

INC HIGH TBL ADDR 
BRANCH 

INC LOW TBL ADOR 
BRANCH 



WORKING ADDRESS WITHIN TBL CK 





AIWKB 

PAODR 
12 AIHIL, -I 

AIWKB 
L AIRTBS1 
12 AILOL, SZ 
I WAWTC 

AITLM 
HILMT 
AITLM 
LOLMT 
10 





TENTH 

AIWKD 

AIMCT 

AIPLX 



SE 



BR IF HIGH LMT 



BR IF LOW LMT 
EXIT 

BR VECTOR 
BR VECTOR 
BR VECTOR 
BR VECTOR 
CONSTANT 10 



LD FLAG CONSTANT 

SET 10000 DEVIATION 
BRANCH 



SX 



PCENT CALCULATION 

MEAN X 10 OR PREC X 10 IN WKD 
RAX # PREC VALUE 
WKB # END TBL ADDR 
MDY * STRTNG TBL ADDR 

ALGORITHM 

WKB - MDY £ RAX - WKD X 10 # N 5 
N5 # ABSOLUTE DEVIATION 
N5 X 100 / RSC # N6 £ R6 
R6 X 1000 / RSC # N7 
N6 X 1000 # N8 
N7 6 N8 # XX.XXXX PCENT 

AIWKB LD END TBL ADDR 
AICLM GO GET DEVIATION 
AIMCT # N5 



82113620 

82113630 

82113640 

82113650 

82113660 

82113670 

82113680 

82113690 

82113700 

82113710 

82113720 

82113730 

82113740 

82113750 

82113760 

82113770 

82113780 

82113790 

82113800 

82113810 

82113820 

82113830 

82113840 

82113850 

82113860 

82113870 

82113880 

82113890 

82113900 

82113910 

82113920 

82113930 

82113940 

82113950 

82113960 

82113970 

82113980 

82113990 

82114000 

82114010 

82114020 

82114030 

82114040 

82114050 

82114060 

82114070 

82114080 

82114090 

82114100 

82114110 

82114120 

82114130 

82114140 

82114150 

82114160 

82114170 

82114180 

82114190 

82114200 

82114210 

82114220 

82114230 

82114240 

82114250 

82114260 

82114270 

82114280 

82114290 



0C83 

0CR4 

0C85 

0C86 

0C87 

0C89 

0C8A 

0C8B 

0C8C 

0C80 

0C6E 

0C8F 

0C90 

0C91 

0C92 

0C93 

0C94 

0C95 

0C96 

0C97 

0C99 



C040 
4086 
D03F 

9097 

1 4C28 0C8B 
C03B 

D093 

C092 

A010 

A80E 

0087 

1090 

AOOD 

A80A 

1890 
D8 84 
C081 

A008 
C 8881 

1 DCOO 0C18 
1 4C80 0C24 



DEVIA 



0C98 

0C9C 

0C9O 

0C9E 

0C9E 

0C9F 

OCAO 

0CA1 

OCA 2 

0CA3 

0CA4 

0CA6 

0CA7 

0CA8 

0CA9 

OCA A 

OCAB 

OCAC 

OCAO 

OCAE 

OCAF 

OCBO 

0CB1 

0CB2 

0CB3 

0CB4 

0CB5 

0CB6 

0CB7 



0000 
4000 

0064 
0000 
03E8 
2710 
0032 
0000 
0000 
D020 

1 C400 0B5D 
A0F9 

1090 
A01B 
A8F? 
D81B 
A0F2 
1081 

D816 

C018 

AOCA 

1081 

A8EA 

D813 

A0E9 

88CF 

D80E 

C010 

A0E5 



AIPLX 

* 
* 

* 

* 
* 
* 
* 
* 
* 
* 

* 

* 

AIWC1 
AISRC 
HUND 



LD 

BSI 

STO 

S 

BSC 

LD 

STO 

LD 

M 

D 

STO 

SLT 

M 

D 

SRT 

STD 

LD 

M 

AD 

STD 

BSC 



THOUS 
TENTH 
FIFTY 
PAODR 
AIDCN 



DC 

DC 

DC 

BSS 

DC 

DC 

DC 

DC 

DC 

STO 

LD 

M 
SLT 

M 

D 

STD 

M 

SLT 

STD 

LD 

M 

SLT 



STD 

M 

AD 

STD 

LD 

M 



AIWKI 

AICLM 

AIWKI£1 

AIMCT 

DEVIA, £Z 

AIWKiei 

AIMCT 

AIMCT 

HUND 

AISRC 

AIWKA 

16 

THOUS 

AISRC 

16 

AIWKD 

AIWKA 

THOUS 

AIWKD 

AIWKD 

PCENT 



GO GET DEVIATION 



BR IF 1ST DEV GREAT 

# N5 
N5 

X5 X 100 

/ FULL SCALE 

# N6 £ R6 

R6 X 1000 

/ FULL SCALE # N7 

# N7 

# N6 

N6 S 1000 « N8 

N7 £ N8 # REPEAT OR 

ACCURACY 
BR OUT OF SUBROUTINE SX 



DECIMAL CONVERT RTN 

VALUE IN A » BINARY 
VALUE TO BE CONVERTED. 

ALGORITHM 

RANGE X 100 X VALUE » Nl 
Nl/RSC # N2 £ Rl 
N2 X 1000 # N3 
Rl X 10/RSC # N4 £ R2 
N4 X 100 4 N5 

R2 X 100/RSC # m 

N3 £ N5 £ N6 it N7 





/4000 

100 



1000 

10000 

50 





AIWKI 

AIWKE 

FIFTY 

16 

AIWKI 

AISRC 

AIWKL 

THOUS 

1 

AIWKI 

AIWKLEl 

AITEN 

1 

AISRC 

AIWKL 

HUNO 

AIWKI 

AIWKI 

AIWKL£1 

HUND 



EVL ADDR WD CNTR 
CONSTANT FULL SCALE 
CONSTSNT 100 

CONSTANT 1000 
CONSTANT 10000 
CONSTANT 50 
STORAGE FOR MAX £ ADDR 

SE 
SAVE VALUE 
LOAD RANGE OF VALUE 
X 50 

SHIFT TO ACCUMULATOR 
X VALUE 
/ FULL SCALE 

# N2 £ Rl 
N2 X 1000 
X 2 

# N3 
Rl 

X 10 

X 2 

/ FULL SCALE 

# N4 £ R2 
X 100 # N5 
£ N3 

# N3 £ N5 
R2 

X 100 



82114300 

82114310 

82114320 

82114330 

82114340 

82114350 

82114360 

82114370 

82114380 

82114390 

8211440C 

32114410 

82114420 

82114430 

82U4440 

82114450 

82114460 

82114470 

82114480 

82114490 

82114500 

82114510 

82114520 

82114530 

82114540 

82114550 

82114560 

82114570 

8211^580 

82114590 

82114600 

82114610 

82114620 

8 2114630 

82114640 

82114650 

82114660 

82114670 

82114680 

8 2114690 

82114700 

82114710 

82114720 

82114730 

82114740 

82114750 

82114760 

82114770 

82114780 

82114790 

82114800 

82114810 

82114820 

82114830 

82114840 

82114850 

82114860 

82114870 

82114880 

82114890 

82114900 

82114910 

82114920 

82114930 

82114940 

82114950 

82114960 

82114970 



DATE 
EC NO. 
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PART NO. 
PAGE 



2196390 
12A 





0CB8 
0CB9 







A8E3 
1890 






D 
SRT 




AISRC 
16 

AIWKI 
AIWKL 
AIDCN 


/ FULL SCALE # N6 




82114980 
82114990 
82115000 
82115010 
82115020 


OCFF 6B68 




STX 


3 AIWRK 


RESET WORK SWITCH 


82115660 






OCBA 
OCBB 
OCBC 





1 


8809 
D80A 
4C80 


0CA2 


4c 


AD 

STD 

BSC 


I 


NO 6 N5 £ N6 

* N7 

EXIT ROUTINE 


SX 


ODOO 6BA0 
0D01 1 6780 0CC7 
0DO3 1003 
0D04 4828 




STX 
LDX 
SLA 
8SC 


3 AIORY 
13 AITAS 
3 
£Z 


RESET RLY OLAP SW 
LOAD ADDR OF DATA 
TEST FOR SS 
SKIP IF RELAY 


82115670 
82115680 
82115690 
82115700 






OCBE 
0CC3 
0CC4 
0CC6 








0005 
0000 
OOCO 
0000 


0000 
0000 


AIDTA 
AILWB 
AIWKI 
AIWKL 

* 
* 
* 
• 


BSS 
DC 
DEC 
DEC 




5 






DATA TBL ADDRESSES 
LMT WD £ EXEC BITS 
WORK AREA - I 
WORK AREA - L 




82115030 
82115040 
82115050 
82115060 
82115070 
82115080 
82115090 
82115100 


0D05 700C 
0006 1 7401 09A5 
0008 1 C400 083F 
ODOA I 4C30 0D12 
ODOC 1 7401 OCAl 
ODOE 1 6780 0CC4 
0010 1 74FF 0CC4 
0012 1 C480 0D67 


AIOOP 
AICH4 


MDX 

MDX 

LO 

BSC 

MDX 

LDX 

MDX 

LD 


AICH4 
L AIRSY, 1 
L AIOLS 
L AICH4.-Z 
L AIORY, 1 
13 AIRLS 
L AIRLS, -1 
I AIATS 


BRANCH IF SS 
ADD 1 TO RELAY CNTR 
LO OVERLAP SW 
BR IF NO OVERP 
SET RLY OVLP SW ON 
LOAD RLY DPC DATA ADDR 
DECR 1 FOR NXT RLY 
LOAD MPX ADDR 


82115710 
82115720 
82115730 
82115740 
82115750 
82115760 
82115770 
821 15780 


















** I/O 


TABLES ROUTINE ** 




82115110 


0D14 1 F500 0817 




EOR 


LI AIMPX 


CHECK FOR EVL ADDR 


Vfc* I -^ »L>VJ 

82115790 


























82115120 


0016 1 4C20 ODIO 




BSC 


L AICH5,Z 


BRANCH IF NOT 


82115800 
82115810 














# 






THIS ROUTINE SETS UP THE INPUT 


DATA 


82115130 


0D18 6B4F 




STX 


3 AIWRK 


STORE DATA AODR 














* 






TABLE, THE 


LIMIT WORD TABLE, AND 


82115140 


0D19 C04E 




LD 


AIWRK 


LOAD DATA ADDR 


82115820 

8211 5830 














* 






THE INPUT 


ADDRESS TABLE. IT IS 


ONLY 


82115150 


0D1A 1 D500 OCBE 




STO 


LI AIDTA 


STORE IN DATA TABLE 














* 






ENTERED FROM THE INITIALIZATION 


82115160 


0D1C 7101 




MDX 


1 1 


BUMP FOR NXT EVL PT 


\J < r A. J. -J \J -J \J 

8 2 1 1 5 8 40 














* 






ROUTINE IF 


aAiwca is not zero. 


ANY 


82115170 


ODIO I 7400 OCAl 


AICH5 


MDX 


L AIORY, 


CHECK FOR RLY OLP 


82115850 














* 






ERRORS FOUND WILL BE OUTPUTTED 


AFTER 


82115180 


00 IF 7001 




MDX 


*ei 


BR IF RLY OVERLAP 


82115860 














* 






ENTRY TO ROUTINE 1 AS E006 AND 


ENTRY 


82115190 


0020 7003 




MOX 


AICH6 


BR IF NO RLY OVERLAP 


82115870 














# 
* 






TO THE DATA ENTRY WILL BE FORCED 


82115200 


0D21 1 74FF 0CC7 




MDX 


L AITAS, -1 


CORRECT DATA TBL ADOR 


82115880 
























82115210 


0D23 7016 




MDX 


AICH7S1 


BR TO COMPL SETUP 


82115890 






OCAl 









AIORY 


EOU 




PADDR 


RELAY OVERLAP SW 




82115220 
82115230 


0D24 1 C400 0815 


* 
AICH6 


LD 


L AIMOO 




82115900 
82115910 
82115920 
82115930 






0CC5 









AILWS 


EQU 




AIWKIE1 


LMT WD TBL ADDR 




82115240 


0D26 1090 




SLT 


16 








0CC7 









AITAS 


EQU 




AIWKLG1 


DATA TBL ADDR 




82115250 


0D27 1 7401 0A2A 




MOX 


L AIOSB, 1 


OVRL CNT WORD 






0CC4 

0CC6 









AIRLS 


ECU 




AIWKI 


RLY OAT A LOCATION 




82115260 


0029 1 C480 0CC5 




LD 


I AILWS 


LOAD LIMIT WORD 


82115940 













WDCNT 


EQU 




AIWKL 


DATA TBL WD CNT AODR 




82115270 


0D2B 1 4402 0ED1 




BSI 


L CSLMW.C 


CHANGE SIGN MOD 2 


82115950 














* 












82115280 


0D2D 4818 




BSC 


6- 


SKIP IF LMT CK 


82115960 






0CC8 
0CC9 






0000 
6114 




AISTP 


DC 









SE 


82115290 


002 E 700A 




MDX 


AICH7 


NO LMT CK - BRANCH 


82115970 










LDX 


1 


20 






82115300 


0D2F 0038 




STO 


AIWRK 


STORE LMT WORD 


82115980 






OCCA 


1 


C500 


0828 




LD 


LI 


AIIAT-1 






82115310 


0D30 1 C480 0D67 




LD 


I AIATS 


♦*** 


82115990 
82116000 






OCCC 
OCCE 


1 


D500 


0840 




STO 


LI 


AITOA-1 






82115320 


0D32 E890 




OR 


AILWB 


SET LW £ EXEC BITS * 









71FF 






MDX 


1 


-1 






82115330 


0033 1 0480 0D67 




STO 


I AIATS 


**** 


82116010 






OCCF 





70FA 






MOX 




*-6 






82115340 


0D35 1 7401 0067 




MDX 


L AIATS, 1 


BUMP MPX ADOR TBL ADDR 


82116020 






OCDO 


1 


C400 


083E 




LD 


L 


AIWC 






82115350 


0D37 C08D 




LO 


AILWS 


LOAO LMT WD POSITION 


32116030 






0CD2 


1 


D400 


0065 




STO 


L 


AIWCX 






82115360 


0038 4069 




BSI 


SHIFT 


SHIFT TABLES 


82116040 






0C04 


1 


7400 


83E 




MDX 


L 


AIWCO 


EXIT IF ZERO 




82115370 


0039 7201 


AICH7 


MDX 


2 1 


ADD 1 TO WO CNT REGISTER 


82116050 






0CD6 





7002 






MOX 




*£2 






82115380 


0D3A 1 7401 0067 




MOX 


L AIATS, 1 


BUMP MPX AODR T3L ADDR 


8 2116060 






0CD7 


1 


6400 


0D61 




LDX 


L 


SUERR 


BR TO ERROR 




82115390 


0D3C 1 7401 0CC5 




MOX 


L AILWS, 1 


BUMP LMT WO TBL AODR 


82116070 






0CD9 


1 


6700 


0841 




LDX 


L3 


AITOA 


**** 




82115400 


0D3E 1 74FF 083E 




MOX 


L AIWC-1 


DECR MPX ADOR CNT 1 


82116080 






OCDB 


I 


6F00 


0D67 




STX 


L3 


AIATS 


INITIALIZE * 




82115410 


0D40 70B7 




MDX 


AICH1 


SETUP REST OF TABLE 


82116090 






OCDO 


1 


6700 


084B 




LOX 


L3 


AIT0A610 


WORKING * 




82115420 


0D41 C023 




LD 


AIWCX 




82116100 






OCDF 





6BE5 






STX 


3 


AILWS 


AREAS USED * 




82115430 


0D42 1 D400 083 E 




STO 


L AIWC 




82116110 






OCEO 


1 


6700 


0EE3 




LDX 


L3 


AIDRT-1 


IN THIS * 




82115440 


0D44 1 6D00 0C9B 


AICH8 


STX 


LI AIWC1 


STORE NO OF EVL AODR 


82116120 






0CE2 





6BE4 






STX 


3 


AITAS 


ROUTINE * 




82115450 


0046 7200 




MDX 


2 


CHECK FOR CHN WO CNT 


82116130 






0CE3 





6BE2 






STX 


3 


WDCNT 


* 




82115460 


0D47 7001 




MDX 


♦ SI 


BR IF OK 


82116140 






0CE4 





6700 


6000 




LDX 


L3 


/6000 


LOAD EXEC BIT 




82115470 


0D48 7018 




MDX 


SUERR 


BRANCH TO ERROR 


82116150 






0CE6 


1 


7400 


0840 




MDX 


L 


LMTCK.O 


CHECK FOR EXEC LMT CK 


82115480 


0D49 1 C400 0A20 




LD 


L AIOCS 




82116160 






0CE8 





7002 






MDX 




*£2 


BRANCH - NO LMT CK 




82115490 


0D4B 1 4C08 005D 




BSC 


L AIARB, £ 


BR IF NOT OVERLP CK 


82116170 






0CE9 





6BD9 






STX 


3 


AILWB 


STORE LIMIT CK BITS 




82115500 


0D4D 1 C400 0855 




LD 


L AICCA 




82116180 






OCEA 





7003 






MDX 




♦ 63 






82115510 


004F 1 0480 0D67 




STO 


I AIATS 


SET CHAIN ADDR 


82116190 






0CE8 





6700 


4000 




LDX 


L3 


/4000 


LD NO EXEC BITS 




82115520 


0D51 C014 




LD 


C001 




82116200 






OCED 





70F8 






MDX 




*-5 


BRANCH TO STORE 




82115530 


0052 1 D400 OEFO 




STO 


L LOOP 




82116210 






OCEE 


1 


6700 


OEEE 




LDX 


L3 


AI0RTS10 


RLY DATA TBL ADDR 




82115540 


0054 1 C400 OEEF 




LD 


L AICCC 




82116220 






OCFO 





6BD3 






STX 


3 


AIRLS 


**** 




82115550 


0D56 1 7401 0CC7 




MOX 


L AITAS, 1 




82116230 






0CF1 





6100 






LDX 


1 





INITIALIZE * 




82115560 


0D58 1 0480 0CC7 




STO 


I AITAS 


SET CHAIN AOOR 


82116240 






0CF2 





6200 






LOX 


2 





INDEXES * 




82115570 


0D5A 7600 COOO 




MDX 


L2 /COOO 




82116250 






0CF3 


I 


6D00 


09A5 




STX 


LI 


AIRSY 


RESET RLY SW 




82115580 


0D5C 1000 




SLA 





MDX WILL SKIP 


82116260 






0CF5 





69AB 






STX 


1 


AIORY 


RESET OVERLAP SW 




82115590 


0D5D 1 6E80 0CC6 


AIARB 


STX 


12 WDCNT 




82116270 






0CF6 


1 


6D00 


0A2A 




STX 


LI 


AIOSB 


OVLP CNTR STORAGE 




82115600 


0D5F 7100 




MDX 


1 


CHECK FOR EVL ADDR 


82116280 






0CF8 


I 


7401 


0CC7 


AICH1 


MOX 


L 


AITAS, 1 


BUMP DATA TBL ADDR 




82115610 


0060 7002 




MDX 


SUEXX 


EXIT OK 


82116290 






0CF4 


1 


C480 


0067 




LD 


I 


AIATS 


LOAD MPX ADDR 




82115620 


0D61 1 7401 0A2B 


SUERR 


MDX 


L AIERS.l 


SET ERROR SW ON 


82116300 






OCFC 





4828 






BSC 




£Z 


SKIP IF OK 




82115630 


0D63 1 4C80 0CC8 


SUEXX 


BSC 


I AISTP 


EXIT ROUTINE SX 


82116310 






OCFO 





70 6C 






MOX 




AICH2 


BR TO CHAIN SETUP 




82115640 




* 








82116320 






OCFE 





6300 






LDX 


3 









82115650 




* 








82116330 




DATE 
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0D65 0000 
0066 8001 
0D67 0000 
0D6 8 0000 
0D69 1 0854 



DC 
DC 

DC 



0D6A 

0D6B 

0D6C 

0D6D 

0D6F 

0D70 

0072 

0074 

0D75 

0D77 

0D79 

007 8 

0D7C 

0D7E 

0080 

0082 

0D83 

0084 

0086 

0088 

0D89 

0D8A 

008C 

0D8E 

0D8F 

009 1 

009 3 

0D94 

0D95 

0096 
0097 

0098 
009 A 
0098 



7200 
7001 
7007 
7600 
1000 
1 6E80 
1 C400 

8041 

1 D480 
1 D400 
1 0480 

803A 

1 D400 
1 D400 
I 7400 
7001 

7012 

1 7401 
1 74FF 
1000 

CODD 

1 74FF 
1 0480 

D0D8 

1 0480 
1 7400 
71FF 
1000 
700A 



0000 

0CC6 
0CC7 

0CC7 
0CC7 
0CC7 

0CC6 
0CC7 
0CA1 



0CC4 
09A5 



0D67 
0D67 

0D67 

0068 



CODO 
801E 

D480 0D67 
DOCC 
DOCC 



009C COCC 
0D90 4004 

1 



7098 



0D9E 
ODAO 
00A1 



7401 0CC5 
6200 



0DA2 
0OA3 
0DA4 
0OA5 
00A6 
0DA7 
0DA8 
0DA9 
ODAB 
ODAD 
OOAF 
OOBO 
0DB1 
0DB2 
0DB4 



0000 

90C3 

D005 

C0C1 

0007 

900E 

D003 

6700 0000 

C700 0000 

D700 0000 

73FF 

70FA 

C0B6 

D480 0D67 

4C80 00A2 



0DB6 0001 



AIWCX 
C001 
AIATS 
AIWRK DC 
AIATC DC 

* 

AICH2 MOX 
MOX 
MDX 
MOX 
SLA 
STX 
l.D 
A 

STO 
STO 
STO 
A 

STO 
STO 
MDX 
MOX 
MDX 
MDX 
MOX 
SLA 
LD 
MDX 
STO 
STO 
STO 
MDX 
MDX 
SLA 
MDX 



* 

AICH9 LD 
A 

STO 
STO 
STO 
LD 
BSI 
MDX 

AICHB LDX 
MDX 

* 

SHIFT DC 
S 

STO 
LO 
STO 
S 
STO 

AICNT LDX 
LD 
STO 
MDX 
MDX 
LD 
STO 
BSC 





/8001 

MPX ADOR TBL ADDR 

WORK AREA 

AIT0AE19 ADDR CONSTANT 



* 
ONEAI 

* 
* 
* 



2 
*£1 
AICH8 
L2 /COOO 


12 WDCNT 
I. AITAS 
ONEAI 
I AITAS 
L AITAS 
I AITAS 
ONEAI 
L WDCNT 
L AITAS 
L AIORY.O 
*£l 
AICH9 
. AIRLS,1 
AIRSY.-l 


AIATS 
AIATS, -1 
AIATS 
AIATS 
AIATS 
AIWRK, 
1 -1 

AICHB 



AIATS 
ONEAI 

I AIATS 
AIATS 
AIWRK 
AIATC 
SHIFT 

L AILWS.l 

2 
AICH7E1 



AIATS 

AICNT£1 

AIATS 

AICNTE5 

ONEAI 

AICNT83 

L3 

L3 

L3 

3 -1 
AICNTE2 
AIWRK 

I AIATS 
I SHIFT 



CHECK FOR CHN WD CNT 
BR IF OK 

FORCE ERROR EXIT IF 
SET CHN BITS ON 
MDX WILL SKIP 
STORE WD CNT £ CHN BITS 
**** 



FOR DATA TABLE 



**** 

**** 
SET UP FOR NXT CHN * 

**** 
CHECK FOR RLY OLP 
BR IF RLY OVERLAP 
BR IF NO RLY OVERLAP 
CORRECT RLY ADDR 
CORRECT RELAY COUNT 
MDX MAY SKIP 

**** 

SET CAR CHECK WD * 

OVER RLY MPX ADDR* 

AND TERMINATOR * 

IN MPX ADDR TBL * 

TEST WORK SWITCH * 

CORRECT INDEX * 

MDX MAY SKIP * 

**** 

**** 
SET CAR CHECK WD * 
AND SHIFT MPX * 
ADDR AND LMT WD * 
TBLS 1 POS FOR * 
BOTH CAR WORDS * 
**** 
CORRECT LMT WD TBL ADDR 
SET CHN WD CNT ZERO 
BR TO COMPLETE SETUP 



DC 



DETERMINE NO OF WDS 

STO WD CNT 

LOAD 3T0S ADDRESS 

LOAD 3FR0M3 AOOR 

LOAD WD CNT 
LOAD WORD 
STORE WORD 

SHIFT REST OF WDS 
LOAD DATA TO FILL 

VACATED POS £ STO 
EXIT ROUTINE 

CONSTANT ONE 



SE 

PR01 

PR02 

PR03 
PM01 
PM03 
PM02 



SX 



** TIMER ROUTINE ** 



82116340 

82116350 

82116360 

82116370 

82116380 

82116390 

82116400 

82116410 

82116420 

82116430 

82116440 

82116450 

82116460 

82116470 

82116480 

82116490 

82116500 

82116510 

82116520 

8 2116530 

82116540 

82116550 

82116560 

82116570 

82116580 

8 2116 590 

82116600 

82116610 

82116620 

82116630 

82116640 

82116650 

82116660 

82116670 

82116680 

82116690 

82116700 

82116710 

82116720 

82116730 

82116740 

82116750 

82116760 

82116770 

82116780 

82116790 

82116800 

82116810 

82116820 

82116830 

82116840 

82116850 

82116860 

82116870 

82116880 

82116890 

82116900 

82116910 

82116920 

82116930 

82116940 

82116950 

82116960 

82116970 

82116980 

82116990 

82117000 

82117010 



0DB7 0000 
0DB8 1 OCOO 0EB6 
ODBA 1 C480 0DB7 



* 
* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 
* 
* 
* 

* 
* 
* 
* 

* 

* 
* 
* 
* 
* 
* 
* 
* 
* 
* 

* 

* 

* 

« 

* 

* 

* 

TIMER DC 
XIO 
LD 



THIS ROUTINE BEGINS A TIME DELAY 
DETERMINED BY THE INCREMENT RATE 
OF THE TIMER SELECTED, THE TIMER 
COUNT SPECIFIED AND THE INTERRUPT 
COUNT CONTAINEO IN THE TIMER CALL. 
AT THE START OF THE DELAY, THE WORD 
SPECIFIED BY THE SWITCH ADDRESS IN 
THE TIMER CALL IS SET TO A £ VALUE. 
AT THE END OF THE DELAY, THIS SWITCH 
WORD IS SET TO ZERO. 
THE ROUTINE CAN OPERATE 3 UNIOUE 
DELAYS SIMULTANEOUSLY, ANY ADDITIONAL 
CALL OTHER THAN ONE OF THE THREE 
OPERATING WILL NOT BE HONORED UNTIL 
SPACE IS VACATED BY A DELAY TIMING 
OUT. A SECOND CALL FOR AN OPERATING 
DELAY WILL RE-ESTABLISH THE INITIAL 
COUNT WITHOUT SETTING THE PROGRAM 
SWITCH WORD TO ZERO. 



FOLLOWING TABLE LISTS CONSTANTS 
TO BE ENTERED BY THE OPERATOR 
FOR TIMER ONE BASE SPEED 

THE FOLLOWING TABLE APPLIES TO 
A 4.0 MICRO SEC MACHINE 



TIME BASE 
OF TIMER A 
IN MILLISEC 

128.000 

64.000 

32.000 

16.000 

8.000 

4.000 

2.000 

1.000 

.500 

.250 



CONSTANT ENTERED 
IN HEX AT LABEL 
TIBT1 

0001 
0002 
0004 
0007 
OOOE 
00 IB 
0036 
006 B 
00D6 
01AB 



THE FOLLOWING TABLE APPLIES TO 
A 2 MICRO SEC MACHINE 



TIME BASE 
OF TIMER A 
IN MILLISEC 

64.000 

32.000 

16.000 

8.000 

4.000 

2.000 

1.000 

.500 

.250 

.125 



CONSTANT ENTERED 
IN HEX AT LABEL 
TIBT1 

0002 
0004 
0007 
OOOE 
001B 
0036 
006B 
00D6 
01AB 
0356 




L TSTOP 
I TIMER 



STOP TIMER 1 
LOAD TIME COUNT 



SE 



82117020 

82117030 

82117040 

82117050 

82117060 

82117070 

82117080 

82117090 

82117100 

82117110 

82117120 

82117130 

82117140 

82117150 

82117160 

82117170 

82117180 

82117190 

S2117200 

82117210 

82117220 

82117230 

82117240 

82117250 

82117260 

82117270 

82117280 

82117290 

82117300 

82117310 

82117320 

82117330 

82H7340 

82117350 

82117360 

82117370 

82117380 

8 2117 390 

82117400 

82117410 

82117420 

82117430 

82117440 

82117450 

82117460 

82117470 

82117480 

82117490 

82117500 

82117510 

82117520 

82117530 

82117540 

82117550 

82117560 

82117570 

82117580 

82117590 

82117600 

82117610 

82117620 

82117630 

82117640 

82117650 

82117660 

82117670 

82117680 

82117690 



DATE 
EC NO. 



28FEB66 
415120 



01MAY66 
415120A 



01JUL66 
415178 



150EC66 
421206B 



15DEC66 
421206A 



15DEC66 
421206 



14N0V69 
431319 



PROG ID 
PAGE 



0821-2 
13 



DATE 
EC NO. 



28FEB66 
415120 



01MAY66 
415120A 



01JUL66 
415178 



15DEC66 
421206B 



15DEC66 
421206A 



15DEC66 
421206 



14N0V69 
431319 



PROG ID 
PAGE 



0821-2 
13 A 
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ODBC 





80F9 






A 




ONE A I 




82117700 






ODBO 





18D0 






RTE 




16 


Q # TIME COUNT 


82117710 






ODBE 


1 


7401 


0DB7 




MDX 


L 


TIMER, 1 


SET UP FOR PROG SW 


82117720 






ODCO 





6306 






LDX 


3 


6 


INITIALIZE INDEX 


82117730 






0DC1 


1 


C700 


0878 


TIRNG 


LD 


L3 


TIM11-2 


LOAD CALL SWITCH 


82117740 






0DC3 


1 


4C18 


OOCC 




BSC 


L 


TICNO.S- 


BR IF CALL NOT USED 


82117750 






0DC5 


I 


F480 


00B7 




EOR 


I 


TIMER 


SAME PROG SW TEST 


82117760 






0DC7 


1 


4C18 


ODCC 




BSC 


L 


TICNO,£- 


USE CALL IF SAME SW 


82117770 






0DC9 





73FE 






MDX 


3 


-2 




82117780 






ODCA 





70F6 






MDX 




TIRNG 


SEARCH CALL TABLE 


82117790 






ODCB 





70F4 






MDX 




TIRNG-1 


TIMER IS BUSY 


82117800 






ODCC 


1 


C480 


0DB7 


TIC NO 


LD 


I 


TIMER 


LOAD PROG SW ADDR 


82117810 






ODCE 


1 


DFOO 


0878 




STD 


L3 


TIM11-2 


STORE CNT 6 ADOR 


82117820 






ODDO 


1 


D780 


0878 




STO 


13 


TIM11-2 


SET PROG SW ON 


82117830 






0DD2 





73FE 




TISRC 


MDX 


3 


-2 




82117840 






ODD 3 





70Q6 






MOX 




*6 6 


TEST FOR DUP CALLS 


82117850 






0DD4 


1 


7401 


0DB7 


TEXIT 


MDX 


L 


TIMER, 1 




82117860 






0DD6 


1 


OCOO 


0E08 




XIO 


L 


TSTRT 


START TIMER 1 


82117865 






0DD8 


1 


4C80 


00B7 




BSC 


I 


TIMER 


EXIT ROUTINE SX 


82117870 






ODDA 


I 


C700 


0878 




LD 


L3 


TIM11-2 


LOAD PROG CALL SW 


82117880 






ODDC 


1 


F480 


0DB7 




EOR 


I 


TIMER 


TEST FOR OUP SW 


82117890 






ODOE 


1 


4C20 


0DD2 




BSC 


L 


TISRC, Z 


BR IF NOT DUPLICATE 


82117900 






ODEO 





10A0 






SLT 




32 




82117910 






0DE1 


1 


DFOO 


0878 




STD 


L3 


TIM11-2 


ZERO DUPLICATE CALL 


82117920 






ODE 3 





70F0 




* 
* 


MDX 




TEXIT 




82117930 
82117940 
82117950 














• 






** ERROR-LOG SETUP ROUTINS" ** 


82117960 














* 










82117970 














* 






THIS ROUTINE SETS UP THE CALL 


82117980 














* 






AND THE 


DATA STRING FOR MONITOR. 


82117990 














* 






THE CALL ON THIS ROUTINE CONTAINS 


82118000 














* 






THE MESSAGE ID, OPTION CONTROLS, 


82118010 














* 






AND THE 


ADDRESSES OF THE DATA 


82118020 














* 






WORDS TO BE OUTPUTTED. 


82118030 














* 






THIS ROUTINE WILL CALL ON EITHER 


82118040 














* 






LOG OR ERROR, DETERMINED BY THE 


82118050 














* 






ENTRY USED. 


82118060 














* 






THE ROUTINE ALLOWS LOG OR ERROR 


82118070 














* 






TO BE BYPASSED BY HAVING THE BYPASS 


82118080 














* 






BIT SPECIFIED IN THE CALL SET ON 


82118090 














* 






IN BIT SW WORD 0. 


82118100 














♦ 










82118110 














* 






LOG ENTRY 


82118120 














* 










82118130 






0DE4 





0000 




LOGCL 


DC 







SE 


82118140 






0DE5 


1 


6780 


0DE4 




LDX 


13 


LOGCL 


LOAD STRING ADDR 


82118150 






ODE 7 





6200 






LDX 


2 





INIT X2 TO 


82118160 






ODE 8 





6A1C 






STX 


2 


L0GCS64 


RESET TERM ADDR 


82118170 






0DE9 


1 


6600 


0AO1 




LDX 


L2 


AIRTM 


LOAD RET TO MON ADDR 


82118180 






ODEB 





6A1B 






STX 


2 


LGRTNS1 


INIT RETURN ADDR PR06 


82118190 






ODEC 





6600 


012F 




LDX 


L2 


LOG 


LOAD CALL ADDR 


82118200 






ODEE 





401B 






BSI 




ERLG1 


SET UP STRING 


82118210 






OOEF 


1 


6E00 


0880 




STX 


L2 


TIERS 


RESET TIMER ERR SW 


82118220 






0DF1 





6A4A 






STX 


2 


AILGS 


RESET LOG REQ SW 


82118230 






0DF2 





7009 




* 
* 


MDX 




LOGCK 




82118240 
82118250 
82118260 














* 






ERROR ENTRY 


82118270 














* 










82118280 






0DF3 





0000 




ERRCL 


DC 







SE 


82118290 






0DF4 





6600 


0130 




LDX 


L2 


ERROR 


LOAD CALL ADDR 


82118300 






0DF6 


1 


6780 


0DF3 




LDX 


13 


ERRCL 


LOAD STRING ADDR 


82118310 






0DF8 





C300 






LD 


3 





LOAD LOOP ADOR 


82118320 






0DF9 





DO OB 






STO 




L0GCSC4 


STORE LOOP ERR ADDR 


82118330 






ODFA 





7301 






MDX 


3 


1 


MODIFY FOR STRING 


82118340 






ODFB 





400E 






BSI 




ERLG1 


SET UP STRING 


82118350 






ODFC 





C300 




LOGCK 


LD 


3 





LOAD BYPASS BITS 


82118360 




DATE 


28FEB66 1 


31MAY66 


01JUL66 


15DEC66 


15DEC66 15DEC66 14N0V69 


PROG ID 


0821-2 


EC NO. 


415120 


415120A 


415178 


421206B 


421206A 421206 431319 


PAGE 


14 



ODFD 


1 


E400 


0802 




AND 


L 


SWO 


TEST FOR BYPASS BIT 




82118370 




ODFF 





4FA0 


FFFE 


* 
* 


BSC 


13 


-2,Z 


EXIT IF BIT ON 


SX 


82118380 
82118390 
82118400 












*************** ***** ***************** ****** ** 




82118410 












* 






** LOG 


OR ERROR ** * 




82118420 




0E01 





4480 


0000 


LOGCS 


BSI 


I 





* 


PM05 


82118430 




0E03 


1 


0E32 






DC 




MSTBL 


ADDR OF MESSAGE TBL* 




82118440 




0E04 


1 


0E3D 






DC 




ERLGB 


AOOR OF BUSY RTN * 




82118450 




0E05 





0000 




* 


DC 







AODR OF RETURN-LOOP* 

* 




82118460 
82118470 












********************************************* 




82118480 




0E06 





4C00 


0000 


LGRTN 

* 


BSC 


L 





EXIT ROUTINE 


PM06 


82118490 

82118500 




0E08 




0000 






BSS 


E 









82118510 




0E08 





8000 




TSTRT 


DC 




/8000 


TIMER START IOCC 




82118520 




0E09 





0420 




* 
* 


DC 




/0420 






82118530 
82118540 
82118550 




OEOA 





0000 




ERLG1 


DC 









SE 


82118560 




0E08 





6AF6 






STX 


2 


L0GCSE1 


SET CALL AODR 


PR05 


82118570 




OEOC 





C303 






LD 


3 


3 


LD.MSG.I.D. 


* 


82118580 




OEOO 


1 


E400 


0AA8 




AND 


L 


H0040 




$ 


82118590 




OEOF 


1 


4C18 


0E13 




BZ 




*+2 




$ 


82118600 




0E11 





C302 






LD 


3 


2 


LO.RTRN.ADDR. 


S 


82118610 




0E12 





7006 






B 




ERLG3 




$ 


82118620 




0E13 





C302 






LD 


3 


2 


LD.RTRN ADDR. 


» 


82118630 




0E14 





DOFO 






STO 




L0GCSC4 


STORE TERM ADDR 




82118640 




0E15 





C032 






LD 




LNCNT 


LOAD LINE COUNTER 




82118650 




0E16 


1 


7401 


0E48 




MOX 


L 


LNCNT.l 


BUMP CNTR 1 




82118660 




0E18 





7002 




* 


MOX 




ERLG5 






82118670 
82118680 




0E19 





DOED 




ERLG3 


STO 




LGRTNti 


STORE RETURN ADDR 


PR06 


82118690 




0E1A 





C02D 






LD 




LNCNT 


LOAD LINE COUNTER 




82118700 




0E1B 





1008 




ERLG5 


SLA 




8 






82118710 




OEIC 





8300 






A 


3 





ADO WORD COUNT 




82118720 




0E1D 





D014 






STO 




MSTBL 


SET COUNTER LINE 




82118730 




0E1E 





C300 






LD 


3 





LD WORD COUNT 


. 


82118740 




0E1F 





D008 






STO 




MSSWAE1 


SAVE WORD COUNT 


PR04 


82118750 




0E20 





C301 






LD 


3 


1 


LOAD HEX-DEC SW 




82113760 




0E21 





DO 11 






STO 




MSTBLS1 


SET HEX-DEC SW LINE 




82118770 




0E22 





C303 






LD 


3 


3 


LOAD MESSAGE 10 




82113780 




0E23 





EOOD 






ANO 




HFFBF 




S 


82118790 




0E24 





DOOF 






STO 




MSTB1 


SET MESSAGE ID 




82118800 




0E25 





7304 






MDX 


3 


4 


ADD 4 TO STRING 




82118810 




0E26 





6B03 






STX 


3 


ERLG6S1 


SAVE STRING ADDR 


PR01 


82118820 




0E27 





6600 


0000 


MS SWA 


LOX 


L2 







PM04 


82118830 




0E29 





C680 


0000 


ERLG6 


LD 


12 





LD MESSAGE WORD 


PM01 


82118840 




0E2B 


1 


D600 


0E34 




STO 


L2 


MSTB1 


SET MESS WO IN TABLE 




82118850 




0E2D 





72FF 






MOX 


2 


-1 


SKIP ON ZERO 




82U8860 




0E2E 





70FA 






MDX 




ERLG6 


BRANCH 




82118870 




0E2F 


1 


4C80 


OEOA 


* 


BSC 


I 


ERLG1 


EXIT ROUTINE 


SX 


82118880 
82118890 




0E31 





FF8F 




HFFBF 

* 


DC 




/FFBF 


CONSTANT 


$ 


82118900 
82118910 




0E32 




0002 




MSTBL 


BSS 




2 


CONTROL LINES 




82118920 




0E34 




0008 




MSTB1 


BSS 




8 


ID AND MESSAGE 




82118930 




0E3C 





0000 




AILGS 

* 

* 


DC 






LOG 


LOG REQUEST SW 
BUSY ROUTINE 




82118940 
82118950 
82118960 
82118970 




0E30 





6906 




ERLGB 


STX 


1 


LGLYRE1 


SAVE INDEX REG 1 


PR21 


82118980 




0E3E 





6A07 






STX 


2 


LGLYR63 


SAVE INDEX REG 2 


PR22 


82118990 




0E3F 





C002 






LD 




LGERC 


LOAD RETURN AODR 




82119000 




0E40 


1 


4C0O 


09FF 


* 
* 


BSC 


L 


AIEXXE3 


EXIT TO MONITOR 




82119010 
82119020 
82119030 


• 


0E42 


1 


0E43 




LGERC 


DC 




LGLYR 


ENTRY AODRESS 




82119040 




DATE 28FEB66 01MAY66 


01JUL66 


15DEC66 15DEC66 150EC66 14N0V69 


PROG ID 


0821-2 


EC NO. 415120 415120A 


415178 


421206B 421206A 421206 431319 


PAGE 


14A 



i I 



* I 
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0E43 6500 0000 
0E45 6600 0000 
0E47 70B9 



0E48 0000 
0E49 007F 
0E4A 0000 
0E4A 0006 
0E48 1 0E4D 



0E4C 

0E4D 

0E4E 

0E50 

0E52 

0E53 

0E55 

0E56 

0E58 

0E59 

0E5B 

0E5D 

0E5E 

0E5F 

0E60 

0E61 

0E63 

0E65 

0E66 

0E68 

0E6A 

0E68 

0E6C 



0000 

10AO 

1 C400 
1 4C18 

4018 

1 6E00 

C0F6 
4C18 
FOFO 
4C18 
C400 
8027 
7002 
7001 
700A 
0480 
7401 
COIF 

1 D400 
1 74FF 
1000 

C8DE 

1 4C00 



0804 
0E55 

0804 

0E68 

OEBO 
0805 



0E88 

0E88 

0805 
0E4C 



09FC 



0E6E 
0E6F 

0E70 
0E71 
0E73 

0E74 
0E75 
0E76 
0E78 
0E79 
0E7A 
0E7B 
0E7C 



0000 
18CC 
D001 

67C0 0000 
6200 
1010 
1085 
8700 0E9D 



DOOF 
1010 
1087 

DODO 

1 4C80 



.iff-e 



LGLYR 



* 

* 
* 
* 
* 
* 
* 
* 
* 
* 
* 

* 

* 

* 

* 

* 

LNCNT 

AIC7F 

RT06 



LDX 
LDX 
MDX 



LI 
L2 

LOGCS 



RESTORE INDEX REG 1 PM21 
RESTORE INDEX REG 2 PM22 
BRANCH TO TRY AGAIN 



DC 

DC 

BSS 

DC 

DC 



* 

AIDWC 

AIDER 



DC 
SLT 
LD 
BSC 
BSI 
STX 
AIUSA LD 
8SC 
EOR 

ssc 

ID 
CMP 

urix 

MDX 
MOX 

AISTW STC 
MDX 
LD 
STO 
MDX 
SLA 

AILRK LDD 

BSC 
* 

* 
* 
* 
AIBSA 



AILAR 



DC 

RTE 

STC 

LDX 

LDX 

SLA 

SLT 

A 

STC 

SLA 

SLT 

STO 

BSC 



** DATA ENTRY ROUTINE ** 



THIS ROUTINE CAN 
OPERATOR TO ENTER 
DATA TABLES. ALSO 
CORE CAN BE CHANG 
USING THE ROUTINE 
WORD ADDRESS INTO 
NUMBER 8. 
THIS ROUTINE IS E 
TABLE NUMBER, DIS 
WORD COUNT IN BIT 
AND EXECUTING THE 



BE USED BY THE 
DATA INTO THE 
ANY WORD IN 

ED BY FIRST 
TO ENTER THE 
TABLE POSITION 

NTERED BY SETTING 
PLACEMENT, AND 

SWITCH WORD 02 

PROGRAM. 





/007F 
E 
6 
AIDER 



L 

L 

L2 



o 

32 

SW2 

AIUSA, £~ 

AIBSA 

SW2 

AIDWC 

AILRK, £- 

AIC7F 

AIRST.S- 

SW3 

AIAAS 

AISTW 

AISTW 

AILRK 

AITAE 

AITAE, 1 

AIAAS 

SW3 

AIOWC-1 



RT06 

AIEXX 




12 

AILARG1 





16 

5 
L3 AIADT 

AITAE 

16 

7 

AIDWC 
I AIBSA 



L3 

2 



SE 



LINE COUNTER 
TERMINATOR CONSTANT 

RT 06 - ENTER DATA 

ENTRY ADDRESS 

WORD COUNT STORAGE 

LD BIT SW WORD 2 

BR IF BITSW WORD # 

RESET BIT SN WORD 2 

BR IF END TBL 

BR IF END DATA NTRY 

ID BIT SW WORD 3 

COMPARE TO TERMINATO 

BRANCH 

6RANCH 

BRANCH 

SET DATA WORD IN TBL 

ADD 1 TO TBL WD ADDR 



INITIALIZE BIT SW 3 
SUBT 1 FROM WORD CNT 
WILL SKIP LAST PASS 
LOAD ROUTINE 6 
BRANCH TO EXIT SX 



STO TBL ADDR 
SET X2 # 



ADD TABLE ADDR 
STO TBL POSTN ADDR 



STO TBL WORD CNT 
EXIT SUBROUTINE 



SE 

PR16 

PM16 



SX 



82119050 

82119060 

82119070 

82119080 

82119090 

82119100 

82119110 

82119120 

82119130 

82119140 

82119150 

82119160 

82119170 

82119180 

82119190 

82119200 

82119210 

82119220 

82119230 

82119240 

82119250 

82119260 

82119270 

82119280 

82119290 

82119300 

82119310 

82119320 

82119330 

82119340 

82119350 

82119360 

82119370 

82119380 

82119390 

82119400 

82119410 

82119420 

82119430 

82119440 

82119450 

82119460 

82119470 

82119480 

82119490 

82119500 

82119510 

32119520 

82119530 

82119540 

82119550 

82119560 

82119570 

82119580 

82119590 

82119600 

82119610 

82119620 

82119630 

82119640 

82119650 

82119660 

82119670 

82119680 

82119690 

82119700 

82119710 

82119720 



0E7E 0000 
0E7F 40EE 



0E80 1 4400 0DE4 

0E82 0002 
0E83 0000 

0E84 I 0E89 

0E85 AAAA 

0E86 8000 

0E87 1 0E88 

0E88 0000 

0E89 1 7401 0E88 

0E8B 1 74FF 0E4C 

0E8D 70F2 

0E8E 6AB9 

0E8F 1 6E00 0803 

0E91 1 4C80 0E7E 



* 
* 
* 
* 
* 

* 
* 
* 
* 
* 
* 
* 
AIVEO DC 

BSI AIBSA 
******* **************** 



** VERIFY ENTERED DATA ROUTINE ** 

THIS ROUTINE IS USED TO LOG ANY 
DATA WHICH IS ENTERED INTO THE 
TABLES, ALSO IT CAN BE USEO TO 
LOG ANY WORD OR GROUP OF WORDS 
IN CORE. 

THIS ROUTINE IS ENTERED BY SETTING 
TABLE NUMBER, DISPLACEMENT, AND 
WORD COUNT IN BIT SWITCH WORD 01 
AND EXECUTING THE PROGRAM. 



SE 



* 

BSI 
DC 
DC 
DC 

AIAAS DC 
OC 
DC 
OC 



AITAE 



0E93 


1 


0EF4 


0E94 


1 


0EF6 


0E95 


1 


0EF8 


0E96 


1 


OEFA 


0E97 


1 


OEFC 


0E98 


1 


0F58 


0E99 


1 


0FC5 


0E9A 


I 


1032 


0E9B 


1 


109F 


0E9C 


1 


HOC 



0E9D 1 0814 
0E9E 1 0816 
0E9F 1 0817 
OEAO 1 081D 
0EA1 1 0823 
0EA2 1 0824 



MDX 
MDX 
MDX 
STX 
STX 
BSC 
* 

* 

* 

* 

* 

* 

* 

AISUM DC 
DC 
DC 
DC 
DC 

AISPT DC 
DC 
DC 
DC 
DC 

* 

* 
* 

* 
* 
* 
* 

* 

* 

* 

AIADT DC 
DC 
DC 
DC 
DC 
DC 



GO TO SETUP ADDR 
********** ** ********$* 

** LOG CALL ** * 

LOGCL GO TO LOG CALL SBRT* 

2 WORD COUNT 

HEX-DEC SW JfH£X< 

AITAES1 RETURN AOORESS 

/AAAA MESSAGE 10 

/8000 BYPASS BIT 

AITAE ADDR OF WORD 

TBL ADDR STORAGE 

********************** 

L AITAE, 1 ADD 1 TO ADDR 

L AIDWC.-l SUBT 1 FROM WORD CNT 

AIVED&2 BRANCH 

2 LNCNT RESET LINE CNTR 

L2 SW1 RESET BIT SW WORD 1 

I AIVED EXIT ROUTINE SX 



*********************** 



* 
* 
* 
* 
* 
* 
* 



CONSTANT TABLES 



AISUX 

AISUXE2 

AISUX64 

AISUX&6 

AISUXG8 

AISTBS54 

AISTB&163 

AISTBS2 72 

AISTBS381 

AISTBS490 



**** 

* 
SUM TABLE ADDR TBL * 
* 
**** 
**** 

* 
SPREAD TBL AODR TBL* 
* 
**** 



ADDRESS CONSTANT TABLES 

FOR USE WITH THE OATA ENTRY AND THE 
VERIFY ENTERED DATA ROUTINES. 
THE TABLE NUMBER IS THE NUMBER BE- 
TWEEN THE 3DC3 AND 3C0NSTANT3. THIS 
NUMBER IS ENTERED IN BO - B3 OF 
THE PROPER BIT SWITCH WORD. 



TIBT1 ADDR OF TMR CONSTANT 

1 AICYC CYCLE COUNT ADDRESS 

2 AIMPX MPX ADDR TBL ADDR 

3 AIPRC PREC ROING TBL ADDR 

4 AIFRS RESOLUTION TBL ADDR 

5 RANGE RANGE TABLE ADDRESS 



82119730 

82119740 

82119750 

82119760 

82119770 

82119780 

82119790 

82119800 

82119810 

82119820 

82119830 

82119840 

82119850 

82119860 

82119870 

82119880 

82119890 

82119900 

82119910 

82119920 

82119930 

82119940 

82119950 

82119960 

82119970 

82119980 

82119990 

82120000 

82120010 

82120020 

82120030 

82120040 

82120050 

82120060 

82120C70 

82 120080 

82120090 

82120100 

82120110 

82120120 

82120130 

82120140 

82120150 

82120160 

82120170 

82120180 

82120190 

82120200 

82120210 

82120220 

82120230 

82120240 

82120250 

82120260 

82120270 

82120280 

82120290 

82120300 

82120310 

82120320 

82120330 

82120340 

82120350 

82120360 

82120370 

82120380 

82120390 

82120400 



OATE 

EC NO. 



28FEB66 OlMAYfef 
415120 41«ii>04 



ft I JUL 66 



15 0EC66 

4? J. 206 B 



15DEC66 

42J206A 



l5DfiC66 

4^l?0ft 



14N0V69 
43 1319 



PROG ID 

PA6F 



osn-? 

15 



DATE 
EC NO. 



28FEB66 
415120 



01MAY66 
415120A 



01. JUL 66 
415178 



15DEC66 
421205B 



15DEC66 
421206A 



15DFC66 
421206 



14NGV69 
431319 
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0EA3 1 0AF4 
0EA4 1 0EA5 
0EA5 1 0B4B 
0EA6 1 0829 
0EA7 1 0830 
0EA8 1 083E 
0EA9 1 083F 
OEAA 1 0833 
OEAB 1 0EE3 
OEAC 1 0841 






DC 
DC 


6 AIHXS 

7 AIADTE8 


HEX-OECSAOOK SW ADDR 
AUX 


82120410 
82120420 


0EC9 


1 


4400 


0DE4 


* 
AIQLT 


BSI 


L 


** 
LCGCL 


LOG 


CALL ** 




* 
* 




82121090 
82121100 










DC 


8 AICYR 


AUX/CYCLE CNTR ADDR 


82120430 


OECB 





0001 






DC 




1 




WORD COUNT 




* 




82121110 










DC 


9 AIIAT 


INPUT ADDR TBL ADDR 


82120440 


OECC 





0001 






DC 




/0001 




HEX-DEC SW %DEC< 




* 




82121120 










DC 


A AIXSS 


EXT SYNC SW ADDR 


82120450 


OECO 


1 


09DC 






DC 




AIT00+2 


RTRN.ADOR. 




* 


$ 


82121130 










DC 


B AIWC 


NUMBER OF POINTS ADDR 


8 2120460 


OECE 





8BFB 






DC 




/BBFB 




MSG.I.O. 




* 


$ 


82121 140 










DC 


C AIOLS 


OVERLAP SWITCH ADDR 


82120470 


OECF 





0010 






DC 




/0010 




BYPASS BITS 




* 




82121150 










DC 


D AILWT 


LIMIT WD TBL ADDR 


82120480 


OEDO 


1 


09A6 






DC 




AIOSP 




COUNTER ADDR 




* 




82121160 










DC 


E AIDRT-1 


INPUT DATA TABLE 


82120490 










********************************************** 




82121170 










DC 


F AITOA 


WRITE TBL ADDR 


82120500 










* 


















82121180 










* 

* 








82120510 










* 






** 


CHANSE SISN OF LMT MO 


** 




82121190 
















82120520 










* 


















82121200 










* 




GO 


PROGRAM ENTRY 


82120530 










* 






THIS SEQUENCE WILL CHANGE THE 


SIGN 




82121210 
















82120540 










* 






OF THE 


LIMIT WORD FOR MOO 2 


ADC 




82121220 










* 




THE PROGRAM IS ENTERED AT THIS POINT 


82120550 










* 


















82121230 










* 




ONLY AFTER LOAOING. 


82120560 










* 


















82121240 










* 








82120570 


0ED1 





0000 




CSLMW 


DC 













SE 




82121250 










* 








82120580 


0ED2 





1888 






SRT 




8 












82121260 






OEAD 4480 


012C 


AIGO 


BSI 


I BEGIN 




82120590 


0ED3 





0000 






STO 




LEFT 




SAVE LEFT WORD 








82121270 






OEAF 1 07FF 






DC 


PID . 


ADDRESS OF PIO TBL 


82120600 


0ED4 





1090 






SLT 




16 












82121280 










* 








82120610 


0ED5 


1 


4400 


0979 




BSI 


L 


MKPOS 




CHANGE RITE WORD 


SIGM 




82121290 










* 








82120620 


0E07 





DOOA 






STO 




RITE 




SAVE RITE WORD 








82121300 










* 




RESTART ENTRY 


82120630 


0ED8 


c 


C008 






LD 




LEFT 












82121310 










* 








82120640 


0ED9 


1 


4400 


0979 




BSI 


L 


MKPOS 




CHANGE LEFT WORD 


SIGN 




82121320 










* 




ENTRY IS 


HADE AT THIS POINT AFTER 


82120650 


OEDB 





18C8 






RTE 




8 




MAKE LEFT # RITE 






82121330 










+ 




EXITING FROM THE DATA ENTRY ROUTINE. 


82120660 


OEOC 





C005 






LD 




RITE 












82121340 










* 








82120670 


OEDD 





1808 






SRA 




8 




MAKE RITE # LEFT 








82121350 










* 








82120680 


OEDE 





1088 






SLT 




8 












82121360 






OEBO 4007 




AIRST 


BSI 


AIEND 


RESET PROGRAM - RESTART 


82120690 


OEOF 


1 


4C80 


0ED1 




BSC 


I 


CSLMW 




EXIT 




SX 




82121370 






0EB1 1 4400 


08E6 




BSI 


L RSAI 


REINITIALIZE 


82120 700 










* 


















82121380 






0EB3 4C80 


012D 


* 


BSC 


I START 


RESTART PROGRAM SX 


82120710 
82120720 


0EE1 
0EE2 






0000 
0000 




LEFT 
RITE 


DC 
DC 


















82121390 
82121400 






0EB6 0000 






BSS 


E 




82120730 










* 


















82121410 






0EB6 0000 




TSTOP 


DC 





TIMER STOP IOCC 


82120740 










* 


















82121420 






0EB7 0420 






DC 


/0420 




82120750 










* 






VARIABLE TABLES 








82121430 










* 








82120760 










* 


















82121440 










* 








82120770 


0EE3 





0000 






DC 









WORD CNT WORD 








82121450 










* 




** END PROGRAM ROUTINE ** 


82120780 


0EE4 




OOOB 




AIDRT 


BSS 




11 




INPUT DATA TABLE 








82121460 










* 








82120790 










• 


















82121470 










* 




THIS ROUTINE IS ENTERED FROM MONITOR 


82120800 


OEEF 


1 


OEEF 




AICCC 


DC 




AICCC 




DATA CHANN LOOP 








82121480 










* 




WHENEVER 


THIS PROGRAM IS BEING OE- 


82120810 


OEFO 





0000 




LOOP 


DC 









CONTROL-WC 








82121490 










* 




EXECUTED. 


IT IS ENTERED FROM THE 


82120820 


OEFl 





0000 






DC 









DATA 








82121500 










* 




DATA ENTRY ROUTINE SO THAT A 


82120830 


0EF2 


1 


OEEF 






DC 




AICCC 












82121510 










* 




COMPLETE 


RESTART OF THE PROGRAM MAY 


82120840 


0EF4 




OOOA 




AISUX 


BSS 


E 


10 




SUM TABLE 








82121520 










* 




BE DONE. 


THIS ROUTINE RESETS ALL 


82120850 


OEFE 




0005 




AIGRD 


BSS 




5 




GOOD READING TABLE 






82121530 










* 




DEVICES ANO STOPS TIMERS. 


82120860 


0F03 




0005 




AIOTR 


BSS 




5 




OUT OF TBL CNTR TBL 






82121540 










* 








82120870 


0F08 




0005 




AIOVC 


BSS 




5 




OVERLOAD CNTR TBL 






82121550 










* 








82120880 


0F22 








PARA 


ORG 




/7F0EPID-218 PATCH AREA 








82121560 










* 








82120890 


0F22 




OOOA 




AISTB 


BSS 




218 




SPREAD TABLE 








82121570 






OEBS 0000 




AIEND 


DC 





SB 


82120900 


OFFC 





0015 




PEND 


DC 




PEND-PARA- 


-218 ADDR OF LAST 


WD 






82121580 






0EB9 6200 






LOX 


2 




82120910 










* 


















82121590 






OEBA 1 6E00 


09A0 




STX 


L2 AITMS 


RESET TIME SWITCH 


82120920 










* 


















82121600 






OEBC 6A8B 






STX 


2 LNCNT 


RESET LINE COUNTER 


82120930 










*************************************************** 


82121610 






OEBO 6A8E 






STX 


2 AIDWC 


RESET DATA WORD CNTR 


82120940 










* 
















* 


82121620 






OEBE 08F7 






XIO 


TSTOP 


STOP TIMER 


82120950 










* 
















* 


82121630 






0E8F 1 4400 


0991 




BSI 


L BLAST 


RESET AI 


82120960 










* 
















* 


82121640 










********************************************* 


82120970 










* ***** 


***** * 


* 


***** * ***** 


* 


* 


* 


82121650 










* 




** RELEASE OEVICES ** * 


82120980 










* * 




* 


* * 


* 


* * * * 


** 


* 


* 


82121660 






0EC1 4480 


0132 




BSI 


I RELOV 


GO TO REL OEVICES * 


82120990 










* * 




***** * 


* 


* * * * 


* 


* * 


* 


82121670 






0EC3 1 0811 






DC 


EDIT 


ADDR OF AI DEV DEF * 


82121000 










* * 




* 


* * 


* 


* * * * 


* 


** 


* 


82121680 






0EC4 1 0812 






DC 


EDITE1 


ADDR OF CMP DEV DEF* 


82121010 










* ***** 


* 


* ***** 


* * ***** 


* 


* 


* 


82121690 






0EC5 1 0813 






DC 


EDITE2 


ADDR OF TM DEV DEF * 


82121020 










* 
















* 


82121700 






0EC6 I 080A 






OC 


TERM 


AODR OF TERMINATOR * 


82121030 










* 
















* 


82121710 










********************************************* 


82121040 










* 
















* 


82121720 






0EC7 1 4C80 


0EB8 




BSC 


I AIEND 


EXIT ROUTINE SX 


82121050 










* 


THIS 


DECK MUST 


BE 


LOADED LAST WHEN 






* 


82121730 










* 








82121060 










* 


RUNNING 


THIS PROGRAM WITH MORE THAN 


TWO 


* 


82121740 










* 








82121070 










* 


%Z< 


MULTIPLEX 


ADDRESSES SPECIFIED FOR 




* 


82121750 










********************************************** 


82121080 










* 


EVALUATION. IF 


THIS IS NOT DONE 327 






* 


82121760 




DATE 


28FEB66 01MAY66 


01JUL66 


15DEC66 15DEC66 15DEC66 14N0V69 


PROG ID 0821-2 


DATE 28FEB66 01MAY66 


01JUL66 


15DEC66 


15DEC66 15DEC66 14N0V69 




PROG ID 


0821-2 


EC NO. 


415120 415120A 


415178 


421206B 421206A 421206 431319 


PAGE 16 


EC NO. 415120 


1 415120A 


415178 


421206B 


421206A 421206 431319 




PAGE 


16A 



I I 



1 I 
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* 
* 
* 
* 
* 
* 



CORE POSITIONS OF THE PROGRAM FOLLOWING 
THIS ONE WILL BE WIPED OUT AND USED 
BY THIS PROGRAM FOR DATA STORAGE. 



* 
OFFE OEAD END AICO 

NO STATEMENTS FLAGGED IN THE ABOVE ASSEMBLY 



82121770 
82121780 
82121790 
82121800 
82121810 
82121820 
82121830 
82121840 
82121850 



ACAI 

ACCMP 

AC0N1 

AC ON 2 

AC0N3 

AIAAS 

AIACC 

AIADT 

AIAPR 

AIARB 

AIATC 

AIATS 

AIBSA 

AIBST 

AIBSY 

AIB08 

AIB11 

AIB14 

AICBL 

AICCA 

AICCC 

AICHB 

AICHG 

AICH1 

AICH2 

AICH4 

AICH5 

AICH6 

AICH7 

AICH8 

AICH9 

AICK8 

AICKC 

AICKT 

AICLM 

AICMR 

AICNC 

AICNT 

AICRY 

AICYC 

AICYR 

AIC7F 

AIDCN 

AIDER 

AIDRT 

AIDSW 

AIDTA 

AIDWC 

AIENB 

AIEND 

AIENX 

A I EOT 

AIERC 

AIERL 

AIERR 



08D0 
08C5 
0C21 
0C22 
0C23 
0E85 
095B 
0E9D 
0822 
0D50 
0069 
0D67 



0E6E 

0998 

0958 

09A2 

09A3 

09A1 

0A68 

0855 

OEEF 

ODAO 

0C36 

0CF8 

00 6 A 

0012 

ODID 

0024 

0D39 

0D44 

0D96 

0A4F 

0A52 

0A7F 

OCOB 

08C6 

OAFE 

0DA9 

0A77 

0816 

0B48 

CE49 

0CA2 

0E40 

0EE4 

089B 

OCBE 

0E4C 

0A3A 

0EB8 

0A58 

08B9 

OA90 

09 7F 

08A1 



AIERS 

AIEVL 

AIEV1 

AIEXB 

ATEXT 

AIEXX 

AIFRS 

AIGO 

AIGRD 

AIHIL 

AIHXS 



0A28 
0AB3 
OABE 
09F8 
0A72 
09 FC 
0823 
OEAD 
OEFE 
0C76 
0AF4 



0931 

0961 

0C33 

0C55 

0C5D 

C8E7 

C91F 

0E76 

0B12 

0D4B 

0D9C 

OCDB 

0096 

0E52 

0933 

09 5D 

093 E 

C94B 

0944 

0A67 

C855 

0054 

0D95 

0C53 

0D40 

OCFD 

0D05 

0016 

0D2O 

0023 

0D6C 

00 83 

0A7E 

CA86 

CA51 

0C13 

08CD 

OADE 

00 A 4 

0A4E 

CB23 

0905 

CE58 

OAEF 

09B5 

08E2 

08A2 

0AC1 

0E55 

0A39 

0808 

0A53 

0898 

0987 

0A97 

08 8A 

08BC 

08A5 

0A5E 

OBOF 

0A31 

0A76 

0959 

0940 

OFFE 

OADO 

0C6D 

0EA3 



0936 094C 095F 



0E5D 0E65 



0EA4 
0B20 



0*D98 loll o"a3 Ooll 0DB2 ""' °™ ^ ^ ^ ° D »* °° 8F 

0E7C 0E7F 

0992 

0950 



0A68 

0857 0D4D 
OEEF 0EF2 



0C66 0C69 



OOOA 



0D2E 0DA1 



0C81 0C84 



0DA6 0DA8 ODBO 

OBOB 0E9E 

0968 0A47 0AA1 OAFD 0B22 0B27 0EA5 

0B38 OBEA OCBC 

OAAO 0E4B 

096A 099C OCEO OCEE OEAB 

0803 

0AC7 0B18 0D1A 

0E68 0E7B 0E8B OEBD 

0A42 

OEBO 0EC7 

08BF 0A1C 

0A59 0A74 0A7B 0A83 0A91 0A9D 0AA6 0AB5 

088B 088C 088D C88E 0891 0892 0893 0894 0895 0890 08A9 08B0 
OoU 7 

08F4 0952 C*7F OAAO 0AA2 0AB3 0D61 
0A61 0A72 

0A36 0A57 0A79 

09AB 0E40 0E6C 
OBOA 0EA1 



0AD3 0B6D 0B74 0B8B 0B99 



DATE 
EC NO. 



28FEB66 
415120 



01MAY66 
415120A 



01JU1.66 
415 178 



150EC66 
4212068 



15DEC66 
42 1206 A 



15DEC66 
42U06 



14N0V69 
431319 



PROG ID 
PAGE 



0821-2 
17 
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EC NO. 
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415120 



01MAY66 
415120A 
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15DEC66 
421206B 
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421206A 



150EC66 
421206 



14N0V69 
431319 
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AIIAT 


0829 


OCCA 0EA6 






AISTW 


0E61 


0E5E 0E5F 








AIIBR 


08D9 


08E1 






AISUM 


0E93 


OACC OACE 086B 








AIIBT 


0889 


08DF 






AISUX 


0EF4 


08F8 08FA 0E93 0E94 0E95 0E96 0E97 








AIINP 


09 B2 


096E 0983 09A9 






AITAE 


0E88 


0E61 0E63 0E78 0E84 0E87 0E89 








AIINX 
AIIRD 


09AA 
09 9C 


0966 09C4 
0951 09F2 0A63 






AITAS 
AITCN 


0CC7 
OCIF 


0CE2 0CF8 0001 0D21 0D56 0058 0072 0D75 0D77 0D79 0D7E 
0BE2 OBFE OCOO 0C39 0C3A 








AIIRY 


08AB 


0896 08B7 






AITEN 


0C7A 


OCOE OCAF 








AIIST 


089A 


08D5 08D9 08DE 






AITLM 


0C7B 


0C76 0C78 








AIIZZ 


09EC 


09C0 






AITMS 


09A0 


09C2 09E9 OEBA 








AILAR 


0E71 


0E70 






AITOA 


0841 


099E OCCC 0CD9 OCDD 0D69 OEAC 








AILCL 


0A48 


0A3C 






A I TOO 


09DA 


OECD 








AILGS 


0E3C 


08C9 0A3A 0A46 0DF1 






AITRP 


08A8 


08A8 7002 








AILOL 


0C78 


0C72 






AITRT 


09 E6 


09E2 








AILRK 


0E6B 


0E56 0E60 






AIUSA 


0E55 


0E50 








AILW8 


0CC3 


0CE9 0D3 2 






AIVED 


0E7E 


09B9 0E8D 0E91 








AILWS 


0CC5 


OCDF 0029 0D37 0D3C 0D9E 






AIWC 


083E 


0AB1 OCDO 0C04 0D3E 0D42 CEA8 








AILWT 


0833 


OEAA 






AIWCX 


0D65 


0CD2 0D41 








AIMBR 


0C80 


0C3D 






AIWC1 


0C9B 


08FD OABO OBOD 0B16 OCOl 0D44 








AIMCT 


OCIE 


0BB3 0BD8 OBEO 0BE9 0BF5 0BF7 


0C2C 0C46 0C48 0C4C 0C4F 0C58 


0C60 


AIWKA 


0C16 


08B4 0BD9 0C8E 0C94 








AIMOD 


0815 


0C7E 0C82 0C86 0C8A 0C8B 
OABE 0024 






AIWKB 


0C1A 


0BE8 0BF6 0C28 0C37 0C3F 0C43 0C4B 0C4E 0C50 0C57 0C59 0C5F 
0C64 0C67 0C6B 0C6F 0C80 


0C61 






AIMPC 


0B5E 


0AE7 0B32 0B67 






AIWKC 


0C1B 


0B86 0BC6 OBCD OBDC 
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*** ***** * 



***** ***** ***** ***** 

* * * * 

* *** *** * 

* * * * 

* ***** ***** * 



7001 



7001 1 0852 



7002 1 0879 



7003 1 0970 

7004 i 0971 
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********************************** *********** 

* PROGRAM HALT OFSCRIPTiONS 

****************************** sac*-!******,**,* 
************************************* ******** 
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* 
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*- 
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THE THREE POSSIBLE PROGRAM HALTS OR 
TRAPS ARE DESCRIBED IN THE FOLLOWING 
PARAGRAPHS. IN EVERY CASE THESE TRAPS 
ARE IOENTIFYABLE ONLY AFTER THE STOP 
KEV HAS BEEN DEPRESSED AND THE MODE 
SWITCH MOVED OUT OF THE RUN MODE TO 
STOP THE INTERVAL TIMER FROM CYCLE 
STEALING. AFTER THIS IS DONE THE I REG 
CAN BE USED TO IDENTIFY THE SPECIFIC 
TRAP. 



ORG *6/7001 
TRAP STOPS 



* 
* 
* 
* 
* 



DC 



CC 



DC 
DC 



TITRP 



ERROR TRAP 1 



THE TIMER INTERRUPT IS ON SOLID 
AND CANNOT BE RESET. 



AITRP 



ERROR TRAP 2 



THE AI RESPONSE INTERRUPT IS ON 
SOLID AND CANNOT BE RESET. 



BLTRP 
BLTRPtl 



ERROR TRAP 3 



IF THE AI BUSY INDICATOR DOES NOT 
COME ON AFTER A START AI OPERATION 
THE PROGRAM WILL HANG UP IN AN 
UNINTERRl'P TABLE X10-BSI LOOP. 
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• ***** ***** * * 
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* 

THIS TEST MUST BE LOADEO LAST OR LOW CORE 
LOCATIONS OF THE FOLLOWING TEST WILL BE 
WIPED OUT AND USED FOR STORAGE FOR THIS 
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* 

* 

BEGIN 

START 

END 

LOG 

ERROR 

REODV 

RELDV 

HALT 

• 

* 

• 

<■- 

PID 

RIO 

RAD 

SWO 

SW1 

SW2 

SW3 
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A I MOO DC 
AICYC DC 
AIMPX DC 
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PROGRAM EOU TABLES 
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BEGINtl 

START61 

ENDfil 

L0GE1 
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LOPAI 

A I END 
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BIT SW WORD 
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INITIALIZATION ADDR 

LOOP PROGRAM ADDR 

END PROGRAM ADDR 

MAIN LINE SEO CNTRL 

TERMINATOR 

ADDR OF ■ AST WORD * 



MONITOR STORAGE 
AREA 



* 
* 
* 
***** 



** EDIT TABLE ** 

THIS TABLE IS LOADED BY THE 
OPERATOR WITH EITHER THE EDIT 
CARDS OR BY THE USE OF THE DATA 
ENTRY ROUTINE IN TnlS PROGRAM. 



DDEF FOR AI 

"DDEF FOR TIMER 
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TEST 82200830 
82200840 
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08 2F 





0001 


0830 





13E8 


0831 





0001 


0832 





FFFF 


08 33 





0000 



OC 
DC 
DC 
DC 
AIPRC DC 
DC 
DC 
OC 
DC 
AIAPR DC 
A1FRS DC 
RANGE DC 
DC 
OC 
OC 
DC 
AIIAT DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 

DC 

DC 

IXSS DC 



5096 

5096 

5096 

/FFFF 











1 

14 

5 

5 

5 

5 

5 

5096 

1 

5096 

1 

5096 

1 

5096 

1 

5096 

1 

/FFPF 





MPX ADDR TABLE 



PREC READING TABLE 

♦ »»* 
AUTO PREC RDrfG SW 

RANGE TABLE 

**** 



INPUT ADDRESS TABLE 



EXTERNAL SYNC SWITCH 



** TIMER INTERRUPT ROUTINE ** 

THIS ROUTINE IS ENTERED FOR "EACH 
TIMER INTERRUPT. XAPROX. EVERY 110 
MILLISECONDS^ EACH DELAY COUNT IS 
DECREMENTED BY 1. WHEN ANY COUNT 
GOES TO ZERO, THE PROGRAM SWITCH 
WORD CORRESPONDING TO THE COUNT 
IS SET TO ZERO. 



IE 



0834 





0000 






DC 







TIMER AC/MOO STORAGE 


0835 





0030 




TI1NT 


DC 









0836 





0857 






XIO 




TSNSE 


SENSE TIMER DSW 


0837 





P024 






CMP 




TICON 


CHECK FOR PROPER BIT 


0838 





1000 






SLA 







SKIP 


0839 





7C15 






MDX 




TIERR 


ERROR DSW - BRANCH 


08 3A 





C053 






LD 




TSNSE 


RESTORE CONSTANT 


083B 





D400 


0004 




STO 


L 


4 




08 3D 





6305 






LDX 


3 


5 




083E 


1 


C700 


08 54 


TlWRK 


LD 


L3 


TIM11 


GET TIME COUNT 


0840 


1 


4C18 


084B 




BSC 


L 


TIGOBtK- 


CALL NOT USED 


0842 





9020 






S 




AONE 




0843 


1 


D700 


0854 




STO 


L3 


TIM11 


RESTORE AOJ CNT 


084 5 


1 


4C20 


084B 




BSC 


L 


TIGOB.Z 




0847 


1 


D780 


0853 




STO 


' 13 


TIM11-1 


SET PROG SW OFF 


0849 


1 


D700 


0853 




STO 


L3 


TIM11-1 


RESET CALL 


084 B 





73FE 




TIGOB 


M[/X 


3 


-2 




084C 





70F1 






MDX 




TiWRK 


CHECK REST OF CALLS 


084D 


1 


4C80 


0835 


TIEXX 

* 


BSC 


I 


TIINT 


EXIT ROUTINE 


084F 





DOOB 




TIERR 


STO 




TTDSW 


SAVE DSW 


0850 


1 


7401 


085A 




MDX 


L 


TIERS, 1 


ADD ONE TO ERR SW 


0852 





70FF 




TITRP 


MDX 




TITRP 


INTR ON SOLID - TRAP 


085 3 





70FF 




* 


MDX 




«-l 


INTR ON SOLID - HANG 


0854 





0000 


0000 


* 
TIM11 


DEC 







CALL THREE 



82201380 
82201390 
82201400 
82201410 
82201420 
82201430 
82201440 
82201450 
82201' 60 
82201470 
82201430 
82201490 
82201500 
82201510 
82201520 
82201530 
82201540 
82201550 
82201560 
82201570 
82201580 
82201590 
82201600 
82201610 
82201620 

82201630 
82201640 
82201650 
82201660 
82201670 
82201680 
82201690 
82201700 
82201710 

82201720 
822017V) 
822017*0 
82201750 
82201760 
82201770 
822017BC 
82201790 
822018uO 
82201810 
822C1820 
82201830 
82201840 
o220185J 
82201 8oO 
82201870 
82201880 
82201890 
82201900 
82201910 
82201920 
82201930 
82201940 
82201950 
82201960 
82201970 
82201V30 
C2201990 
82202000 
82202010 
82202020 
822020 30 
82202040 
822020 50 



CO 

GO 

CO 



0856 0000 0000 
0858 C 0000 0000 
085A 0000 
085B 0000 



085C 
085C 
085D 
085E 
085F 
0860 
0861 
0862 
0863 
0864 
0865 
0866 
0867 
0868 
0869 
086A 
086B 



8000 


1 0873 
1 0873 
1 0873 
1 0873 
1 0873 
0000 

0001 

1 0873 
1 0873 
1 0873 
1 0873 
1 0873 
1 0873 
1 0873 
1 0891 



TIERS 
TIDSW 

* 
* 
* 

* . 

AIIBT 

TICON 



AIDSW 
AONE 



086C 0000 
0e6D 402B 
086E 1 6700 08FA 

0870 6B98 

0871 1 4C80 086C 



* 

* 

* 
* 
* 
* 
* 
. * 
* 
L0PA1 



DEC 
DEC 

DC 
DC 



DC 

EOU 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 



DC 

BSI 

LDX 

STX 

BSC 



CALL TWO 

CALL ONE 

TIMER DSW ERROR SW 

DSW STORAGE 



DSW TRANSFER VECTOR 



/8000 NT USO VECTk - CNSTNT 

AIIBT 

AIERR ERROR ENTRY 

AIERR ERROR ENTRY 

AIERR ERROR ENTRY 

AIERR ERROR ENTRY 

AIERR ERROR ENTRY 

NT USD VECTR - CNSTNT 

1 NT USD VECTR - CNSTNT 
AIERR ERROR EliTRY 

AIERR ERROR ENTRY 

AIERR ERROR ENTRY 

AIERR ERROR ENTRY 

AIERR ERROR ENTRY 

AIERR ERROR ENTRY 

AIERR ERROR ENTRY 

AIEOT ENO OF TABLE ENTRY 



** LOOP PROGRAM ROUTINE ** 

THIS ROUTINE IS ENTERED ONLY FRUM 
MONITOR WHEN THE LOOP PROGRAM BIT 
IS SET ON IN MONITOR. 





RSAI 
L3 AIRAC 
3 MLSCF 

i lopa: 



INITIALIZE PROGRAM 
LOAL' ENTRY ADDRESS 
SET RETURN ENTRY 
EXIT TO MONITOR 



** Al INTERRUPT POUTINE ** 



THE MONITOR ENTERS 
AFTER DETECTING AN 

THE ROUTINE SENSES 

T HE DSW 

ROUTINE 



THIS ROUTINE 
AI INTERRUPT. 

AND EVALUATES 
ANO TRANSFERS TO "HE SUB- 
TO PERFORM THE REOUIRED 



0873 0000 


AIERR DC 







0874 COED 


LD 




AIDSW 


0875 0046 


STO 




CKOSW 


0876 1 7401 0926 


MDX 


L 


AIERS.l 


0878 7001 


MDX 




*tl 



SERVICE. MISSING OR EXTRA OSW BITS 
WILL BE OUTPUTTED IN AN ERROR 
MESSAGE FROM MAINLINE. SEOOOn 



ERROR BITS ENTRY 

THIS SEOUENCE SETS UP TO ENABLE 
LOGGING OF AN ERROR INTERRUPT. 



IE 

SAVE ERROR DSW 
SET FRROR SW ON 



82202060 
82202070 
82202080 
82202090 
82202100 
82202110 
82202120 
8220213G 
82202140 
82202150 
82202160 
82202170 
82202180 
82202190 
82202200 
82202210 
82202220 
82202230 
82202240 
82202250 
82202260 
82202270 
82202280 
82202290 
82202300 
82202310 
82202320 
82202330 
82202340 
82202350 
82202360 
82202370 
82202380 
82202390 
82202400 
82202410 
82202420 
82202430 
82202440 
82202450 
82202460 
82202470 
82202490 
82202490 
82202500 
82202510 
82202520 
8220253C 
82202540 
82202550 
82202560 
82202570 
82202580 
82202590 
82202600 
82202610 
82202620 
8220263C 
82202640 
82202650 
82202660 
82202670 
82202680 
82202690 
82202700 
82202710 
82202720 
82202730 



DATE 


28FEB66 


01MAY66 


01JUL66 


15DEC66 


01SEP67 


14N0V69 


17APR70 


EC NO. 


415120 


415178 


415173 


421206 


411875 


431319 


431321 



PROG ID 
PAGE 



J i o 



C822-1 
2 



DATE 


28FEB66 


01MAY66 


01JUL66 


1SDEC66 


01SEP67 


14N0V6V 


17APR70 


EC NO. 


415120 


415178 


415178 


421206 


411875 


431319 


431321 



PROG ID 
PAGE 



0822-1 
2A 



O D 
O O' 



t < i i 



( ( ( i i ( ( ( ( ( I ( ( { 



i ( 



( ( 
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CO 



0879 70FF 
087A 1 4C80 0873 



087C 
0870 
087E 
087F 
0880 
0881 
0882 
0884 
0885 
0886 
0887 
0889 
088A 
088B 
0880 









1 




1 

FO.,2 

DOOE 

1 4780 085C 
70F7 



0000 

0000 

083D 

DOE 2 

EOOF 

0017 

4418 0873 

630F 

C013 

1340 

4CV8 087D 



088E 0000 
088E 0000 
088F 0721 
0890 FF3E 



0891 

0892 

0893 1 

0895 

0896 

0897 ' 



0000 
C028 

4418 0873 
1010 
D024 
4C80 0891 



0899 

08 9 A 1 

0899 

089C 1 

089E 

08 9F 1 

08 A 1 

OI9A2 1 

08A4 
08A6 
08A7 
08A9 
08AA 
08AB 
08AC 

08AE 1 

08B0 

08B1 1 

08B3 1 

08B5 1 

08B7 

08 B8 



OOjO 
C400 OCAA 



D400 
C81F 
DCOO 
1090 
D400 
6600 
10A0 
DEOO 
72FE 
70FC 
0016 
D400 
D400 
D075 
4400 
6780 
7401 
73F6 
70FC 



0805 
0800 



0809 
0240 



0DC8 



0A<6 
0945 

OBBC 
08C2 
0945 



AITRP 

* 
* 

ACAI 
A1NTR 



AIIBR 



* 
* 

TSNSE 
AIPAS 

* 
* 
*' 
AIEOT 



» 
* 

* 
* 
* 
* 

* 
RSAI 

AHST 



MDX 
BSC 



DC 

DC 

XIO 

STO 

AND 

STO 

BSI 

LDX 

LD 

SLCA 

BSC 

EOR 

STO 

BSI 

MDX 



BSS 

DC 
DC 
DC 



DC 

LD 

BSI 

SLA 

STO 

BSC 



AICNT 



DC 

LD 

EOU 

STO 

LDD 

STD 

SLT 

STO 

LDX 

SLT 

STD 

MD* 

MDX 

STO 

STO 

STO 

S10 

BSI 

LDX 

MDX 

MDX 

MDX 



13 



AITRP 
AIERR 







CKCSW 

AIDSW 

AIPAS 

AIIST 

AIERR, £- 

15 

AIIST 



AINTR,£- 

TICON 

AIIST 

AIIP.T 

AIIBR 






/0721 
/FF3E 



INTR ON SOLID - TRAP 
EXIT ROUTINE IX 



AI AC/MOD STOFAGE 

SENSE-RESET AI DSW 

SAVE DSW 

TURN OFF PASS BITS 

STORE DSW 

ERROR IF OSW ZERO 



SHIFT TO DSW BIT 
EXIT If DONE 



BRANCH TO XFEP VECTOR 
BRANCH 



TIMER SENSE IOCC 
INTERRUPT BITS 



IE 



END-OF-TBL BIT ENTRY 



INTSW 
AIERR, £- 
16 

INTSW 
AIEOT 



LOAD INTER SW 
EXTRA INTER IF OFT 

RESET INTER SW 
EXIT SUBROUTINE 



IE 



IX 



»* INITIALIZATION ROUTINE ** 

THIS ROUTINE PERFORMS THE REQUIRED 
INITIALIZATION FOR RESTART OF THE 
PROGRAM, bUO LOADS THE INITIAL 
ENTRY ADDRESS INTO THE MAIN LINE 
SEQUENCE CONTROL FIELD. 




L AIAAS 

RSAI 
L SW3 

RT01 
L RID 

16 
L MLSCF 
L2 AISTB6546- 

32 
L2 A1SUX-2 

2 -2 
*-4 
AIRSY 

L AICYR 
L TMCNT 
AIERS 
L AISTP 
13 AIRSY 
L TMCNT. 

3 -10 
AICNT 



■1 



LOAD TERMINATOR 
WORD SAVER 
INITIALIZE BIT SW 
LOAD ROUT INF 1 
STO RT ID t ADOR 
SHIFT ENTRY ADDR 
STORE ENTRY 
AISUX 



ZERO WORK AREAS » 

INITIALIZE * 
SWITCHES » 

GO TO SET UP RT 

COUNT M NO. RLY/10 



82202740 

82202750 

82202760 

82202770 

82202780 

82202790 

82202800 

82202810 

82202820 

82202830 

82202840 

82202850 

82202860 

82202870 

82202880 

82202890 

82202900 

82202910 

82202920 

82202930 

82202940 

82202950 

82202960 

822C2970 

82202980 

82202990 

822C3000 

82203010 

822030?0 

82203030 

82203040 

82203050 

822031S0 

82203070 

82203080 

82203090 

82203100 

R2203110 

82203120 

82203130 

82203140 

82203150 

82203160 

82203170 

82203180 

82203190 

82203200 

82203210 

82203220 

8220 3230 

82203240 

82203250 

82203260 

82203270 

82203280 

82203290 

82203300 

82203310 

82203320 

82203330 

82203340 

82203350 

82203360 

82203370 

82203380 

82203390 

82203400 

82203410 



IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 
A I OC SEQUENTIAL FUNCTION TEST 



LD 
OO 

co 



i ) 



08B9 I 4C80 0899 



08 BB 0000 
OBBC 0000 0000 



08BE 0001 
08BF 1 08C3 

08C0 0001 
08C1 1 08FO 
08C2 0000 



08C3 2 4480 0131 
08C5 I 08F8 
08C6 1 0812 
08C7 1 0834 
08C8 1 080A 



08C9 

08C6 

08CC 

08CD 

08CF 

08D0 

08D1 

08D2 

08D3 

08D4 

08D5 

08D6 

08D7 

08D9 

08DA 

08DB 

08DC 

08DD 

080^ 

08DF 

08E0 

06E1 

06E2 

08E3 

08E4 

08E5 

08E7 

OSES 

08E9 

08EA 



1 C400 0813 

4034 
D0C1 

D400 0004 
40ID 
COAB 
E84D 
0046 
E84A 
0046 
EP8D 
00E6 

1 C400 0822 
100E 

180E 

B045 

7003 

7004 

1002 

7003 

1010 

7001 

C040 

E898 

E840 

7400 0833 

E83A 

0034 

C03C 

4C20 0985 



BSC 

* 
* 

INTSW DC 
CKDSW DEC 

* 
» . 

* 
* 

* 
* 

» 
* 



I RSAI 








EXIT ROUTINE 



INTERRUPT SWITCH 
IOCC TO RESET AI DSW 



CONTROL SEQUENCE NUMBER 1 

THIS SEQUENCE REOUESTS THE USE OF 
THE DEVICES USEO IN THIS PROGRAM 
FROM MONITOR. THE FIRST PART 
REQUESTS THE TIMERS AND IS ENTEREO 
ONLY FROM THE INIT I AL I T!ON. T HE 
SECOND PART tRTOlAn REQUESTS THE 
AI AND IS ENTERED PRIOR TO EACH 
CYCLE. ANY SETUP ERROR IS PUTPUTTED 
FROM THIS SEQUENCE. *E006n 



RT01 



DC 
OC 



RT01A OC 

DC 

AIRSY DC 

* 

* 

TMREQ BSI 
DC 
DC 
OC 
DC 

• 

LD 
BSI 
STO 
STO 
AIREQ BSi 



TMREO 

1 

AIJO 





RT 01 - REQ DEVICES 
ENTRY ADDRESS 

RT 01A - REO AI 
ENTRY AODR 
RELAY SWITCH 



AIRG 



AIRL 



LD 

OR 

STO 

OR 

tTO 

OR 

STO 

LO 

SLA 

SRA 

CMP 

MDX 

MDX 

SLA 

MDX 

SLA 

MDX 

LD 



IRDD OR 
OR 
MDX 
OR 
STO 
LO 
BSC 



** R 
REOOV 
TMBSY 
EDiTCl 
TIINT-1 
TERM 

L TIBT1 

MKPOS 

TSNSE 
L 4 

REOAI 
.ACAI 

CONTL 

AIBSTtl 

SDSW- 

RDDSWtl 

AONE 

CKDSWtl 
L AIFRS 

1", 

14 

AIB14 

AIRG 

AIRL 

2 

AIRDD 

16 

AIRDD 

AIB11 

ACAI 

IRD 
L AIXSS.O 

AIB08 

AIIRDU 

AIERS 
L ERMPX.Z 



EQUEST TIMERS »* 

GO REQUEST TIH6RS 
ADDR OF BSY RTRN 
ADDR OF TM DEV OEF 
ADDR OF AC STORAGE 
ADOR OF TERMINATOR 



» 
* 
* 
* 
* 

LOAO TIMER 1 C0N5 
CHANoE SIGN 
STORE CONSTANT 
INITIALIZE TIKER 1 
REQUEST AI 

LOAD AREA COOE £ MOD 
OR CONTROL FUNTION 
STORE IN ;1CC WORD 
OR SENSE FUNTION 
STO IN READ DSW IOCC 
OR BIT 15 
STO IN RESET DSW IOCC 

* 



RESOLUTION ADJUST 
SEQUENCE 



CAN BE EITHER 

14 BIT 

11 BIT 

08 BIT 
OR AREA CODE 
PR READ FUNTION 
CHECK FOR EXT SYNC » 
OR EXT SYNC GIT * 
SET IN IOCC « 
LOAD jETUP ERROR SW 
BRANCH IF ON 
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82203420 
82203430 
82203440 
82203450 
82203460 
82203470 
822034 80 

82203490 

82203500 

82203510 

82203520 

82203530 

82203540 

82203550 

82203560 

82203570 

82203580 

82203590 

82203600 

82203610 

82203620 

82203630 

82203640 

82?03650 

82203660 

82203670 

82203680 

82203690 

82203700 

82203710 

82203720 

82203730 

82203740 

82203750 

82203760 

82203770 

82203780 

82203790 

82203300 

82203810 

82203820 

82203830 

82203840 

82203850 

82203860 

82203870 

82203880 

82203890 

82203900 

82203910 

82203920 

82203930 

622039<,0 

82203950 

82203960 

82203970 

822"j3980 

82203990 

82204000 

82204010 

82204020 

82204030 

82204040 

82204050 

822040&0 

82204070 

82204080 

82204090 



DATE 


28FEB66 


01MAY66 


01JUL66 


15DEC66 


C1SEP67 


14N0V69 


17APR70 


EC NO. 


415120 


415178 


415178 


421206 


411875 


431319 


431321 



PROG ID 
PAGE 



o 



0<»22-l 
3 



U 



o • 


DATE 
EC NO. 


28FEB66 
415120 


01MAY66 
41517f 


01 JUL 66 
415178 


15DEC66 
421206 


01SEP67 
411875 


14N0V69 
431319 


17APR70 
431321 


PROG ID 
PAGE 


C322-1 
3A 


O ■ 










- 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 



08EC 700E 



08ED 0000 
08EE C8D1 
08EF 7058 



08F6 1 4C r 08ED 



08F8 C8C5 
08F9 704E 



08FA 40F2 
08FB 1 7401 0A46 
08FD 7029 



08FE 
0900 
0901 
0902 
C903 



Q904 1 



0000 0000 

0000 

D8FC 

10A0 

98FA 

4C80 0900 



0906 
09C7 
0908 
0909 
090A 
090C 
090D 
09 OF 



6A1F 
0810 
08B3 
0810 

4C18 0927 
DOOB 

4400 098P 
E001 



0910 2 4480 0132 

0912 1 0811 

0913 1 080A 



MOX 



AIRACtl 







* 




08F0 2 4480 


0131 


AIJO 


BSI 


08F2 1 08EE 






DC 


08F3 1 0811 






DC 


08F4 1 087C 






DC 


08F5 1 080A 






DC 



REQAI DC 

AIBSY LDD RT01A L0A3 ROUTINE 1A 

MDX AIEXX BRANCH TO EXIT 
********************** *** **********»*»»*»«»*» 

»* REOUEST AI ** * 

I REODV GO REOUEST AI « 

AI8SY ADDR OF BSY RiRN * 

EDIT ADDR OF AI DEV DEF * 

ACAI ADDR OF AC STORAGE * 

TERM ADDR OF TERHINATOR » 



SE 



****************** **************.»*»»«»»,,,,»»»» 



BSC I REQAI 



* 

TMBSY 
* 
AIRAC 



* 
* 
* 

* 
* 

* 

PDSWK 

MKPOS 



« 
* 

* 
* 
* 

* 
* 

AIERL 
AISRT 



LDD 

MDX 



BSI 
MDX 
MDX 



RT01 
AIEXX 



REQAI 
AICYR.l 
A I IMP 



EXIT ROUTINE 



LOAD ROUTINE 1 
BRANCH TO EXIT 



CO REQUEST A I 

ADD 1 TO CYCLE CNTR 

BRANCH TO RT03 



SX 



** CHANGE SIGN SUBROUTINE »» 



THIS SUBROUTINE CHANGES THE SIGN 
OF THE VALUE IN AtC, AND RETURNS 
VALUE IN AtO. TmE 
A ONE WflfiD VALUE IN 
A BUT Q MUST # ZERO. 



WITH THE NEW 
VALUE CAN BE 



DEC 

DC 

STP 

SLT 

SO 

BSC 







POSWK 

32 

POSWK 

MKPOS 



WORK AREA 



SE 



SX 



CONTROL SEQUENCE NUMBER 2 

THIS SEQUENCE SENSES AND RESETS 
THE AI DSW. NONZERO DSW WILL OUT- 
PUT AN ERROR. JE001D 



STX 
XIO 
XIO 

xir 

BSC 
STO 
BSI 
AND 



AIERS 

AIBST 

CKDSW 

RDDSW 

AIINPtC- 

ERDSW 

AIERC 

*&! 



RESET ERROR SW 

RESET AI 

CHECK DSw 

SEN r E DSW 

TO RT03 IF DSW « 

STORE DSW FOR PRINT 

MID FOR DSW NOT RESET 



******* ************************************** 
* ** RELEASE 41 *« * 

ENDAI BSI I RELDV GO TO RELEASE AI * 
OC EDIT ADDR OF AI DtV CEF * 
OC TERM ADDR OF TERMINATOR * 
********************************»***»*«*,*»,« 



DATE 


28FEB66 


01MAY66 


01JUL66 


15DEC66 


01SEP67 


14N0V69 


17APR70 


EC NO. 


415120 


415178 


415178 


421206 


411875 


431319 


431321 



82204100 

82204110 

82204120 

82204130 

82204140 

82204150 

82204160 

822C4170 

822041.10 

82204190 

82204200 

82204210 

82204220 

82204230 

82204240 

82204250 

82204260 

82204270 

82204280 

82204290 

82204300 

82204310 

82204320 

82204330 

82204340 

82204350 

82204360 

82204370 

82204380 

82204390 

82204400 

82204410 

82204420 

822044 30 

82204440 

822044 50 

82204460 

82204470 

82204480 

82204490 

82204500 

82204510 

8220452„ 

82204530 

82204540 

82204550 

82204569 

62204570 

82204580 

82204590 

8220'»600 

82204610 

82204620 

82204630 

82204 640 

82204650 

82204660 

82204»-70 

822046R0 

82204690 

822047C0 

82204710 

82204720 

82204730 

82204 740 

82204/50 

82204 760 

82204770 



PROG ID 
PAGE 



A I DC SEQUENTIAL FUNCTION TEST 



CO 

co 



6 O 



0914 2 4C80 012E 



0916 C83F 

0917 7030 



0918 
0918 
091A 
091C 1 
091D 
09 IE 
09 IF 
0920 
0921 
0922 
0923 
0924 



0000 0000 

0000 0000 

0D20 

0000 

0700 

0400 

0000 

0002 

0080 

0010 

0000 



0925 0600 

0926 0000 



092 7 
0928 
092A 
092C 
092E 
0930 
0932 
0933 
0934 
0936 
0938 



10AO 

1 C400 
1 4C20 
1 C400 
1 4420 
1 7400 
707t 

C08E 

1 4C18 
1 7400 
70DD 



0804 
OCBA 
0803 
0CA4 
085A 



093D 
0920 



0939 1 4400 0C15 
093B 0003 
093C 1 0920 

09 3D 08 DE 

093E 1 7401 08BB 

0940 1 7400 0833 
0942 700C 



0943 1 4400 0C15 

0945 0000 

0946 1 0924 



0947 C810 

0948 1 OCOO 0800 
094 A 1090 
0948 1 0400 0809 
094D 2 4C80 012D 



094F 08CA 
0950 1 4C20 0943 



BSC 



LDD 
MDX 



DEC 

EOU 

DEC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 



* 
* 
AIINX 

* 

* 

AIBST 

ERDSW 

RDDSW 

AI1RD 

SDSW 

CONTL 

AITMS 

AIB14 

AIB08 

AIB11 

TMSSW 

• 

* 

* 



* 

* 

* 

1RD DC 

AIERS OC 

* 

AIINP SLT 

LD 

BSC 

LD 

BSI 

MDX 

MDX 

LD 

BSC L 

MDX L 

MDX 
************* 
* 

esi l 

DC 

OC • 

•********•••« 

AIIZZ XIO 

MDX L 

MDX L 

MDX 
************* 
* 

BSI L 
TMCNT DC 

DC 
* 

*••********»* 
AfEXB LDD 
AIEXX STD 

SLT 

STO 
AIRTM BSC 
* 

XTSNC XIO 
BSC 



END END PROGRAM EXECUTION 



RT03 LOAD ROUTINE 3 
AIEXX BRANCH TO EXIT 



BLAST .OCC WORD 

AIBST WORD SAVER 

IOCC TO RD A I DSW 

AIDRT-2 IOCC TO INIATE READ 


/0700 SENSE FUNTION 

/0400 CONTROL FUNTION 

TIMER SWITCH 

/0002 BIT 14 CONSTANT 

/0080 BIT 08 CONSTANT 

/10 BIT 11 CONSTANT 

TIME SWIVCH 

CONTROL SEQUENCE NUMBER 3 

THIS SEQUENCE STARTS THE TIME 
DEI AY FOR RELAY AND LOST END 
OF TABLE INTERRUPTS. IT ALSO 
IN1ATES THE READ OPERATION. 



/0600 
C 



ERROR SWITCH 



32 CLEAR AGO 

SW2 LD BIT SW WORD 2 

A1DER.Z GO TO ADD DATA 

SW1 LD BIT SW WORD 1 

AIVED,Z CO TO VERIFY DATA 

TIERS. TEST FOR TIMER ERROR 

LGTER GO LOG TIMER ERROR 

AIRSY LOAD RELAY SW 

AIIZZ, -C BR Tu RD IF MOT RlY 

AITMS.O SKIP IF TMR SW IS OFF 

AIINX BRANCH TO EXIT 
*****»*»*****»********»*#**»«,,«,» 

** TIMER *» * 

TIMER GO TO TIMER * 

3 INTERRUPT COUNT * 

/.1TMS ADDR OF TIME SWITCH* 
****** ************************** 

AIIRD INITIATE READ 
INTSW.l TURN INTR SW ON 
A'XSS.O CHECK FOR EXT S\ NC 
XTSNC BRANCH FOR EXT SYNC 

•*•••***•***•**•*••••*•*******,» 

** TIMER CALL ** * 

TIMER GO TO TIMER * 

INTERRUPT COUNT * 

TMSSW ADDR OF TIME SWITCH* 

• 

• A*****************,,*.,,****,,,*** 

RT04 LOAD ROUTINE 4 

RIO STO RT ID (. ADDR 

16 SHIFT ENTRY ADD'' 

MLSCF .STORE ENTRY AODRl -S 

START RETURN TO MONITOR 



RDDSW 
TMCNT-2.Z 



READ PSW 
CHECK FOR BUSY 



PART NO. 2196394 
PAGE 4A 



0C22-1 

4 



DATE 


28FEB66 


01MAY66 


01JUL66 


150EC66 


01SEP67 


14N0V69 


17APR70 


EC NO. 


415120 


415178 


415178 


421206 


411875 


431319 


431321 



82204780 
82204790 
82204800 
82204810 
82204820 
82204830 
82204840 
82204850 
82204860 
82204870 
82204880 
82204890 
82204900 
82204910 
82204920 
82204930 
82204940 
82204950 
82204960 
82204970 
82204980 
82204990 

82205000 
82205010 
82205020 
82205030 
82205040 
82205050 
82205060 
82205070 
82205080 
822050^0 
82205100 
82205110 
82205120 
82205130 
82205140 
82205150 
82205160 
82205170 
82205180 
82205190 
82203200 
82205210 
82205220 
82205230 
82205240 
82205250 
82205260 
82205270 
82205280 
82205290 
822053CO 
82205310 
82205320 
82205330 
82205340 
82205350 
82205360 
82205370 
82205380 
82205390 
82205400 
82205410 
82205420 
82205430 
82205440 
82205450 



PROG ID 
PAGE 



0822-1 
4A 



O . 

o o 



I i 



i i 



J 



IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 



OO 

OO 

CO 



A I DC SEQUENTIAL FUNCTION TEST 

0952 1 7400 08BB 

0954 70FA 

0955 70ED 

* 

* 

* 

* 
* 
* 

* 
* 



DATE 
EC NO. 



0956 0000 
0956 0003 
09*7 1 0927 

0958 0004 

0959 1 095A 



095A 
095 B 
095C 

095 E 
095F 
0960 
0962 
0964 
0965 
0966 
0967 
0968 
096A 

096 B 
096D 
096E 

096F 
0970 
0971 
0973 
0974 
0976 
0977 
0978 
0979 
097A 
0976 
097C 



08BF 

DOBE 

7400 08BB 

701E 

E02E 
1 4C18 '.968 
1 V400 0924 
70E2 
D0B2 
4028 

E007 

1 C400 0802 

1009 

1 4C28 09B0 
08AE 

4000 



0000 

08A9 

4418 096F 

08A4 

OCOO 08BC 

08A3 

48 IP 

7037 

D09E 

4014 

E008 

70FB 



097D 1 7400 0924 
097F 70C7 

0980 0097 

0981 4000 

0982 E003 

0983 C096 

0984 700A 



MDX 
MOX 
MDX 



RT03 

RT04 

* 
AIENB 

AICKC 



AIENX 



A1CKB 

BLTRP 



AIFXT 



BSS 

DC 
DC 
DC 
DC 

XIO 

STO 

MDX 

MDX 

AND 

BSC 

MDX 

MDX 

STO 

BSI 

AND 

LD 

SLA 

BSC 

XIO 

8SI 

DC 

XIO 

BSI 

XIO 

XIO 

XIO 

BSC 

MDX 

STO 

BSI 

AND 

MDX 



* 
* 
* 
AICKT 



MDX 

MDX 

STO 

BSI 

AND 

LD 

MDX 



* 
* 

* 



28FEB66 
415120 



01MAY66 
415178 



01JUL66 
415178 



INTSW.O CHECK FOR INTER 
XTSNC LOOP FOR BUSY 
TMCNT-2 EXIT IF INTER OFF 



CONTROL SEQUENCE NUMBER 4 . 

THIS SEQUENCE IS ENTERED FROM 
MONITOR AS LONG AS THc AI IS 
BUSY. IT CHECKS FOR LOST FND 
OF TABLE INTERRUPTS AND PROPER 
OPERATION OF THE BUSY eiTS AND THE 
BLAST INSTRUCTION. IT INITIATES 
THE OUTPUT OF AN CRROR WHEN ONE IS 
DETECTED. TE003, E007, £008n 





3 

AIINP 

4 

AIENB 

RDDSW 

RUDSW 

INTSW.O 

AICKT 

BSYBT 

AIENX, E- 

TMSSW.O 

AIEXB 

ERDSW 

AIERC 

*67 

SWO 

9 

AIEVL.CZ 

AIIRD 

A1CKB 



RDDSW 

ATCKB.l- 

A1BST 

CKDSW 

RDDSW 

6- 

AIEVL 

ERDSW 

AIERC 

*£8 

AIEXT 



TMSSW.O 

AIEXB 

ERDSW 

AIERC 

♦ 63 

RDDSW 

AICKC 



RT 03 - INPUT RT 
ENTRY ADDRESS 
RT 04 - INTFR/BSY CK 
ENTRY B ADDRESS 

READ DSW 

STORE BSY BITS 

CHECK FOR INTERRUPT 

GO CHECK TIME 

BUSY BITS 8 t 9 

GO EVALUATE IF BSY OFF 

CHECK FOR TIKCQUT 

BRANCH TO EXIT 

STORE BITS FOR PRINT 

GO LOG ERROR 

MID FOR BSY ON ERROR 



BYPASS BLAST AI 
INITIATE READ 
PREVENT NTERRUPT 



SENSE DSW 

BRANCH IF ZERO 

RESET AI 

RESET DSW • 

READ DSW 

ERROR IF NOT ZERO 

GO TO EVALUATE 

SAVE ERROR DSW 

GO LOG ERROR 

MID FOR BLAST FAILING 

BRANCH TO EXIT 



CHECK FOR TIMEOUT 

BRANCH TU EXIT 

STORE FOR PRINT 

GO LOG ERROR 

MID FOR LOST EOT ERROR 

LOAD BUSY BITS 



SETUP ERROR CALL 

SETUP ERROR IS LOGGED BY THIS CALL. 
AFTER LOGGING CONTROL IS TRANSFERED 
TO THE DATA ENTRY ROUTINE. 



15DEC66 
421206 



01SEP67 
411875 



f4N0V69 
431319 



J7APR70 
431321 
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82205460 

82205470 

82205480 

82205490 

82205500 

82205510 

82205520 

82205530 

82205540 

82205550 

82205560 

8 22055.0 

82205580 

82205590 

82205600 

82205610 

82205620 

822C5630 

82205640 

82205650 

82205660 

82205670 

82205680 

82205690 

82205700 

82205710 

82205720 

82205/30 

82205740 

32205750 

82205760 

82205770 ' 

82205780 

82205790 ■ 

82205800 

82205810 

82205 820 

62205830 

82205840 

82205850 

62205860 

82205870 

82205880 

82205890 

6^205900 

82205910 

82205920 

327C5930 

82205940 

82205950 

82205960 

82205970 

82205980 

82205990 

82206000 

822060? 

82206020 

82206030 

822060<-0 

82206050 

82206060 

82206070 

82206080 

82206090 

82206100 

82206110 

82206120 

82206130 



PROG ID 
PAGE 



o 



IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 
A I DC SEQUENTIAL FUNCTION TEST 
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CO 
OO 

co 



o 



0822-1 
5 



O 



O' 









* 






32206140 








* 






82206150 








♦♦♦a***************************************** 


92206160 








* 




** LOG CALL ** * 


82206170 


0985 


1 


4400 0C42 


ERMPX BSI 


L LOGCL 


GO LOG ERROR * 


82206180 


0987 





0002 


OC 


2 


WORD COUNT * 


82206190 


0988 





0000 


DC 





HEX-DEC XHEXn * 


82206200 


0989 


1 


OCBA 


DC 


AIDER 


RTRN.ADDR. * 


$ 32206210 


098A 





E050 


DC 


/E050 


MSG.I.D. * 


S 82206220 


098 B 





2000 


DC 


/2000 


BYPASS BIT * 


82206230 


098C 


1 


0828 


DC 


AIIAT 


v ADDR OF 1ST MPX ADD* 


82206240 


0980 


1 


0816 


DC 


AIMPX 


jADDR OF 1ST EVL ADO* 
J * 


82206250 












82206260 








tit****************************************** 


82206270 


098E 





ooco 


BSYBT DC 


/OOCO 

*» 


BUSY BITS 8 & 9 
ERROR LOG ROUTINE ** 


822062 80 
82206290 
82206300 
62206310 
82206320 
82206330 










THIS ROUTINE IS ENTERED WHFN EVER 


82206340 










AN AI 


ERROR IS DETECTED. ALL ERRORS 


82206350 










WHICH 


OCCUR DURING MAINLINE 


82206360 










OPERATION HAVE AN UNIQUE ID NUMBER. 


82206370 










AND EACH ONE IS OUTFUTTED UNLESS 


82206380 










BYPASSED BY BIT 11 ON IN SWO. 


82206390 


. 








ERROR 


DETECTED IN INTERRUPT WILL 


82206400 










BE COUNTED AND THE INFORMATION FOR 


82206410 










THE LAST ONE DETECTED WILL BE OUT- 


R2206420 










PUTTEO 


AFTER RETURN TO MAINLINE. 


82206430 










THE 3AND« FOLLOWING THE BSI TO 


82206440 










AIERC 


IS THE MESSAGE 10 FOR THAT 


82206450 










CALL AND IS EXECUTED UPON RETURN 


822064 60 










FROM THE ERROR CALL. 


82206470 














82206480 














82206490 


098F 





0000 


AIERC DC 





SE 


62206500 


0990 


1 


C480 098F 


LD 


I AIERC 


LOAD MID 


82206510 


0992 





E813 


OR 


H0040 




t 82206520 


0993 





D006 


STO 


ERMID 


STO IN ERROR CALL 


82206530 








I**********************-*********************** 


82206540 








* 


** 


ERROR CALL ** * 


82206550 


09V, 


1 


4400 0C50 


BSI 


L ERRCL 


GO TO ERR CALL SBRT* 


82206560 


0996 


1 


0906 


DC 


AIERL 


LOOP ERROR ENTRY » 


82206370 


0997 





0005 


OC 


'5 


WORD COUNT * 


82206580 


0998 





0000 


DC 





HEX-DEC SW SJHEXn * 


82206590 


0999 


1 


09A1 


DC 


ERCAJ 


RTRN.ADDR. * 


$ 62206600 


099A 





0000 


ERMID DC 





MESSAGE ID * 


82206610 


099B 





1080 


DC 


/1080 


BYPASS BITS * 


82206620 


099C 


1 


096F 


DC 


AIERC 


ADDR OF ERROR ID * 


82206630 


O990 


1 


0°18 


DC 


ERDSW 


ADOR OF DSW * 


82206640 


099E 


1 


08BC 


DC 


CKDSW 


INTR ERROR DSW AJDR* 


82206650 


099F 


1 


0926 


DC 


AIERS 


ERROR SW * 


82206660 


09A0 


1 


0A46 


DC 


AICYR 


CYCLE COUNTER * 


82206670 








*»#*#«i»*»a**»**»****»*****»v*»***»**e*w**#*** 


822066 80 


09 A 1 





6A84 


ERCAI STX 


2 AIERS 


RESET ERROR SW 


82206690 


09A2 


1 


6E00 08BC 


STX 


L2 CKDSW 


RESET ERROR DSW 


82206700 


09A4 


1 


4C80 098F 


BSC 


I AIERC 


EXIT ROUTINE SX 


82206710 


09A6 





C040 


H0040 OC 


/0040 
TIMER 


CONSTANT 

TIMER DSW ERROR CAll 

OSW ERRORS ARE LOGGED FROM 


$ 82206720 
82206730 
82206740 
82206750 
82206760 
82206770 










THIS 


CALL. AF7FR LOGGING THE PROGRAM 82206780 


• 








IS ENDED .!ND CONTROL RETURNED TO 
MONITOR. tCOOOD 


82206790 
82206800 














62206810 



DATE 


28FEB66 


01MAY66 


01JUL66 


15DEC66 


01SEP67 


14N0V69 


17APP70 


PROG ID 


0822-1 


EC NO. 


415120 


415178 


415178 


421206 


411875 


431319 


431321 


PAGE 


5A 



( 4 ( 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 
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T- 











* 












82206820 










********************************************* 


82206830 










* 








** 


LOG CALL ** * 


82206840 


09A7 


1 


4400 


0C42 


LGTER 


BSI 


L 


LOGCL 




GO LOG ERROR * 


82206850 


09A9 





0002 






DC 




2 




WORD COUNT * 


82206860 


09 AA 





0000 






OC 









HEX-DEC SW XHEXn * 


82206870 


09 A B 


1 


0910 






DC 




ENDAI 




RTRN.ADDR. * 


$ 82206880 


09AC 





C040 






DC 




/C040 




MSG.I.D. * 


* 822C6890 


09AD 





4004 






DC 




/4004 




BYPASS BITS * 


82206910 


09 AE 


1 


085B 






DC 




TIDSW 




ADDR OF DSW * 


82206910 


09AF 


1 


085A 






DC 




TIERS 




ADDR OF ERROR SW * 


82206920 










********************************************* 


82206930 










* 












82206940 










* 












82206950 










* 








DATA 


EVALUATION SEOUENCE 


82206960 










* 












82206970 










* 






THIS SEOUENCE IS ENTERED AFTER EACH 


82206980 










• 






CYCLE 


TO EVALUATE, SORT AND SAVE 


82i.06990 










* 






THE INPUT 


DATA FOR THE CALCULATIONS. 


82207000 










* 






DATA WHICH 


IS NOT WITHIN THE LIMITS 


82207010 










* 






TO BE 


SAVED FOR CALCULATIONS IS 


82207020 










* 






OUTPUTTEO 


FOR IMMEDIATE OBSERVATION. 


82207030 










* 






THIS OUTPUT MESSAGE CAN BE OMITTEO 


82207040 










* 






BY SETTING 


BIT 12 OF BITSW WORD 


82207050 










* 






ON. 






82207060 










• 












82207070 










* 












822C7080 


098F 









AIWKJ 

* 
* 


EOU 




AIERC 




WORD SAVER 


822070O0 
82207100 
82207110 


09B0 


1 


7400 


0926 


AIEVL 


MDX 


L 


AIERS, 





TEST ERROR SW 


82207120 


09B2 





400C 






BSI 




AIERC 




GO LOG ERROR 


82207130 


09B3 





EOOO 






AND 




*C0 




MID FOR INTR ERROR 


82207140 










********************************************* 


82207150 










* 






** 


RELEASE AI ** * 


82207160 


09 B4 


2 


4480 


0132 




BSI 


I 


RELDV 




GO TO RELEASE AI » 


82207170 


09B6 


1 


0811 






DC 




EDIT 




ADDR OF AI OEV OEF * 


82207190 


09B7 


1 


080A 




* 


DC 




TERM 




ADDR OF TERMINATOR * 

* 


82207190 
82207200 










********** ************* 


********************* 


82207210 


C9B8 





610C 






LOX 


1 









82207220 


Q9B9 


1 


C400 


0814 


AIEV1 


LD 


L 


AIMOD 




LD ADC MOD SWITCH 


82207230 


09BB 





1090 






SLT 




'6 




SET CARRY ZERO 


8220724o 


09BC 


1 


C560 


0DO4 




LO 


11 


AIDTA 




LD VALUE READ 


82207250 


09BE 


1 


4C04 


0400 




BSC 


L 


AIOVL. 


E 


BR IF OVERLOAD 


82207260 


09C0 


1 


440 2 


0900 




BSI 


L 


MKPOS, 


C 


BR IF CARRY ON 


82207270 


09C2 


1 


D5C0 


0DD4 




STO 


11 


AIDTA 




RESTORE NEW VALUE 


82207280 


09C4 





1881 






SRT 




1 






82207290 


09C5 





D0C9 






S T 




AIWKJ 




SAVE VALUE READ 


82207300 


09C6 





1890 






SRT 




16 




SHIFT RDNG TU 


82207310 


09C7 


1 


8D80 


OCEE 




AD 


11 


AISUM 




TO BE ADDED TO SUM 


82207320 


09C9 


1 


DD80 


OC£E 




STD 


11 


AISUM 




TOTAL OF GOOD RDGNS 


82207330 


09CB 


1 


C500 


0DD9 




LD 


LI 


AIGRD 




**** 


822073*0 


09CD 





807C 






A 




AIONE 




ADD 1 TO GRDING CTR* 


82207350 


09CE 


1 


D500 


0DD9 




STO 


LI 


AIGRD 




***• 


82207360 


09C0 





10A0 






SLT 




32 




CLEAR A £ 


822073 70 


090 1 





COBD 






LD 




AIWKJ 




LD VALUE READ 


82207380 


09D2 


1 


9500 


081C 




S 


LI 


AIPRC 




SUBT PREC READING 


82207390 


09D4 





0029 






STO 




MDY04E1 


save Difference 


82207400 


0905 


1 


4428 


0900 




BSI 


L 


MKPOSi 


£Z 


GO TO MAKE POSITIVE 


82207410 


0907 


1 


9400 


0B17 




S 


L 


FTFOR 




SUBT TABLE LIMIT 


82207420 


0909 


1 


4C08 


09F9 




BSC 


L 


AICNCi 


L 


BR IF WITHIN LIMIT 


822074 30 


090B 


1 


C500 


ODDE 




LD 


LI 


AIOTR 




LO OUT OF TABLE CNTR 


82207440 


09DD 





806C 






A 




AIONE 




ADD 1 TO OTC 


82207450 


09DE 


1 


0500 


ODOE 




STO 


LI 


AIOTR 




SET OTC # 0TC£1 


82207460 


09EO 


1 


C500 


0816 




LO 


LI 


AIMPX 






822074 70 


09E2 





4075 






BSI 




AIMPC 






82207480 


09E3 


1 


C5 00 


081C 




LD 


LI 


AIPRC 






822074 90 
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CD 

T- 

co 



09E5 D06F 
09E6 1 C500 0823 
09E8 D06F 
09E9 C0A5 
09EA 1 4400 0B98 



09EC 1 4400 0C*2 
09EE 0006 
09EF 1001 
09F0 1 0A05 
09F1 A041 
09F2 O 0804 
09F3 1 0A54 
09F4 1 0A55 
09F5 1 098F 
09F6 1 0BB6 
09F7 1 0BB7 
09F8 1 0A46 



09F9 
09FA 
09FC 
09FD 

09FF 
OAOO 
0A02 
0A03 
0A05 
0A06 
0A07 
0A08 
OAOA 
OAOC 
OAOE 
0A1O 
0A12 
0A14 
0A15 
CA17 
0A*8 
0A19 
0A1A 
OAK 
0A1D 
0A1F 



C004 

1 8500 
0001 
7401 

7005 

1 C500 

8047 

1 05 00 
7101 
6949 

C048 

1 F400 
1 4C20 
1 C400 
1 4C18 
1 6780 
1 C780 

1881 

1 0700 
73FF 
70F9 

1010 

1 D400 

C029 

1 F400 
1 4C20 



0CF3 
0000 
0DE3 
0DE3 



0B93 
09B9 
0821 
0A1C 
0B9 3 
0DD3 

081B 



0821 



0815 
08FA 



0A21 





6100 




0A22 





C023 




OA23 





A032 




0A2". 





A822 




0A25 





0025 




0A26 





1090 




0A27 


1 


4C18 


0A2B 


0A29 


1 


7401 


0A4B 



AIWKHtl 

LI RANGE 

AIWKE 

AIWKJ 

L AIDCN 



SAVE PREC RDNG 



***** 

* 



AIHXS 



SAVE FOR LOG 
LD VALUE READ 

GO TO DEC CNVP.T RTN 
********************************** 

»* LOG CALL ** * 



***** 

* 

AICNC 



STO 
LD 
STO 
LD 

BSI 

****** 

BSI 
OC 

DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
********** *** **************** *********** 



LOGCL 

6 

/1001 

AIZX1 

/A041 

/0804 

AIWKH 

AIWKHtl 

AIWKJ 

AIWKL 

AIWKLC1 

AICYR 



GO TO LOG CALL SBRT* 
WORD COUNT 
HEX-DEC SW HOECn 
RTRN.ADOR. 
MSG.I.D. 
BYPASS BITS 
MPX ADDRESS 
PREC VALUE 
VALUE READ *0ECn 
VALUE READ TVOLTn 
VALUE READ XVOLTn 
CYCLE COUNTER 



MDY04 
AIOVL 

AIZX1 



AISPR 



AI0A4 
I0A5 



LD 
A 

STO 
MDX 

MDX 

LD 
A 

STO 

MDX 

STX 

LD 

EOR 

BSC 

LD 

BSC 

LDX 

LD 

SRT 

STO 

MDX 

MDX 

SLA 

STO 

LD 

EOR 

BSC 



LDX 

LD 

M 


STO 
SLT 

BSC 
MDX 



MDY04£1 
LI AISPT 

M0 V '04£1 
L 0,1 

AIZX1 
LI AIOVC 

AIONE 
LI AIOVC 

1 : 

1 



AIWKF 

AIWKF 
L AtWCl 
L AIEV1.Z 

L MAPR 
L AI0A4.6- 
13 AIWC1 
13 AIDTA-1 

1 
L3 AIPRC-1 
3 -1 

AISPR 

16 
L AIAPR 
'AICYR 
L AICYC 
L AIRACZ 



LOAD DIFFERENCE 
ADD SPT ADDR TO DIFF 
SET ADDR OF RD CNT 
SfcT RD CNTURD CNTS1 

BRANCH 

**** 
ADD 1 TO OVLO CNTR * 

***• 

STO XI IN WK AREA 
LD WK AREA 

EOR NUMBER OF POINTS 
BR TO CK NEXT PT 

LD AUTO PREC SW 
BR IF SW # OFF 
COMPARE # 
LOAD VALUE READ 

SET 4 NT0 PREC TBL 
SUBT 1 FROM INDEX 
BRANCH 

ZERO AUTO PREC SW 
LD CYCLE COUNT 

BRANCH IF MORE CYCLES 



PR01 
PM01 



PERCENT CONSTANT SETUP 
SEOUENCE 

CONSTANT * 99.7 PCENT OF CYCLES 



RESET INDEX * 

AICYR LD NO OF CYCLES 

C0997 MULT BY 99.7 PERCENT 
A 1000 

P9970 STORE CONSTANT 

16 SHIFT REM TO A 

*£2,£- CHECK FOR FRACTIO*' 

P9970.1 ADD 1 FOR FRACTION 



DATA CALCULATION SEOUENCE 

THIS SEOUENCE IS ENTERED WHEN THE 
SPECIFIED NUMBER OF CYCLES IS 



PART NO. 2196394 
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82207500 
82207510 
82207520 
82207530 
82207540 
82'07550 
82207560 
82207570 
822075 80 
82207590 
82207600 
82207610 
82207620 
82207630 
82207640 
82207650 
82207660 
82237670 
82207680 

82207690 
82207700 
82207710 
82207720 
82207730 
82207740 

82207750 
82207760 
82207770 
82207780 
82207790 
82207800 
82207810 
82207820 
82207830 

82207840 
82207850 
82207860 
82207870 
82207880 
82207890 
S2?07900 
82207910 
82207920 
82207930 
8220 7940 
82207950 
82207960 
82207970 
82207980 
82207990 
82208000 
82208010 
82208020 
82208030 
82208040 
82208050 
822^8060 
82206070 
82208080 
82208090 
82208100 
82208110 
82208120 
82208130 
82208140 
82208150 
82208160 
82208170 



\J 



u 



DATE 


26FEB66 


01MAY66 


01JUL66 


15DEC66 


01SEP67 


14N0V69 


17APR70 


PROG ID 


0t22-l 


EC NO. 


415120 


415178 


415178 


421206 


411875 


431319 


431321 


PAGE 


6 



DATE 


28FEB66 


01MAY66 


01JUL66 


150EC66 


01SEP67 


14N0V69 


17APR70 


PROG ID 


0822-1 


EC NO. 


415120 


415178 


415178 


421206 


411875 


431319 


431321 


PAGE 


6A 



r\ cs 



( 4 ( I 



44444444444 
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CO 
CD 

«r 
CO 













COMPLETED, 


THE CALCULATIONS PERFORMED 82208180 












IN THIS 


SEQUENCE ARE. MEAN, VOLTAGE 


82208190 












MEAN, ACCURACY PERCENT, AND 




82208200 












REPEATABILITY PERCENT. 




82208210 




















82208220 


0A2B 1 C500 


0816 


AIVP1 


LO 


LI 


AIMPX 




LD MPX ADDR 




82208230 
82208240 


OA2D 402A 






BSI 




AIMPC 








822082 50 


0A2E 1 C500 


0823 




ID 


LI 


RANGE 




LOAD RANGE 




82208260 


0A30 D027 






STO 




AIWKE 




SAVE RANGE 




82208270 


0A31 1 C500 
OA33 1 4400 
0A35 1 C500 


08 1C 
0B98 
081C 




LD 

BSI 

LD 


LI 

L 
LI 


AIPRC 
AIDCN 
AIPRC 




GO TO OEC CNVRT RT 




82208280 
62208290 
82208300 


0A37 AOll 
0A38 0819 






M 
STD 




TEN 
AIWKG 




SAVE PREC READING 




82208310 
82208320 






******** ******»***************<*****»,*„*„* 


82208330 






* 






** LOG 


CALL ** 


* 


82208340 


0A39 1 4400 


0C42 




BSI 


L 


LOGCL 




GO TO LOG CALL SBRT* 


82208350 


0A3B 0006 






OC 


. 


6 




WORD COUNT 


* 


82208360 


0A3C 2801 






DC 




/2801 




HEX-DEC SW SDECn 


* 


82208370 


0A3D 1 0A64 






DC 




AI3 




RETURN ADOR 


* 


82208380 


0A3E D001 






DC 




/D001 




MESSAGE ID 


» 


82208390 


0A3F 0204 






DC 




/0204 




BYPASS BITS 


* 


82208400 


0A40 1 0A54 






OC 




AIWKH 




POINT NO 


• 


82208410 


0A41 1 0A58 






DC 




AIWKE 




RANGE 


* 


82208420 


0A42 1 0A52 






DC 




AIWKG 




PRECISION REAOING 


* 


82208430 


0A43 1 0A53 






DC 




AIWKGtl 




PRECISION READING 


* 


82208440 


0A44 1 0BB6 






DC 




MWKL 




DECIMAL VALUE 


* 


822084 50 


0A45 1 0BB7 






DC 




A'.WKLU 




DECIMAL VALUE 


• 


82208460 






****** *v********** ****** 


********* ************ 


822084 70 






* 














82208480 


0A46 0000 




* 
AICYR 


DC 









CYCLE COUNTER 




8220 8<> 90 
82208500 


0A47 03E8 




A1000 


DC 




1000 




CONSTANT 1000 




8 220 8510 


0A48 4000 
0A49 000A 




AIRSC 
TEN 


DC 
DC 




/4000 
10 




CONSTANT FULL SCALE 
CONSTANT TEN 


82208520 
82208530 


0A4A 0001 




AIONE 


DC 




1 




CONSTANT 1 




82208540 


CA4B 0000 




P9970 


DC 









99.70 PCENT VALUE 




82208550 


0A4C 0000 


0000 


VMEAN 


DEC 









MEAN IN VOLTAGE 




822D8560 


0A4E 0000 


0000 


MEAN 


DEC 









MEAN IN DIGITS 




822085 70 


0A50 0000 


0000 


A 1 «'K F 


DEC 









WORK AREA - F 




82208580 


0A52 0000 


0000 


AIWKG 


DEC 









WORK AREA - G 




82201590 


0A54 OOCO 


0000 


AIWKH 


DEC 









WORK AREA - H 




82208600 


0A56 03E5 




C0997 


DC 




097 




CONSTANT 997 




*2C08^10 
82208620 


0A57 0005 




FIVE 


DC 




5 




CONSTANT FIVE 








* 














82208630 






* 














82208640 






* 






** CONVERT MPX ADDR ROUTINE 


** 


92208650 






* 














82208660 






* 






THIS ROUTINE CONVERTS THE HEX 


MPX 


8220*670 






* 






ADDR TO 


THE FORM TO BE OUTPUTTED 


82208680 






* 






- 9999 


# 


RLY ADDRESS 




82208690 






* 






10000 - 


UP 


* SS ADDRESS 




82208700 






* 






THIS IS 


USED ONLY IN THE OUTPUT 


82208710 






* 


. 




MESSAGE. 








82208720 






* 














82208730 






♦ 














P220e740 






* 














8220E750 


0A58 0000 




AIMPC 


DC 













o2208760 


0A58 




AIWKE 


EOU 




AIMPC 




WORD SAVER 




82208770 


0A59 1003 






SLA 




3 








82208780 


0A5A 1 4C10 


0A62 




3SC 


L 


AIMP1,- 








8220E790 


0A5C 1001 






SLA 




1 








82208800 


0A5D 1804 






SRA 




4 








82208310 


0A5E 8064 
0A5F D0F4 






A 
STO 




TENTH 
AIWKH 




SAVE POINT NO 




82208820 
82203830 


0A60 1 4C80 


0A58 




BSC 


I 


AIMPC 






sx 


32208840 


0A62 1803 




A1MP1 


SRA 




3 








82208850 
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U 



CO 
CT5 

co 



"j -J 



DATE 


28FEB66 


01MAY66 


01JUL66 


15DEC66 


01SEP67 


l'N0V69 


17APR70 


PROG ID 


0822-1 


EC NO. 


415120 


415178 


415178 


421206 


411875 


431319 


431321 


PAGE 


7 



J 

o' 

-J 

o 



0A63 


70FB 


MDX 


AIMP1-3 




82208860 
82208870 
82208880 








MEAN 


CALCULATION 


82208890 








ALGORITHM 


82208900 












82208910 








SUM/GRO # Rl £ Nl 


82208920 








Nl 


X 10 # N2 


82208930 








Rl X 


tO/G-.D # N3 


822J8940 








N2 £ N3 # MEAN X 10 


8220C950 


0A64 1 


C080 OCEE 


M3. LDD 


11 AISUM 


SUM OF READINGS 


82208960 
82208970 


0A66 1 


ADOO 0099 


D 


LI AIGRD 


/ NO OF GOOD READINGS 


82208980 


0A68 
UA69 


D8EB 

AODF 


STO 

M 


AIWKH 
TEN 


* Nl £ Rl 
X 10 


82208990 
82209000 


0A6A 


D8E3 


STD 


MEAN 


* N2 


82209010 


0A6B 


C0E9 


LD 


AIWKHS1 


Rl 


82209020 


0A6C 


AODC 


M 


TEN 


X 10 


82209030 


0A6D 1 


ADOO 0D09 


D 


LI AIGRD 


/ GOOD READINGS » N3 


82209040 


0A6F 


1890 


SRT 


16 




82209050 


0A70 


880D 


AD 


MEAN 


£ N2 


82209060 


0A71 


08 DC 


STO 


MEAN 


t MEAN X 10 


82209070 
82209080 
82209090 








VMEAN 


CALCULATION 


82209100 








ALGORITHM 


82209110 












82209120 








SUM/GRD # Nl £ Rl 


82209130 








RANGE X 10000/RSC * N2 C R2 


82209140 








N2 


X 10 # N3 


82209150 








N3 


X Nl # N6 


82209160 








Nl X R2/RSC * N4 £ R3 


82209170 








N4 


X 10 J N7 


82209180 








N2 X Rl/GRD # N5 f. R4 


82209190 








N5 


X 10 * N8 


82209200 




* 




R3 X 


10/RSC # N9 


82209210 








R4 X 


10/GRD * N10 


82209220 








N6 t N7 £ N8 6 N9 6 N10 # VMEAN IN 822092*0 






TERMS OF INPUT 


RANGE JSXXX.XXXXXn 


82209240 












82209250 


OA72 


C0E5 


LD 


AIWKE 


LOAD RANGE 


82209260 
82209270 


0A73 


A04F 


M 


T ENTH 


X 10000 


82209280 


0A74 
OA75 
0A76 


A8D3 
080A 
A0D2 


D 
STD 

M 


.AIRSC 
AIWKF 
TEN 


/ FULL SCALE 

# N2 £ R2 

* N3 


82209290 
82209300 
82209310 


0A77 
0A78 


1090 
AOl'8 


SLT 

M 


16 

AIWKH 


X Nl 


82209320 
82209330 


0A79 


D8D8 


STD 


AIWKG 


* N6 


82209340 


0A7A 


CO 09 


LD 


AIWKH 


Nl 


82209350 


0A7B 


A0D5 


M 


AIWKF&l 


X R2 


82209360 


0A7C 


A8CH 


D 


AIRSC 


/ FULL SCA'.E " 


82209370 


0A7D 


08CE 


STD 


VMEAN 


* N4 £ R3 


82209380 


0A7E 
0A7F 


AOCA 
88D2 


M 
AD 


TEN 
AIWKG 


# N7 
£ N6 


82209390 
82209400 


0A80 
0A81 
0A82 


D801 
COCE 
A0U2 


SVD 

LD 
M 


AIWKG 

AIWKF 

. AIWKH61 


* N6 6 N7 

N2 

X Rl 


82209410 
82209420 
82209430 


0A83 1 
0A85 
0A86 


ADOO 0DD9 

D8CA 

A0C2 


D 
STD 

M 


LI AIGRD 

AIWKF 
TEN 


/ NO OF GOOD READNGS 

# N5 £ R4 

* N8 


82209440 
82209450 
82209460 


0A87 
0A88 


88CA 
D8C9 


AD 
STD 


AIWKG 
AIWKG 


£ N6 6 N7 
M N6 £ N7 £ r.8 


82209470 
822094 80 


0A89 
0A8A 
0A8B 
0A8C 
0A8D 


C0C3 
AOBE 
A8BC 
1690 
88C4 


LD 

M 

D 

SRT 

AD 


VMEAN61 • 

TEN 

AIRSC 

16 

AIWKG 


R3 

X 10 

/ FULL SCALE # N9 

£ N6 £ N7 £ N8 


82209490 
82209500 
82209510 
82209520 
82209530 



DATE 


28FEB66 


01MAY66 


01JUL66 


150EC66 


01SEP67 


14N0V69 


17APR70 


EC NO. 


415120 


415178 


415178 


421206 


411875 


431319 


431321 



PROG ID 0822-1 

PAGE 7A 
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0A8E 





08C3 




STD 




AIHKG 


* N6 tN7 CN8 £N9 




82209540 


0A8F 





coci 




ID 




AIWKFU 


R4 




82209550 


0A90 





A0B8 




M 




TEN 


X 10 




82209560 


0A91 


1 


ADOO 


0009 


D 


LI 


AIGRO 


/ GOOD REAONGS * N10 


82209570 


0A9 3 





1890 




SRT 




16 






82209580 


0A94 





88BD 




AO 




AIWKG 


£ N6 £N7 £N8 EN9 




82209590 


0A95 





08B6 




STO 




VMEAN 


• MEAN IN VOLTS 




82209600 


0A96 





C8B7 




LOO 




MEAN 


LO MEAN VALUE X 10 




82209610 


0A97 





D87C 




STD 




AIWKD 


SAVE MEAN X 10 




82209620 


0A98 


1 


4428 


0900 


Bsr 


L 


MKPOS, £Z 


GO TO MAKE POS RT 




82209630 


0A9A 





A8BC 




D 




FIVE 


DIVIDE BY FIVE 




82209640 


0A9B 





80AE 




A 




AIDNE 


ADD ONE 




82209650 


0A9C 





1881 




SRT 




1 


DIVIDE BY TWO 




82209660 


OA90 





D0B4 




STO 




AIWKG 


SAVE RESULT RMEAN 


£ 


82209670 


0A9E 





C075 




LD 




AIWKD 


LO MEAN X 10 




32209680 


OASF 


1 


4C10 


0AA6 


BSC 


L 


AISRX, - 


BR IF NOT NEGATIVE 




82209690 


0AA1 





10A0 




SLT 




32 


CLEAR A £ 




82209700 


0AA2 





COAF 




LO 




AIWKG 


LO RMEAN POSITIVE 




82209710 


CAA3 


1 


4400 


0900 


BSI 


L. 


MKPOS 


GO TO MK NEGATIVE 




82209720 


0AA5 





OOAC 




STO 




AIWKG 


SAVE RESULT RMEAN 




82209730 


0AA6 





COAB 




AISRX LD 




AIWKG 


LD RMEAN 




82209 740 


0AA7 





0074 




STO 




AIRAX 


SET RMEAN FOR CALC 




82209750 


0AA8 


1 


9500 


081C 


S 


LI 


AIPRC 


SUBT PREC READING 




82209760 


OAAA 





4077 




BSI 




PCENT 


BR TO PCENT ROUTINE 


82209770 


OAAB 





C06E 




LD 




AIMCT 


LD DEVIATION 




82209780 


OAAC 





0P66 




STO 




AI^KAtl 


SAVE DEVIATION 




82209790 


OAAD 





C067 




LD 




AIWKD61 


LD REPEATABILITY 




82209800 


OAAE 





0062 




STO 




AIWKC 


SAVE REPEATABILITY 




82209810 


OAAF 


1 


CaOO 


081C 


LD 


LI 


AIPRC 


LD PREL READING 




82209P20 


0AB1 





006A 




STO 




AIRAX 


STO PREi~ READING 




82209830 


0AB2 





A096 




M 




TEN 






82209840 


0AB3 





0860 




STO 




AIWKO 


STO PREC X 10 TO LOG 


82209850 


0AB4 





1010 




SLA 




16 






822C9860 


0AB5 





406C 




BSI 




PCENT 


BR TO PCENT ROUTINE 


82209870 










*************************** ************ ****** 


82209880 










* 




** LOG 


CALL ** 


* 


82209890 


0AB6 


1 


4400 


0C42 


BSI 


L 


LOGCL 


GO TO LOG CALL SBRT* 


82209900 


0AB8 





0006 




• DC 




6 


WORu COUNT 


« 


82209910 


0AB9 





2801 




OC 




/2801 


HEX-DEC SW tDECn 


* 


82209920 


OABA 


1 


0AC4 




OC 




AI4 


RETURN ADDR 


• 


822099?! 


OABB 





0P01 




DC 




' /D001 


MESSAGE 10 


• 


82209940 


OABC 





0204 




DC 




/0?04 


BYPASS BITS 


* 


82209950 


0A6D 


1 


0B15 




DC- 




AIWKD&l 


ACCURACY 


* 


82^09960 


OABE 


1 


0B11 




DC 




AIWKC 


REPEATABIL I TY 


* 


82209970 


OABF 


1 


0A4c 




DC 




MEAN 


MEAN IN DIGITS 


* 


82209980 


OACO 


1 


0A4F 




DC 




M _ AN£1 


MEAN IN DIGITS 


* 


82209990 


0AC1 


1 


0A4C 




DC 




VMEAN 


MEAN IN VOLTAGE 


* 


82210000 


0AC2 


1 


0A40 




OC 




VMEANU 


MEAN IN VOLTAGE 


* 


82210010 


0AC3 





2710 




TENTH DC 




10000 


MUST BE ODD ADDR 




82210020 


0AC4 


1 


C5 00 


0063 


AI4 LD 


'-1 


AIOVC 






82210030 


0AC6 





D04A 




STO 




AIWKC 


SAVE OVERLOAD CNTR 




82210040 


0AC7 


1 


C500 


OODE 


LD 


LI 


AIOTR 






82210050 


0AC9 





004A 




STO 




AIWKD 


SAVE OUT OF TBL CNTR 


82210060 










********************************************* 


82210070 










* 




** LOG 


CALL *♦ 


* 


82210080 


OACA 


1 


4400 


0C42 


BSI 


L 


LOGCL 


GO TO LOG CALL SBRT* 


82210090 


OACC 





0006 




DC 




6 


WORD COUNT 


* 


82210100 


OACO 





0001 




DC 




/0001 


HEX-DEC SW XDECn 


* 


82210110 


OACE 


1 


0A07 




DC 




AI5 


RETURN ADDR 


* 


82210120 


OACF 





0001 




DC 




/D001 


MESSAGE ID 


* 


82210130 


OADO 





0204 




DC 




/0204 


BYPASS BITS 


* 


82210140 


0*01 


1 


0B1A 




DC 




AIMCT 


ACCURACY DEVIATION 


* 


82210150 


0AD2 


1 


0B13 




DC 




AIWKAE1 


REPEATABILITY DVTN 


• 


82210160 


0AD3 


1 


0822 




DC 




AIFRS 


RESOLUTION 


4 


82210170 


0A04 


1 


0815 




OC 




AICYC 


CYCLES 


* 


82210180 


0AD5 


1 


0B11 




OC 




AIWKC 


OVERLOAD COUNTER 


* 


82210190 


0AD6 


1 


0B14 




DC 




AIWKD 


OUT OF TBL COUNTER 


* 


82210200 










********************************************* 


82210210 
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LD 
CD 

CO 



J 



DATE 


28FEB66 


01MAY66 


01JUL66 


15DEC66 


01SEP67 


14N0V69 


17APR70 


PROG ID 


0822-1 


EC NO. 


415120 


415178 


4! 5178 


421206 


411875 


431319 


431321 


PAGE 


8 



DATE 
EC NO. 



0AD7 C044 




AI5 


LD 




AIRAX 


LO PREC READING 


82210220 


0A08 803E 






A 




FTFOR 


ADO 54 


62210230 


0AD9 D040 






STO 




AIMCT 


SET HIGH TBL VALUE 


82210240 


OADA 7101 






MDX 


1 


1 


SET XI * Xl£l 


82210250 


OADB 693F 






STX 


1 


AITCN 


SAVE XI IN WK AREA 


82210260 


OADC 616C 






LDX 


1 


108 


SET XI * 108 


82210270 


OADD C500 


0000 


AIRTB 


LO 


LI 





LO TNT FROM TBL PM01 


8 22 10? 80 


OADF 1 4C18 


OAFO 




BSC 


L 


AINXT, -£ 


BR IF COUNT « 


82210290 


0AE1 D034 






STO 




AIWKB 


SAVE COUNT 


82210300 


0AE2 C037 






LO 




AIMCT 


' 


82210310 


0AE3 1 4400 


0B98 




BSI 


L 


AIDCN 


GO TO DEC CNVRT RT 


82210320 






********************************************* 


82210330 






• 






** LOG 


CALL ** * 


82210340 


0AE5 1 4400 


0C42 




BSI 


L 


LOGCL 


GO TO LOG CALL SBRT* 


82210350 


0AE7 0004 






DC 




4 


WORD COUNT * 


82210360 


0AE8 8001 






DC 




/8001 


HEX-DEC SW SSDECn * 


82210370 


0AE9 1 OAFO 






DC 




AINXT 


RETURN ADDR * 


82210380 


OAEA D001 






DC 




/D001 


MESSAGE ID * 


«I2210390 


OAEB 0604 






DC 




/0604 


BYPASS BITS * 


82210400 


OAEC 1 0BB6 






DC 




AIWKL 


DECIMAL VALJE * 


82210410 


OAED 1 0BB7 






DC 




AIWKLE1 


DECIMAL VALUE * 


82210420 


OAEE 1 OBI A 






DC 




AIMCT 


VALUE * 


82210430 


OAEF 1 0B16 






DC 




AIWKB 


COUNT * 


82210440 






************* 


•.-***********************»** ***** 


82210450 


OAFO 1 74FF 


0B1A 


AINXT 


MDX 


L 


AIMCT, -1 


SUBT 1 FROM VALUE 


82210460 


OAF 2 1000 






SLA 







WILL SKIP THRU ZERO 


82210470 


0AF3 71FF 
0AF4 70t8 






MDX 
MDX 


1 


-1 

AIRTB 


SKIP IF XI # 
BRANCH 


82210480 
82210490 


OAFS 1 6EC0 


0C90 




STX 


L2 


LNCNT 


RESET LINE CNTR 


82210500 


0AF7 1 6580 


0B1B 




LDX 


ll 


AITCN 


RESTORE XI 


82210510 


0AF9 C021 






LD 




AITCN 


LD INDEX CNT 


82210520 


OAFA 1 F400 


0B93 




EOR 


L 


AIWC1 


EOR NUMBER OF POINTS 


822 10530 


OAFC 1 4C20 


0A2B 




BSC 


L 


AIYP1.Z 


BR TO CALC NEXT PNT 


82210540 


OAFE 1 C400 


0B04 




LD 


L 


SW2 


LOAD SW WORO 2 


82210550 


OBOO 1 4C20 


08FA 




BSC 


L 


AIRAf.Z 


INSURE DATA ENTRY 


82210560 


0B02 2 4C80 


012c 


* 


BSC 


I 


END 


EXIT TO MONITOR END 


82210570 
82210580 


OB04 0000 
0B05 9013 




* 
AICLM 


DC 
S 





STRAD 


SE 


82210590 
82210600 
82210610 


0B06 8015 
0B07 A070 






A 

M 




AIRAX 
AITEN 




82210620 
82210630 


0B08 980B 






SD . 




AIWKD 




82210640 


0B09 1 4428 
OBOB 1090 
OBOC 1 4C80 


0900 
0B04 


* 


BSI 
SLT 
BSC 


L 
I 


. MKPOS, £Z 
16 
AICLM 


EXIT SX 


82210650 
e2210660 
82210670 
82210680 


OBOE 7000 




♦ 
AC0N1 


MDX 




* 


INSTRUCTION CONSTANT 


82210690 
82210700 


OBOF 701E 




AC0N2 


MDX 


X 


HIINC-BRLOC-1 INSTR CONSTANT 


82210710 


OBIO 7021 
0B11 0000 




AC0N3 
AIWKC 


MDX 

OC 


X 


L0INC-8RL0C-1 INSTR CONSTANT 
WORK AREA - C ' 


82210720 
82210730 


0612 0000 
0B14 0000 


0000 
0000 


AIWKA 
AIWKD 


DEC 
DEC 









WORK AREA - A 
WORK AREA - D 


82210740 
82210750 


0B16 0000 




AIWKB 


DC 







WORK AREA - B 


82210760 


0B17 0036 




FT FOR 


DC 




54 


CONSTANT 54 


82210770 


0B18 006C 




AI108 


DC 




108 


CONSTANT 108 


.". 22 107 80 
82210790 


0B19 0000 




STRAD 


DC 







INITIA' ADDR 


0B1A 0000 




AIMCT 


DC 







POSITIVE M CNTR 


32210800 


091 B 0000 
0B1C 0000 




AITCN 
AIRAX 


DC 
DC 








COUNTER 

MEAN OR PREC R.NG 


82210810 
82210820 


0B1D 0000 
OBIE C8A4 
OBIF D8F4 
0B20 00F9 




* 
AITLM 


DC 
LDD 
STD 
STO 






TENTH 
AIWKD 
AIMCT 


LD FLAG CONSTANT 
SET 10000 DEVIATION 


82210830 
82210840 
82210850 
82210860 
82210870 


0B2I 706F 




* 


MDX 




AIPLX 


BRANCH 


82210880 














82210890 



28FEB66 
415120 



01MAY66 
41?178 



01JUL66 
415178 



15DEC66 
4?1206 



01SEP67 
411875 



14N0V69 
431319 



17APR70 
431321 



PROG ID 
PAGE 



0822-1 
8A 



{ i ( ( 



\ ( 



( ( ( ( i 



< i 



{{{{{{(( 



{ { 
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CO 

en 
co 



DATE 

EC NO. 



OB22 
0B2 3 1 
0B25 
0B26 
0B27 1 
0B29 
0B2A 
0B2B 
0B2D 
0B2E 
0B2F 
0B30 
0B31 
OB32 
OB33 
0B34 
0B35 1 
0B37 
0B38 
0B39 1 
0B39 1 
083D 1 
0B3F 1 
0B41 
0B42 
0B43 
0B44 1 
OB' 6 
0B47 
0B48 
0B49 
0B4A 
0.B4B 



0CF3 



0BB4 



0CF3 



0B16 



0A4B 
0B79 
0B16 
0B43 



0B1A 



0B4C 
0B4D 
0B4E 
0B4F 
0B5C 
0B51 

0B52 
0B53 
0B54 
0B55 
0B56 
0B57 
0B58 

0B5A 
0B5B 
0B5C 
0B5D 
095 E 
0B5F 
0B60 



0000 
8500 
D0F3 
DOEF 
D400 
10AO 
D8EF 
C500 
9069 
DOAF 
80E8 
0065 

cooc 

0010 
6200 
4033 
C480 
80E3 
Dot 2 
9*00 
4C10 
C480 
4C08 
C004 
D071 
7000 
7401 
C0D3 
4804 
7003 
COCC 
80CF 
7002 

C0C9 

90CC 

00C7- 

6201 

4017 

70E1 



0000 
COBB 
OOEE 
COCO 
90C3 
DOBE 
4C80 0B52 

0000 
C0B4 
D0E6 
C0B8 
80BB 
00B6 
4C80 0B5A 



0B62 1 74FF 0B16 
0B64 70CE 



("CENT DC 
A 

STO 
STO 
STO 
SLT 
STD 
LD 
S 

STO 
A 

STO 
LD . 
STO 
LDX 

AICHG BSI 
LO 
A 

STO 
S 

BSC 
LD 
BSC 
LD 
STO 

BRLOC MDX 
MDX 
LO 
. BSC 
MOX 
LO 
A 
MDX 

* 

MDY05 LO 
S 

MDY06 STO 
LDX 
BSI 
MDX 

* 

HILMT DC 
LD 
STO 
LO 
S 

STO ' 
BSC 

* 

LOLMT DC 
LO 
STO 
LD 
A 
STO 

BSC 

* 

HI INC MDX 
MDX 



PERCENT SUBROUTINE 

THIS SUBROUTINE PERFORMS THE TABLE 
SEARCHES AND CALCULA T ES THE PERCENT 
ACCURACY AND PERCENT REPEATABILITY. 



LI 



28FEB66 
415120 



01MAY66 
415178 



01JUL66 
415178 





AISPT 
STRAO 
AIWKB 
L AIHKI 
32 

AIMCT 
LI AISPT 
FTFOR 
AIRTB61 
AI108 
PADDR 
AC0N1 
BRLOC 
2 

WAWTC 
I AIWKB 
AFTCN 
AITCN 
L P9970 
L AIMBRi- 
I AIWKB 
. BRLOC, £ 
AIWKB 
AIWKI 
* 

. AIMCT, 1 
AIMCT 
E • 
MDY05 
AIWKB 
AIMCT 
MDY06 

AIWKB 
AIMCT 
AIWKB 
2 1 

WAWTC 
AICHG-l 



AC0N2 

BRLOC 

AIWKB 

AIMCT 

AIWKB 

HILMT 



AC0N3 

BRLOC 

AIWKB 

AIMCT 

AIWKB 

LOLMT 



L AIWKB, -1 
AICHG-l 



SET UP STARTING 
SAVE INITIAL ADOR 
SAVE INITIAL ADDR 

INITIALIZE COUNTERS 

FIND AND STORE 
HI AND I ADDR 
LIMITS OF TABLE 
IN USE 

INITALIZE BRANCH 



SE 



PR01 



PR06 



INITIALIZE X2 * 

GO TO CHECK LMT X2 * 

LD COUNT FROM TABLE 

ADD TO CNT SUM 

SAVE TOTAL 

BR IF TOTAL # 99.7 PCNT 

BR IF CNT « 



MDX WILL CHANGE NOP-BR 
ADO 1 TO INC WORD 

SKIP IF INC WD EVEN 
BRANCH 

ADD INC WD TO ADDR 
BRANCH 



SUBT INC WO FROM ADDR 
SET NEXT TBL WORD ADDR 

GO CHECK LMT X2 # i 

BRANCH 



SE 



SET BR CONSTANT 



SET NEXT TBL WD AOOR 
EXIT Sx 



SE 



SET BR CONSTANT 



SET NEXT TBL WO ADDR 
EXIT SX 

INC HIGH TBL ADDR 
BRANCH 



15DEC66 
421206 



01SEP67 
411875 



14N0V69 
431319 



17APR70 
431321 



82210900 

82210910 

82210920 

82210930 

82210940 

82210950 

82210960 

82210970 

82210980 

82210990 

82211000 

82211010 

82211020 

82211030 

82211D40 

82211050 

82211060 

82211070 

82211080 

82211090 

82211100 

82211110 

82211120 

82211130 

82211140 

82211150 

82211160 

82211170 

82211180 

82211i90 

82211200 

82211210 

82211220 

82*11230 • 

82211240 

822112S0 

82211260 

82211270 

82211280 

82211290 

82211300 

82211310 

£221 '.320 

82211330 

82211340 

82211350 

82211360 

82211370 

822)1380 

82211390 

82211400 

82211410 

82211420 

82211430 

12211440 

822U450 

822114K0 

82211470 

82211480 

82211490 

822115C0 

82211510 

82211520 

82211530 

82211540 

82211550 

82211560 

82211570 



PROG 10 
PAGE 
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en 
co 



0822-1 
9 



o 



DATE 
EC NO. 



0B65 1 7401 
0B67 70CB 


0B16 


* 

LOINC MDX 
MDX 

* 


L AIWKB.l 
AICHG-l 


INC LOW TBL ADDR 
BRANCH 






* 
* 




WORKING 


ADDRESS WITHIN TBL CK 


0B68 0000 




* 

WAWTC DC 







0B69 COAC 






LD 


AIWK8 




0B6A 902B 






S 


PADDR 




0B6B 1 4630 
0B6D C0A8 


0B74 




BSI 

LD 


12 AIHIL.-Z 
AIWKB 


BR IF HIGH LMT 


0B6E 1 9400 


OADE 




S 


L AIRTBfil 




0B70 1 46A8 
OB72-1 4C80 


0B76 
0B68 


£ 


BSI 
BSC 


12 AILOL, £Z 
I WAWTC 


BR IF LOW LMT 

EXIT « 


0B74 1 0B1D 
0B75 1 0B52 




AIHlL DC 
DC 


AITLM 
HILMT 


BR VECTOR 
BR VECTOR 


0B76 1 0B1D 




AILOL DC 


AITLM 


BR VECTOR 


0B77 1 0B5A 






DC 


LOLMT 


BR VECTOR 


0B78 OOOA 




AITEN DC 

* 

* 


10 


CONSTANT 10 






* 
* 
* 
• 




PCENT 


CALCULATION 






* 




MEAN X 10 OR PREC X 10 IN WKD 






• 




RAX a 


PREC VALUE 






* 




WKB * 


END TBL ADDR 






• 




MDY « 


STRTNG TBL ADDR 






* 
• 




ALGORITHM 






• 




WKB - MDY £ RAX - WKD X 10 # N 5 






. ♦ 




N5 * 


ABSOLUTE DEVIATION 






* 




N5 X 


100 / RSC * N6 £ R6 






* 




R6 X 


1000 / RSC # N7 






* 




N6 X 


1000 * N8 






* 
* 




N7 £ 


N8 u XX.XXXX PCENT 


0B79 C09C 
0B7A 40B9 




AIMBR 


LD 
3SI . 


AIWKB 
AICLM 


LD END TBL ADDR 
GO GET DEVIATION 


0B7B D09E 






STO 


.AIMCT 


# N5 


0B7C C037 






LD 


AIWKI 




0B7D 4066 






BSI 


AICLM 


GO GET DEVIATION 


0B7E D036 






STO • 


AIWK!£1 




0B7F 909A 






S 


AIMCT 




0B80 1 4C28 0B84 
0B82 C032 




BSC 
LD 


L DEVIA,£Z 
AIWKI£1 


BR IF 1ST DEV GREAT 


0B83 0096 






STO 


AIMCT 


* N5 


0B84 C0*5 




DEVI A 


LD 


AIMCT 


N5 


0B85 AOOE 
0B86 A631 
0B87 D06A 






M 
D 
STO 


HUND 

AISRC 

AIWKA 


N5 X 100 

/ FULL SCALE 

# N6 £ R6 


0B88 1090 






SLT 


16 




0B89 AOOB 
0B8A A92D 






M 



THOU.« 
AISRC 


R6 X 1000 

/ FULL SCALE « N7 


0B8B 1890 






SRT 


16 




0B8C 0667 






STD 


AIWKD 


# N7 


0B8D C084 






LD 


A I WKA 


# N6 


0B8E A006 
0B8F 8864 
0B90 D883 






M 

Ail 

STD 


THOUS 
AIWKD 
AIWKD 


N6 £ 1000 # N8 
N7 £ N8 # REPEAT OR 
ACCURACY 


0B91 1 4C80 0B22 


AIPLX 

* 


BSC 


I PCENT 


BR OUT OF SUDROUTINE SX 



SE 



SX 



28FEB66 
415120 



01MAY66 
415>78 



01JUL66 
415178 



15DEC66 
421206 



01SEP67 
411875 



14N0V69 
431319 



17APR70 
431321 
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82211580 

82211590 

82211600 

82211610 

82211620 

82211630 

82211640 

82211650 

82211660 

82211670 

82211680 

82211690 

82211700 

82211710 

82211720 

82211730 

82211740 

82211750 

82211760 

82211770 

82211780 

82211790 

82211800 

82211810 

82211820 

82211530 

82211840 

82211850 

82211860 

82211870 

82211880 

8221189C 

82211900 

82211910 

82211920 

82211930 

82211940 

82211950 

82211960 

82211970 

82211980 

82211990 

82212000 

82212010 

82212020 

82212030 

82212C40 

82212050 

82212060 

82212070 

822120 80 

82212090 

82212100 

82212110 

82212120 

82212130 

"2212140 

82212150 

82212160 

82212170 

82212180 

82212190 

82212200 

82212210 

82212220 

82212230 

82212240 

82212250 



PROG ID 
PAGE 



0822-1 
9A 
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CO 

en 









* 




DECIMAL CONVERT RTN 


82212260 








* 








82212270 








• 




VALUE 


IN A * BINARY 


82212280 








* 




VALUE TO BE CONVERTED. 


82212290 








* 








82212300 








• 




ALGORITHM 


82212310 








♦ 








82212320 








* 




RANGE 


X 100 X VALUE * Nl 


82212330 








* 




Nl/RSC # N2 £ Rl 


82212340 








* 




N2 X 1000 * N3 


82212350 








* 




Rl X 10/RSC # N4 £ R2 


82212360 








* 




N4 X 100 # N5 


82212370 








* 




R2 X 


100/RSC * N6 


82212380 








* 




N3 £ N5 £ N6 # N7 


82212390 








* 








82212400 


0B93 





0000 


AIWC1 


DC 





EVL AODR WO CNTR 


82212410 


0*94 





0064 


HUND 


DC 


ICO 


CONSTANT 100 


82212420 


0u95 





03E8 


THOUS 


DC 


1000 


CONSTANT 1000 


82212430 


0B96 





0000 


PADOR 


DC 





STORAGE FOR MAX £ ADDR 


82212440 


OB97 





0032 


FIFTY 


DC 


50 


CONSTANT 50 


82212450 


0B98 





0000 


AIDCN 


DC 





SE 


82212460 


0B99 





D01A 




STO 


AIWKI 


SAVE VALUE 


822124 70 


0B9A 


1 


C400 0A58 




LO L A1WKE 


LOAD RANGE OF VALUE 


82212480 


0B9C 





AOFA 




M 


FIFTY 


X 50 


82212490 


0B9D 





1090 




SLT 


16 


SHIFT TO ACCUMULATOR 


82212500 


0B9E 





A015 




M 


AIWKI 


X VALUE 


82212510 


0B9F 





A818 




D 


AISRC 


/ FULL SCALE 


82212520 


OBAO 





0815 




STD 


AIWKL 


# N2 £ Rl 


82212530 


0BA1 





A0F3 




M 


THOUS 


N2 X 1000 


82212540 


OBA? 





1081 




SLT 


1 


X 2 


82212550 


0BA5 





D810 




STD 


AIWKI 


* N3 


P2212560 


OB A* 





C012 




LO 


AIWKL£1 


Rl 


82212570 


0BA5 





A002 




U 


AITEN 


X 10 


8221256 


0BA6 





1081 




SLT 


1 


X 2 


82212590 


0BA7 





A810 







AISRC 


/ FULL SCALE 


82212600 


0BA8 





D80D 




STD 


AIWKL 


# N4 £ R2 


82212610 


0BA9 





AOEA 




M 


HUND 


X 100 # N5 


82212620 


OBAA 





8809 


. 


AD 


AIWKI 


£ N3 


82212630 


OBAB 





0808 




STD 


AIWKI 


# N3 £ N5 


82212640 


OBAC 





COOA 




LD 


AIWKLM 


R2 


82212650 


OBAD 





A0E6 




M 


' HUND 


X 100 


82212660 


O.BAE 





A809 




D 


AISRC 


/ FULL SCALE # N6 


822126 70 


OBAF 





1890 




SRT 


16 




82212680 


OBBO 





8803 




AD 


AIWKI 


NO £' N5 £ H&- " 


82212690 


0BB1 





0804 




STD 


AIWKL 


# N7 


82212700 


0BB2 


1 


4C80 0B98 


* 


BSC ! 


1 AIDCN 


EXIT ROUTINE SX 


82212710 
82212720 


0BB4 





0000 0000 


AIWKI 


DEC 





WORK AREA - I 


82212730 


0bB6 





0000 0000 


AIWKL 


DEC 





WORK AREA - L 


82212740 


0BB8 





4000 


A I SRC 

* 
* 


DC 


/4000 


CONSTANT FULL SCALE 


82212750 
82212760 
82212770 








* 




** I/O TABLES ROUTINE ** 


82212780 








* 








82212790 








* 




THIS ROUTINE IS ENTERED FROM THE 


82212 600 








* 


* 


INITIALIZATION ROUTINE AND SETS UP 


82212*10 








* 




THE INPUT DATA TABLE FOR PROPER 


82212*20 








* 




CHAIN OPERATION. IT ENSURES THAT 


82212830 








* 




AT LEAST 


ONE POINT IS TO BE CHECKED 


82212r>40 








* 




FOR PRECISION AND THAT TOO LARGE A . 


6221265"! 








* 




TABLE IS 


NOT SETUP. IT OUTPUTS AN 


82212860 








* 




ERROR IF 


ONE IS FOUND WHICH CANNOT 


82212870 








* 




BE CORRECTED AND FORCES ENTRY INTO 


82212880 








* 




THE DATA 


ENTRY ROUTINE. *E0C6n 


82212893 








* 








82212900 








* 








82212910 


0B96 







AITAS 


EOU 


PADOR 


DATA TBL ADDR WK AREA 


82212920 


0BB4 







AWKA1 


ECU 


AIWKI 


WORK AREA FOR SETUP 


82212930 



CO 
CO 

CO 



o 



o 



0BB5 









AWKB1 


EOU 




AIWKIC1 


0BB6 









AWKC1 


EQU 




AIWKL 


0BB7 









AWKE1 


EOU 




AIWKLfil 


0BB9 





COOO 




ACHNB 


DC 




/COOO 


OBBA 





0001 




ONEAI 


DC 




1 


OBBB 





FFFF 




ATERM 


DC 




/FFFF 


OBBC 





0000 




A1STP 


DC 







OBBO 


1 


6700 


0020 




LDX 


L3 


AIDRT-2 


OBBF 





6BD6 






STX 


3 


AITAS 


OBCO 





6300 






LOX 


3 





0BC1 


1 


6500 


0828 




LDX 


LI 


AIIAT 


08C3 





6600 


009E 




LDX 


L2 


158 


0BC5 





C102 




AICriE 


LO 


1 


2 


0BC6 





F0F4 






EOR 




ATERM 


0BC7 





DOEC 






STO 




AWKA1 


0BC8 





C100 






LO 


1 





0BC9 





1800 






RTE 




16 


08CA 





C101 






LO 


1 


1 


08CB 





4818 






BSC 




£- 


OBCC 





80ED 






A 




ONEAI 


OBCD 





00E7 






STO 




AWKB1 


OBCE 





80E?, 






A 




ONEAI 


OBCF 


1 


7400 


0BB4 




MDX 


L 


AWKAltO 


0B01 





E8E7 






OR 




ACHNB 


0BD2 


1 


D480 


0B96 




STC 


I 


AITAS 


0BD4 





C0C1 






LD 




AITAS 


0B05 





D0E1 






STO 




AWKE1 


0BD6 





1090 






SLT 




16 


0BD7 


1 


7401 


0B96 




MDX 


L 


AITAStl 


0BD9 


1 


0480 


0B96 




STO 


I 


AITAS 


OBOB 





DO DA 






STO 




AWKC1 


OBDC 


1 


7401 


0B96 




MDX 


L 


AITAS, 1 


OBDE 





71U2 






MDX 


1 


2 


OBDF 





C0D6 




AICHC 


LO 




AWKC1 


OBEO 





1003 






SLA 




3 


0BE1 


1 


4C28 


oeE5 




BSC 


L 


*£2,£Z 


0BE3 


1 


7401 


08C2 




MDX 


L 


AIRSY.l 


0BE5 





CODO 






LD 




AWKC1 


0BE6 


1 


F700 


C816 




EOR 


L3 


AIMPX 


0BE8 


1 


4C20 


OBEE 




BSC 


L 


AlCHD, 2 


OBEA 





CO.'B 






LD 




AITAS 


OBEB 


1 


0700 


0DD4 




STO . 


L3 


AIDTA 


OBED 





7301 






MDX 


3 


1 


OBEE 


1 


7401 


0BB6 


AlCHD 


MDX 


L 


'AWKC1,1 


OBFO 


1 


7401 


0B96 




MDX 


L 


AITAS, 1 


0BF2 





72FF 






MOX 


. 2 


-1 


0BF3 





7000 






MDX 




AICHF 


0BF4 


1 


74FF 


0B96 


AICHB 


MOX 


L 


AITAS, -1 


0BF6 





C09F 






LO 




AITAS 


0BF7 





90BF 






S 




AWKE1 


0BF8 


1 


D480 


0BB7 




STO 


1 


AWKE1 


OBFA 





6B98 




AICHH 


« "X 


3 


AIWC1 


OBFB 





7300 






M[>X 


3 





OBFC 





7002 






MOX 




SUEXX 


OBFD 


1 


7401 


0926 


MPXER 


MDX 


L 


AIERS.l 


OBFF 


1 


4C80 


OBBC 


SUEXX 


BSC 


I 


AISTP 


ocoi 


1 


74FF 


0BB5 


AICHF 


MDX 


L 


AWKB1.-1 


0C0 3 





70DB 






MOX 




AICHC 


0C04 


1 


7400 


0BB4 




MDX 


L 


AWKA1.0 


0C06 





7001 






MDX 




AICHA 


0C07 





70F2 




0L 


MDX 




AICHH 


0C08 





72FC 




AICHA 


MOX 


2 


-4 


0C09 





7001 






MDX 




AICHI 


OCOA 





70E9 






MDX 




AICHB 



WORK AREA FOR SETUP 
WORK AREA FOR SETUP 
WORK AREA FOR SETUP 
CHN-NO INT SCN BITS 
CONSTANT 1 
TERMINATOR CONSTANT 



SF 



LOAO TBL START AODR 
STORE IN WORD AREA 
INITIALIZE INDEX 
* ADDR OF MPX ADDR 
« TABLE LENGTH 
CHECK FOR LAST CHAIN 



A • MPX AODR 
* Mf>X ADDR 
A * WORD COUNT 

CHECK FOR WD CNT 

ADD 1 iF ZERO 

SAVE WORD COUNT 

INCR TO INCL MPX AODR 

TEST FOR CHAIN 

SET CH BIT ON-INT OFF 

SET IN DATA TABLE 

LOAD TABLE AODR 

SAVE DATA TABLE ADDR 

A0KPX ADDRESS 

STORE MPX AODR IN TBL 
SAVE MPX ADDR 



LOAO MPX AODR 
CHECK FOR RELAY 
SKIP IF SS 
SET RLY SW ON 
LOAD MPX ADDR 
CHECK FOR PREC /DDR 
BR IF NOT TO BE EVL 
LOAD TABLE ADDP 
SAVE FOR EVALUATION 

INCR TO NEXT ADDR 

CHECK FOR TBL LMT 
B.\ IF OK 

LOAD TABLE ADDRESS 

FIND CORRECT WO CNT 

STO WO CNT-CH OFF-INT ON 

» NO OF EVL AODR FND 

CHECK FOR EVL AODR 

EXIT IF OK 

TURN ERROR SW ON 

EXIT ROUTINE SX 

DECR WD CNT 
CHECK REST OF CHAIN 
TEST FOR LAST CHAIN 
SET UP NEXT CHAIN 
BR TO EXIT RTN 

CHECK FOR TBL LMT 
SET CAR CHECK 
BRANCH 
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82212940 
8221295P 
82212960 
82212970 
82212980 
82212990 
82213000 
82213010 
82213020 
82213030 
82213040 
82213050 
82213060 
82213070 
82213080 
822i3090 
82213100 
82213110 
82213120 
82213130 
82213140 
82213150 
82213160 
82213170 
82213180 
82213190 
82213200 
82213210 
82213220 
82213230 
82213240 
82213250 
82213260 
82213270 
82213280 
82213290 
82213300 
82213310 
82213320 
82213330 
822133*0 
82213330 
82213360 
82213370 
82213380 
82213390 
82213400 
82213410 
82213420 
82213430 
82213440 
82213450 
82213460 
82213470 
82213480 
82213490 
82213500 
82213510 
82213520 
82213^30 
82213540 
82213550 
82213560 
82213570 
82213580 
82213590 
82213600 
82213610 



O 



DATE 


28FEB66 


01MAY66 


01JUL66 


15DEC66 


01SEP67 


14N0V69 


17APR70 


PROG 


10 


0822-1 


EC NO. 


415120 


415178 


415178 


421206 


411875 


431319 


431321 


PAGE 




10 



DATE 


28FEB66 


01MAY66 


01JUL66 


15DEC66 


01SEP67 


14N0V69 


17APR70 


EC NO. 


415120 


415178 


415178 


421206 


411875 


431319 


431321 
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PAGE 
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(((((((([{{(((({ 



IBM MAINTENANCE DIAGNOSTIC P'OGRAM FOR THE 1800 SYSTEM 
A I DC SEQUENTIAL FUNCTION TEST 



OCOB C08A 
OCOC 80AD 
OCOD 1 0460 0B96 
OCOF 0086 
0C10 1 0480 0B96 
0C12 1 7401 0B96 
0C14 7030 



CD 
CD 

C 
CO 



AICHI LD 
A 

STO 
STO 
STO 
MDX 
MDX 

* 

* 

* 

* 

* 
* 
* 

* 
* 

* 
* 
* 

* 

» 
* 

* ■ 

* 

» 

* 

* 

* 

* 

» 

* 

* 
* 
* 

* 

* 



A1TAS 

ONEAI 

AITAS 

AITAS 

AITAS 

AITAS, 1 

AICHE 



LOAO TABLE AOOR 
STORE CAR WD ADOR 
STORE CAR CK WORD 
SET UP NEXT CHAIN 



*» TIMER ROUTINE ** 

THIS ROUTINE BEGINS A TIME DELAY 
DETERMINED BY THE INCREMENT RATE 
OF THE TIMER SELECTED, THE TIMER 
COUNT SPECIFIED AND THE INTERRUPT 
COUNT CONTAINED IN THE TIMER CALL. 
AT THE START OF THF DELAY, THE WORD 
SPECIFIED BY THE SWITCH ADDRESS IN 
THE TIMEP CALL IS SET TO A t VALUE. 
AT THE ENO OF THE DELAY, THIS SWITCH 
WORD IS SET TO ZERO. 
THE ROUTINE CAN OPERATE 3 UNIOUE 
OELAYS SIMULTANEOUSLY, ANY ADDITIONAL 
CALL OTHER THAN ONE OF THE THREE 
OPERATING WILL NOT BE HONORED UNTIL 
SPACE IS VACATED BY A DFLAY TIMING 
OUT. A SECOND CALL FOR AN OPERATING 
DELAY WILL RE-ESTABLISH THE INITIAL 

COUNT WITHOUT SETTING THE PROGRAM 
SWITCH WORD TO ZERO. 



FOLLOWING TABLE LISTS CONSTANTS 
TO BE ENTERED BY THE OPERATOR 
FOR TIMER ONE BASE SPEED 

THE FOLLOWING TABLE APPLIES TO 
A 4.0 MICRO SEC MACHINE 



TIME BASE 
OF TIMET A 
IN MILLISEC 

128.000 

64.000 

32.000 

16.000 

I 000 

4.000 

2.000 

1.000 

.500 

.250 



CONSTANT ENTERED 
IN HEX AT LABEL 
TIBT1 

0001 
0002 
0004 
0007 
OOOE 
00 IB 
0036 
006B 
0006 
01AB 



THE FOLLOWING TABLE APPLIES TO 
A 2 MICRO SEC MACHINE 



TIME BASE 
OF TIMER A 
IN MILLISEC 

64.000 
32.000 
16.000 

8.000 

4.000 

2.000 

1.000 



CONSTANT ErTERED 
IN HEX AT LABEL 
TIBT1 

0002 
0004 
0007 
OOOE 
001 B 
0036 
006B 



DATE 


28FEB66 


01MAY66 


01JUL66 


15DEC66 


C1SEP67 


14N0V69 


17APR70 


EC NO. 


415120 


415178 


415178 


421206 


411875 


43 1319 


431321 
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82213620 
82213630 
82213640 
82213650 
82213660 
82213670 
82213680 
82213690 
82213700 
82213710 
82213720 
82213730 
82213740 
82213750 
82213760 
82213770 
82213780 
82213790 
82213B00 
82213810 
82213S20 
82213830 
82213840 
82213850 
822138*0 
82213870 
e2213880 
82213S90 

82213900 
82213910 
82213920 
82213930 
82213940 
82213950 
82213960 
82213970 
82213980 
82213990 
82214000 
82214010 
82214020 
82214030 
82214040 
82214050 
82214060 
82214070 
82214080 
82214090 
P2214100 
82214110 
82214120 
82214130 
82214140 
82214150 
82214160 
82214170 
8221*180 
82214190 
82214200 
82214210 
82214220 
82214230 
82214240 
82214250 
82214260 
822142 70 
82214280 
82214290 



PROG ID 
PAGE 



o 
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.500 
.250 
.125 
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o 



era 

c 

CO 







0822-1 
11 



>J 



o 



o 
c 



00D6 
01AB 
0356 



0C15 





0000 




TIMER 


DC 







0C16 


1 


ocoo 


ODOO 




XIO 


L 


TSTOP 


0C18 


1 


C480 


0C15 




LD 


I 


TIMER 


0C1A 





809F 






A 




ONEAI 


0C1B 





18D0 






RTE 




16 


0C1C 


1 


7401 


0C15 




MDX 


L 


TIMER, 1 


0C1E 





6306 






LDX 


3 


6 


0C1F 


1 


C700 


0852 


TIRNG 


LD 


L3 


TIM11-2 


0C21 


1 


4C18 


0C2A 




BSC 


L 


TICNO, 6 


0C23 


1 


F480 


0C15 




EOR 


I 


TIMER 


0C25 


1 


4C18 


0C2A 




BSC 


L 


TICNO, 6 


0C27 





73*fi 






MDX 


3 


-2 


0C28 





70F6 






MDX 




TIRNG 


0C29 





70F4 






MDX 




TIRNG-1 


0C2A 


1 


C480 


0C15 


TICNO 


LD 


I 


TIMER 


0C2C 


1 


OF 00 


0852 




STD 


L3 


TIM11-2 


0C2E 


1 


D780 


0852 




STO 


13 


T1M11-2 


0C30 





73FE 




TISRC 


MDX 


3 


-2 


0C31 





7006 






MDX 




*-6 


OC32 


1 


7401 


0C15 


TEXIT 


MDX 


L 


TIMER, 1 


0C34 


1 


OCOO 


0C66 




XIO 


L 


TSTRT 


0C36 


1 


4C80 


0C15 




BSC 


I 


TIMER 


0C38 


1 


C700 


0852 




'.T 


L3 


TIM11-2 


0C3A 


1 


F480 


0C15 




EOR 


I 


TIMER 


0C3C 


1 


4C20 


0C30 




BSC 


L 


TISRC, Z 


0C3E 





10AO 






SLT 




32 


0C3F 


1 


DFOO 


0852 




STD 


L3 


TIM11-2 


0C41 





70F0 






MDX 




TEXIT 



SE 



sx 



STOP TIMER 1 
LOAD TIME COUNT 

Q # TIME COUNT 
SET UP FOR PROG SW 
INITIALIZE INDEX 
LOAD CALL SWITCH 
BR IF CALL NOT USED 
SAME PROG SW TEST 
USE CALL IF SAME SW 

SEARCH CALL TAFLE 
TIMER IS BUSY 
LOAD PROG SW ADOR 
STORE CNT 6 ADOR 
SET PROG SW ON 

TEST FOR DUP CALLS 

START TIMER 1 
EXIT ROUTINE 
LOAD PROG CALL SW 
TEST FOR DUP SW 
BR IF NOT DUPLICATE 

ZERO DUPLICATE CALL 



*» ERROR-LOG SETUP ROUTINE ** 

THIS ROUTINE SETS UP THE CALL 
AND THE OATA STRING FOR MONITOR. 
THE CALL ON THIS P.OUTINE CONTAINS 
THE MESSAGE ID, OPTION CONTROLS, 
AND THE ADDRESSES UF THE DATA 
.WORDS TO BE OUTPUTTED. 
THIS ROUTINE WILL CALL ON EITHeR 
LOG OR ERROR, DETERMINED BY THE 
ENTRY USED. 

THE ROUTINE ALLOWS i_~iG OR ERROR 
TO BE BYPASSED BY HAVING THE BYPASS 
BIT SPECIFIED IN THE CALL SET ON 
IN BIT SW WORD 0. 















LOC 


; ENTRY 


0C42 


0000 




LOGCL 


DC 









0C4 3 1 
0C45 


6780 
6200 


0C42 




LDX 
LDX 


13 
2 


LOGCL 




LOAO STRING ADDR 


0C46 
0C47 1 
0C49 
0C4A 


6A1B 
66C0 
6A1A 
6600 


094D 
012F 




STX 
LDX 
STX 
LDX 


2 

L2 
2 

L2 


L0GCS64 
AIRTM 
LGRTNCl 
LOG 


RESET TFRM ADDR 
LOAD RET TO MON ADDR 
INIT RET'JRN ADDR 
LOAD CALL ADDR 


0C4C 
0C4D 1 
0C4F 


401B 
6E00 
7009 


08 5A 


* 


BSI 
STX 
MDX 


L2 


ERLGl 
TIERS 
LOGCK 


SET UP STRING 
RESET TIMER ERR UW 








* 
* 






ERROR ENTRY 



SE 



PR06 



DATE 


28FE866 


01MAY66 


01JUL66 


15DEC66 


01SEP67 


14N0V69 


17APR70 


EC NO. 


415120 


415178 


415178 


421206 


411875 


431319 


431321 



82214300 

82214310 

82214320 

82214330 

82214340 

82214350 

82214360 

82214370 

82214380 

82214390 

82214400 

82214410 

82214420 

82214430 

82214440 

82214450 

82214460 

82214470 

822144B0 

82214490 

82214500 

82214510 

82214520 . 

82214530 

82214540 

82214550 

82214560 

82214570 

82214580 

82214590 

82214600 

82214610 

82214620 

82214630 

82214640 

82214650 

82214660 

82214670 

82214680 

82214690 

8221*700 

32214710 

82214720 

82214730 

82214740 

82214750 

82214760 

82214770 

82214780 

82214790 

82214800 

82214810 

82214820 

82214830 

82214840 

82214850 

82214860 

82214870 

8??14R80 

82214890 

8221490U 

82214910 

82214920 

82214930 

32214940 

82214950 

82214960 

82214970 



PROG ID 
PAGE 
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CO 

c 

CO 



0C50 


0000 




ERRCL 


DC 







0C51 


6600 


0130 




LOX 


L2 ERROR 


LOAD CALL ADDR 


0C53 


1 6780 


0C50 




LOX 


13 ERRCL 


LOAD STRING ADDR 


0C55 


C300 






LD 


3 


LOAD LOOP ADDR 


0C56 


DOOB 






STO 


L0GCSE4 


STORE LOOP ERR ADDR 


0C57 


7301 






MOX 


3 1 


MODIFY FOR STRING 


0C58 


400F 






BSI 


ERLGl 


SET UP STRING 


0C59 


C300 




LOGCK 


LD 


3 


LOAD BYPASS BITS 


0C5A 


1 E400 


0802 




AND 


L SHO 


TEST FOR BYPASS BIT 


0C5C 


4FA0 


FFFE 


* 


BSC 


13 -2,2 


EXIT IF BIT ON 








* 
***********«.*************************$#,,,,,**»,, 








* 




** LOG 


OR ERROR ** * 


0C5E 


4480 


0000 


LOGCS 


BSI 


I 


* 


OC 60 


• 0C91 






OC 


MSTBL 


ADDR OF MESSAGE TBL* 


0C61 


1 0C9B 






DC 


ERLGB 


ADDR OF BUSY RTN * 


0C62 


0000 




* 


DC 





ADDR OF RETURN-LOOP* 

* 
********************** 








******************** ** v 


0C63 


4C00 


0000 


LGRTN 

* 


BSC 


L 


EXIT ROUTINE 


0C66 


0000 




* 


BSS 


E 




0C66 


8000 




TSTRT 


DC 


/8000 


TIMER START IOCC 


0C67 


0420 




» 


DC 


/0420 




0C68 


COOO 




* 
ERLGl 


DC 







0C69 


6AF5 






STX 


2 LOGCStl 


SET CALL ADDR 


0C6A 


C303 






LD 


3 3 


LD MSG.l.D. 


0C6B 


I E-400 


09A6 




AND 


L H0040 




0C6D 


1 4C18 


0C71 




3Z 


*+2 




0C6F 


C302 






LD 


3 2 


LD RTRN.ADDR. 


0C70 


7006 






B 


ERLG3 




0C71 


C302 






LD 


3 2 


LD RTRN.ADDR 


0C72 


DOEF 






STO 


L0GCSC4 


STORE TERM ADDR 


0C73 


C01C 




. 


LD 


LNCNT 


LOAD LINE COUNTER 


0C74 


1 7401 


0C90 




MDX 


L LNCNT, 1 


8UMP CNTR 1 


0C76 


7002 




* 
ERLG3 


MDX 


ERLG5 




0C77 


DOEC 




STO 


LGRTNCl 


STORE RETURN ADDR 


0C78 


C017 






LD 


LNCNT 


LOAD LINE COUNTER 


0C79 


1008 




ERLG5 


SLA 


8 




0C7A 


8300 






A 


3 


ADD WORD COUNT 


0C7B 


0015 






STO 


"STBL 


SET COUNTER LINE 


0C7C 


C300 






LD 


3 


LD WORD COUNT 


0C7D 


0008 






STO 


MSSWAtl 


SAVE WORO COUNT 


0C7E 


C301 






LD 


3 1 


LOAD HEX-DEC SW 


0C7F 


0012 






STO 


MSTBLE1 


SET hEX-DEC SW LINE 


0C80 


C303 






LD 


3 3 


LOAD MESSAGE ID 


0C81 


EOOu 






AND 


HFFBF 




OC82 


0010 






STO 


MSTB1 


SET MESSAGE ID 


0C83 


7304 






MOX 


3 4 


ADD 4 TO STRING 


0C84 


6B03 






STX 


3 ERLG6£1 


SAVE STRING ADDR 


0C85 


6600 


0000 


MSSWA 


LOX 


L2 




0C87 


C680 


0000 


ERLG6 


LD 


12 


LD MESSAGE WORD 


0C89 


1 0600 


0C93 




STO 


L2 MST31 


SET MESS WD IN TABLE 


0C8B 


72FF 






MDX 


2 -1 


SKIP ON ZERO 


0C8C 


70FA 






MDX 


ERLG6 


BRANCH 


0C80 


1 4C80 


0C68 


# 


BSC 


I ERLGl 


EXIT ROUTINE 


0C8F 


FFBF 




HFFBF 

* 


DC 


/FFBF 




0C90 


0000 




LNCNT 


DC 





LINE COUNTER 


0C91 


0002 




MSTBL 


BSS 


2 


CONTROL LINES 


0C93 


0008 




MS1B1 

* 


BSS 


8 


ID AND MESSAGE 



SE 



SX 



PM05 



i>M06 



SE 
PR05 



PROfe 



PR04 



PR01 
PM04 
PM01 



SX 



82214980 
82214990 
82215000 
82215010 
82215020 
82215030 
82215040 
62215050 
82..15060 
82215070 
82215080 
82215090 
82215100 
82215110 
82215120 
82215130 
82215140 
82215150 
82215160 
82215170 
82215180 
82215190 
82215200 
82215210 
82215220 
82215230 
82215240 
82215250 
82215260 
82215270 
82215280 
82215290 
82215300 
82215310 
82215320 
82215330 
82215340 
82215350 
82215360 
822153"'0 
82215380 
82215390 
82215400 
82215410 
82215420 
82215430 
8221544G 
82215450 
82215460 

822154 70 
82215480 
82215490 
82215500 
82215510 
82215520 
82215530 
82215540 
82215550 
82215560 

822155 70 
82215580 
82215590 
82215600 
82215610 
82215620 
82215630 
82215640 
82215650 



IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 
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CO 

CD 

c 

CO 



U 



0C9B 6905 
0C9C C002 
0C9D 1 4C00 094B 



0C9F 1 OCAO 
OCAO 65 00 0000 
0CA2 6200 
0CA3 70BA 



* 

« 

ERLGB STX 
LD 
BSC 



GERC DC 
GLYR LOX 
LDX 
MDX 



0CA4 





0000 




0CA5 





4038 




0CA6 





409B 




0CA7 





0002 




0CA8 





0000 




0CA9 


1 


OCAE 




OCAA 





AAAA 




OCAB 





8000 




OCAC 


1 


OCAD 




OCAD 





0000 




OCAE 


1 


7401 


O'AD 


OCBO 


1 


74FF 


0CB9 


0CB2 





70F3 




0CB3 





6A0C 




0CB4 


1 


6E00 


0803 


0CB6 


1 


4C80 


0CA4 



LOG BUSY ROUTINE 
LGLYR61 SAVE INDEX REG 1 PR21 
LGERC LOAD RETURN ADDR 
AIEXXC3 EXIT TO MONITOR 



LGLYR ENTRY ADDRESS 

LI RESTORE INDEX REG 1 PM21 

2 RESTORE X2 # 

LOGCS BRANCH TO TRY AGAIN 



*♦ VERIFY ENTERED DATA ROUTINE ** 

THIS ROUTINE IS USED TO LOG ANY 
DATA WHICH IS ENTERED INTO THE 
TABLES, ALSO IT CAN BE '»SED TO 
LOG ANY WORD OR GROUP OF WORDS 
IN CORE. 

THIS ROUTINE IS ENTERED BY SETTING 
TABLE NUMBER, DISPLACEMENT, AND 
WORD COUNT IN BIT SWITCH WORO 01 
AND EXECUTING THE PROGRAM. 



IVED DC 
BSI 

******** 



AIAAS 



BSI 

DC 

DC 

DC 

DC 

DC 

DC 

DC 



0CB8 007F 
0CB9 0000 
OCBA 10A0 
OCBB 1 C400 0804 
OCBD 1 4C18 0CC2 
OCBF 401E 



AITAE 

********* 
MOX 
MDX 
MOX 
STX 
STX 

BSC 

* 

* 

* 
* 
* 
* 

* 
* 
* 

* 

* 

* 

* 

* 

AIC7F DC 

A1DWC DC 

AIDER SLT 
LD 
BSC 
BSI 




AIBSA 

*********** 
»* 
LOGCL 
2 


AITAEE 
/AAAA 
/8000 
AITAE 


*********** 

L AITAE, 
L AIDWC, 
A1VED6 
2 LNCNT 
L2 SW1 

I 'aived 



GO TO SETUP ADDR 

a************************ 

LOG CALL ** * 
GO TO LOG CALL SBRT* 

WORD COUNT * 

HEX-DEC SW XHEXD * 

1 RETURN ADDRESS * 

MESSAGE ID * 

BYPASS BIT * 

ADDR OF WORD * 

TBL ADDR STORAGE * 

**********«*********«#*** 



SE 



1 AJD 1 TO ADDR 

-1 SUBT 1 F3UM WORD CNT 

2 BRANCH 

RESET LINE CNTR 
RESET BIT SW WORD 1 
EXIT ROUTINE SX 



** DATA ENTRY ROUTINE *« 



THIS ROUTI 
OPERATOR T 
DATA TABLE 
CORE CAN e 
USING THF 
WORD ADDRE 
NUMBER 8. 
THIS ROUTI 
TABLE NUMB 
WORO COUNT 
AND EXECUT 



/007F 



32 

SW2 

AIUSA.t- 

AIBSA 



NE CAN BE USED BY THE 
U ENTER DATA INTO THE 
S. ALSO ANY WORD IN 
E CHANGED BY FIRST 
ROUTINE TO ENTER THE 
SS INTO TABLE POSITION 

NE IS ENTERED BY SETTING 
ER, DISPLACEMENT, ANO 

IN BI1 SWITCH WORO 02 
ING THL PROGRAM. 



.TERMINATOR CONSTANT 
WORD COUNT STORAGE 
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LD BIT SW WORD 2 

BR IF BITSW WORD # 



S6 



82215660 
82215670 
82215680 
82215690 
82215700 
82215710 
82215720 
82215730 
82215740 
82215750 
82215760 
82215770 
82215780 
82215790 
82215800 
82215810 
82215820 
82215830 
82215840 
82215850 
82215860 
82215870 
82215860 
82215890 
8221590C 
82215910 
82215920 
82215930 
82215940 
82215950 
82215960 
82215970 
82215980 
82215990 
82216000 
82216010 
8221602C 
82216030 
82216040 
82216050 
82216060 
82216070 
82216080 
82216090 
82216100 
82216110 

82216120 
82216130 
82216140 
82216150 
82216160 
82216170 
82216180 
82216190 
82216200 
82216210 
82216220 
82216230 
82216240 
82216250 
82216260 
82216270 
82216280 
82216290 
82216300 
82216310 
82216320 
82216330 



..;. O 



DATE 


28FEBA6 


01MAY66 


01JUL66 


15DEC66 


01SEP67 


14N0V6T 


17APR70 


PROG ID 


0822-1 


EC NO. 


415120 


415178 


415178 


421206 


411875 


431319 


431321 


PAGE 


12 



DATE 


28FEB66 


01MAY66 


01JUL66 


15DEC66 


01SEP67 


14N0V69 


17APR70 


PROG ID 


0822-1 


EC NO. 


415120 


41*178 


415178 


421206 


411875 


431319 


431321 


PAGE 


12A 



a o 



i < 
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<T5 

C 

CO 



OCCO 


1 


6E00 


0804 




STX 


L2 


SW2 


OCC2 





C0F6 




AIUSA 


LO 




A I DWC 


OCC3 


1 


4Cl8 


0CD8 




8SC 


L 


AILRK. £- 


0CC5 





F0F2 






EOR 




AIC7F 


0CC6 


1 


4C18 


OCFC 




BSC 


L 


AIRST.t- 


0CC8 


1 


C400 


0805 




LO 


L 


SW3 


OCCA 





BOOF 






CMP 




AIAAS 


OCCB 





7002 






MOX 




AISTW 


OCCC 





7001 






MOX 




AISTW 


OCCD 





700A 






MOX 




AILRK 


OCCE 


1 


0480 


OCAD 


AISTW 


STO 


I 


AITAE 


OCOO 


1 


7401 


OCAD 




MOX 


L 


AITAE, 1 


0CD2 





C0D7 






LD 




AIAAS 


0CD3 


1 


040 


0805 




STO 


L 


SW3 


0CD5 


1 


74FF 


0CB9 




MOX 


L 


AIDWC.-l 


0CD7 





1000 






SLA 







0CD8 





C803 




AILRK 


LOO 




RT06 


0C09 


1 


4Ct, 


0948 


* 


BSC 


L 


AIEXX 


OCDC 




0000 




* 


BSS 


E 





<TDC 





0006 




RT06 


OC 




6 


OCDO 


1 


OCBA 




£ 


DC 




AIDER 


OCOE 





0000 




AIBSA 


DC 







OCDF 





18CC 






RTE 




1? 


OCEO 





D001 






STO 




AILAR61 


0CE1 





6700 


0000 


AILAR 


LDX 


L3 





0CE3 





6200 






LDX 


2 





0CE4 





1010 






SLA 




16 


0CE5 





1085 






SLT 




5 


0CE6 


1 


8700 


0014 




A 


L3 


AIADT 


0CE8 





D0C4 






STO 




AITAE 


0CE9 





1010 






SLA 




16 


OCEA 





1087 






SLT 




7 


OCEB 





DOCD 






STO 




AIOWC 


OCEt 


1 


4C80 


OCOE 




BSC 


I 


AIBSA 



RESET BIT 5W WORD 2 

BR IF END TBL 

BR IF END DATA NTRY 

LO BIT SW WORD 3 

COMHARE TO TERMINATO 

BRANCH 

BRANCH 

BRANCH 

SET DATA WORD IN TBL 

ADD 1 TO TBL WD ADDR 

INITIALIZE BIT SW 3 
SUBT 1 FROM WORD CNT 
WILL SKIP LAST PASS 
LOAD ROUTINE 6 
BRANCH TO EXIT SX 



RT 06 - ENTER DATA 
ENTRY ADDRESS 

SE 



STO TBL ADDR 



ADD TABLE ADDR 
STO TBL POSTN ADDR 



STO TBL WORD CNT 
EXIT SUBROUTINE 



PR16 
PM16 



SX 



OCEE 


1 


OOCA 


OCEF 


1 


ODCC 


OCFO 


1 


0DC6 


0CF1 


1 


ODDO 


0CF2 


1 


0DD2 


0CF3 


1 


0E1E 


0CF4 


1 


0E8B 


0CF5 


1 


0EF8 


0CF6 


1 


0F65 


0CF7 


1 


0FD2 



CONSTANT TABLES 



AI 



I SUM OC 
DC 
DC 
DC 
OC 
»T DC 
DC 
DC 
DC 
DC 



AISUX 

AISUXE2 

AISU S4 

AISUXC6 

AISUXG8 

AISTB6 54 

AISTB6163 

AISTBE272 

AISTBC3ei 

AISTBC490 



SUM TABLE ADDR TBL * 

* 
**** 

* 
SPREAD TBL ADOR TBL» 

**** 



0CF8 2 4480 012C 
OCFA 1 07FF 



GO PROGRAM ENTRY 

THE PROGRAM IS ENTERED AT THI < POINT 
ONLY AFTER LOADING 



I GO BSI 
DC 



I BEGIN 
PID 



ADDR OF PID TRL 



RESTART ENTRY 
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82216340 
82216350 
82216360 
82216370 
82216380 
82216390 
82216400 
82216410 
82216420 
82216430 
82216440 
82216450 
82216460 
82216470 
82216480 
82216490 

82216500 
82216510 
82216520 
82216530 
82216540 
82216550 
82216560 
82216570 
82216580 
82216590 
82216600 
82216610 
8221*620 
82216630 
82216640 
82216650 
82216660 
82216670 
822166S0 
82216690 
82216700 
8221671C 
82216720 
82216730 
82216740 
82216750 
82216760 
82216770 
82216780 
82216790 
82216800 
82216810 
82216820 
82216830 
82216840 
82216850 
82216860 
82216870 
82216880 
82216890 
82216900 
82216910 
82216920 
82216930 
822169'.0 
82216950 
82216960 
82216970 

822169e0 
82216990 
82217000 
82217010 



IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 
• I DC SEQUENTIAL FUNCTION TEST 



LO 

C . 
CO 



J u 



OCFC 



0000 



* 



ENTRY IS MADE AT THIS POINT AFTER 
EXITING FROM THE DATA ENTRY ROUTINE. 



BSS E 



OCFC 4005 

OCFD 1 4400 0.899 

OCFF 2 4C80 012D 

0D01 0420 
ODOO 



0D02 
0003 
0004 
0005 
0D07 
0008 



0000 

08FC 

6200 

6E00 0920 

6A88 

6AB0 



0009 1 OCOO 0918 
ODOB 1 OCOO 08BC 



ODOD 2 4480 0132 
ODOF 1 0811 
0D10 1 0812 
ODU 1 080A 



0D12 1 4C80 0D02 



AIRST BSI 
BSI 

BSC 

* 

STCC DC 
TSTOP EOU 

* 
* 
* 

* 

* 

* 

A I END DC 
XIO 
LDX 
STX 
STX 
ST* 
XIO 

XIO 

a********* 

• 

BSI 
DC 
OC 
DC 



A I END 

RSAI 

START 

/0420 
STCC-1 



RESET PROGRAM 
INITIALIZE 
RESTART PROG" AM 

STOP TMR IOCC 



** END PROGRAM ROUTINE ** 

THIS ROUTINE IS ENTERED FROM MONITOR 
WHENEVER THIS PROGRAM IS BE'NG 
DESELECTED. TI IS THE ONLY ROUTINE 
THAT RELEASES THE TIMERS. 



0014 


1 


0813 


CD 15 


1 


0815 


0D16 


1 


0816 


0D17 


1 


08 1C 


0D18 


1 


0822 


0D19 


1 


0823 


0D1A 


1 


09EF 


CD1B 


1 


0D1C 


0D1C 


1 


0A46 


001D 


1 


0828 


0D1E 


1 


0833 


0D1F 


1 


OD20 



********* 
BSC 





TSTOP STOP TIMER 
2 

L2 AITMS RESET TIME SWITCH 

2 LNCNT RESET LINE COUNTER 

2 AIOWC RESET DATA WORD CNTR 

L AIBST RESET AI 

L CKDSW RESET OSW 

*********************************** 

'** RELEASE DEVICES ** * 
RELDV GO TO REL DEVICES * 
EDIT ADDR OF AI DEV DEF * 
EDlTtl ADDR OF TM DEV DEF * 
TERM ADDR OF TERMINATOR * 

* 

*************9*JS****J************** 

I AIEND EXIT ROUTINE 



SE 



I 



SX 



AIAOT 


DC 


TIBT1 




DC 


1 AICYC 




DC 


2 AIMPX 




OC 


3 A1PRC 




DC 


4 A1FRS 




DC 


5 RANGE 




DC 


6 AIHXS 




DC 


7 AIADTt8 




DC 


8 AICYR 




DC 


9 AIIAT 




DC 


A AIXSS 


* 


DC 


B AIDRT-2 


* 
* 




VARIABL 



ADDRESS CONSTANT TABLES 

FOR USE WITH THE DATA ENTRY AND THE 
VERIFY ENTERED DATA ROUTINES. 
THE TABLE NUMBER IS T;:C- NUMBER BE- 
TWEEN the aoca and sconstants. this 

NUMBER IS ENTERED IN BO - B3 OF 
THE PROPER BIT SWITCH WORD. 



ADDR OF TMR CONSTANT 
CYCLE COUNT ADDRESS 
MPX AODR TBL ADDR 
PREC RriNG TBL ADDR 
RESOLUi ION TBL ADDR 

RANGE TABLE ADDRESS 
HEX-0EC*AO01n SW ADDR 
AUX 

AUX/CCCLE CNTR ADDR 
.INPUT ADDR TBL ADH 
EXT SYNC SW ADDR 
INPUT DATA TBL ADDR 
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82217020 

82217030 
82217040 
82217050 
82217060 
82217070 
82217080 
82217090 
82217100 
82217110 
82217120 
82217130 
82217140 
82217150 
82217160 
82217170 
82217180 
82217190 
82217200 
3221/210 
82217220 
82217230 
82217240 
82217250 
82217260 
82217270 
82217280 
82217290 
82217300 
82217310 
82217320 
82217330 
82217340 
82217350 
82217360 
82217370 
82217380 
82217390 
82217400 
82217410 
82217420 
82217430 
82217440 
82217450 
82217460 
82217470 
8?217480 
B2217490 
82217500 
82217510 
82217520 
82217530 
82217540 
82217550 
82217*60 
82217570 
822175 80 
82217590 

82217600 
82217610 
82217620 
82217630 
82217640 
82217650 
82217660 
82217670 
82217680 
82217690 



DATE 


28FEB66 


01MAY66 


01JUL66 


15DEC66 


01SEP67 


14N0V69 


17APR70 


PROG ID 


0822-1 


EC NO. 


415120 


415178 


415178 


421206 


411875 


431319 


431321 


PAGE 
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DATE 


28FEB66 


01MAY66 


01JUL66 


15DEC66 


0ISEP67 


14N0V69 


17APR70 


PROG 10 


0822-1 


EC NO. 


415120 


415178 


415178 


421206 


411875 


431319 


431321 


PAGE 


13A 
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CO 

c 

CO 



0D20 





0000 




DC 





0021 





0000 




DC 





0D22 




00A8 


AIDRT 


BSS 


166 


ODCA 




COOA 


AISUX 


BSS 


E 10 


0DD4 




0005 


AIDTA 


BSS 


5 


0uD9 




0005 


AIGRD 


BSS 


5 


ODDE 




0005 


AIOTR 


BSS 


5 


ODE 3 




0005 


AIOVC 


BSS 


5 


ODES 




0222 


AISTB 


BSS 


546 


OFFC 






PARA 


ORG 


/7F06PID 


OFFC 





FFF2 


PEND 

* 


DC 


PEND-PARA 



WORD CNT WORD 

FIRST MPX ADDR 

INPUT OATA TABLE 

SUM TABLE 

DATA TBL ADDRESSES 

GOOD READING TABLE 

OUT OF TBL CNTR TBL 

OVERLOAD CNTR TBL 

SPREAD TABLE 

PATCH AREA 

ADDR OF LAST WORD 



OFFE 0CF8 

NO STATEMENTS 



END AIGO 
FLAGGED IN THE ABOVE ASSEMBLY 



82217700 
82217710 
82217720 
82217730 
82217740 
82217750 
82217760 
82217770 
8221778C 
82217790 
82217800 
82217810 
82217820 
82217830 
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C . 
CO 



DATE 


28FEB66 


01MAY66 


01JUL66 


15DEC66 


01SEP67 


14N0V69 


17APR70 


PROG ID 


082^-1 


EC NO. 


41bl20 


415178 


415178 


421206 


411875 


431319 


431321 


PAGE 


14 



«J 



o 



ACAI 

ACHNB 

AC0N1 

AC0N2 

AC0N3 

AIAAS 

AIADT 

A I APR 

AIBSA 

AIBST 

AIBSY 

AIB08 

AIB11 

AIB14 

AICHA 

AICHB 

AICHC 

AICHO 

AICHE 

AICHF 

AICHG 

AICHH 

AlCHI 

AICKB 

AICKC 

AICKT 

AICLM 

AICNC 

AICNT 

AICVC 

AICYR 

AIC7F 

AIDCN 

AIDER 

AIORT 

AIDSW 

AIDTA 

AIDMC 

AIENS 

AIENO 

AK-NX 

A I EOT 

AIERC 

AIERL 

AIERR 

AIERS 

A!EVL 

AIEV1 

AIEXB 

A4EXT 

AIEXX 

AIFRS 

AIGO 

AIGRD 

AIHIL 

AIHXS 

AIIAT 

AI1BR 

AIIBT 

AIINP 

AI INX 

AIIRD 

A1IST 

A1I2Z 

AJJO 

AILAR 

AILOL 



087C 
0BB9 

OBOE 
OBOF 
0B10 
OCAA 
0D14 
0821 
OCDE 
0918 
08EE 
0922 
0923 
0921 
0C08 
0BF4 
OBDF 
OBEE 
0BC5 
0C01 
0B34 
OBFA 
OCOB 
096F 
095F 
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1. PURPOSE 

THE ANALOG-INPUT DATA CHANNEL SEQUENTIAL (AI DC SEQ) FUNCTION TEST IS 
DESIGNED TO TEST THE ANALOG INPUT FEATURE UNDER SINGLE CHANNEL CONTROL. A 
MAXIMUM OF 1'0 MULTIPLEX ADDRESSES CAN BE OPERATED ON AT ONE TIME. UP TO 
FIVE MULTIPLEX ADDRESSES CAN BE SELECTED FOR EVALUATION OF ACCURACY ANO 
REPEATABILITY. UP TO FIVE TABLES CAN BE CHAINED TOGETHER TO A TOTAL WOF.O 
LENGTH OF 156 WOROS INCLUDING CHAIN ADDRESS AMD CAR CHECK WORDS. RELAY- 
SOLID STATE OVERLAP CAN BE CHECKEO BY CHAINING A SOLID STATE TABLE TO A 
RELAY TABLE ANO VISA VERSA. 

2. PREREQUISITES 

2.1 PROGRAM PREREQUISITES 

THE AI OC SEQ FUNCTION TEST MUST RUN IKOER CONTROL OF THE DIAGNOSTIC 
MONiTOR. 

EQUIPMENT PREREQUISITES 

A. MONITOR PREREQUISITES 

B. ANALOG-INPUT FEATURE 



2.2 



3. OPERATING PROCEDURE 

3.1 PROGRAM LOAC NG 



3.2 PROGRAM OPERATION 

STANDARD MONITOR OPERATING PROCEDURES APPLY. 

THESE PROCEDURES ARE SUMMARIZED HERE. SEE OM USE PROCEDURE F0» 

DETAILS. 

1. CLEAR STORAGE 

2. LOAD DIAGNOSTIC MONITOR 

3. SELECT MODE OF EXECUTION 

4. SELECT MHNITOR CONTROL OPTIONS 

5. SELECT PROGRAM OPTIONS FROM TABLE PROGRAM CONTROL FUNCTION. 

6. INSTRUCT MONITOR TO EXECUTE (SEE SECTION 3.2.5 IN DIAGNOSTIC 
MONITOR DOCUMENTATION). 



TABLE 



CONTROL FUNCTION 



SENSE/PROGRAM 
01234567 

1 I 



1. SET FUNCTION 00 IN SENSE/PROGRAM SWITCHES AND 1. 

2. SET PID IN SENSE/PROGRAM SWITCHES 2 THROUGH 7. 

3. SET DESIRED CONTROL OPTIONS IN DATA ENTRY SWITCHES 0-i5. 

4. PRESS CONSOLE INTERRUPT. 



• DATA ENTRY SU1TCHES * DESCRIPTION • 
« 1 2 3 4 5 6 7 6 9 10 11 12 13 14 15 • • 

• 1 BYPASS ALL LOG OUTPUT • 

*......... 1 ..................... BYPASS BLAST AI * 

• 1 BYPASS EOXX OUTPUT • 

>...... 1 BYPASS ALL D001 OUTPUT • 

• 1 BYPASS D001 DISTRIBUTION TABLE • 

• . . . . I BYPASS A001 OUTPUT » 

• . . . 1 ...BYPASS ERROR (EOOX) OUTPUT • 

• • • 1 BYPASS SETUP ERROR (ECIX) » 

• • 1 BYPASS TIMER DSw ERROR (COOO) • 

• 1 BYPASS DATA VERIFY OUTPUT • 



3.3 



3. 4 



3.5 



STANOARO LOADING PROCEDURE AS DESCRIBED IN THE t'lAGNOSTIC MONITOR USE 
PROCEDURE. 
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PROGRAM HALTS 

A DESCRIPTION OF EACH PROGRAM HALT CONDITION CAN BE FOUND AT THE 
BEGINNING OF THE PROGRAM LISTING. 

PROGRAM TERMINATION 

STANDARD MONITOR TERMINATION 

SETUP OF DATA TABLE 

EACH DATA TABLE IS INITIALLY SPECIFIED INTERNALLY WITHIN THE PROGRAM TO 
ESTABLISH THE PARAMETERS FOR EVALUATING THE BASIC OPERATIONS 
OF THE CE CALIBRATE POINT. AN EXPLANATION OF THIS INITIAL SETUP IS 
CONTAINED IN THE APPENDIX SECTION 6.1. 

THE DATA TABLES CAN bE CHANGED EITHER BY CHANGIT.G THE ED»T CAROS ANO RELOADING 
OR DIRECTLY IN CORE USING THE DATA ENTRY SELECT FUNCTION. 

1. EDIT CAROS. 

THE PROGRAM EDIT FEATURE I. USED TO LOAD THE DATA TABLES WITH 
THE DESIREO INFORMATION. ANY OR ALL OF THE TABLE DATA CAN 3E 
CHANGED OR MODIFIED BEFORt THE INITIAL LOADING OF THE PROGRAM. 
SEE FIGURE 1 FOR AN EXPLANATION OF EACH DATA TABLE. 
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2. DATA ENTRY ROUTINE. 

ANY OR ALL OF THE TABLE DATA CA?.' BE CHANGEO BY USING THE DATA 
ENTRY ROUTINE. THIS IS DONE ANYTIME AFTER THE PROGR*M IS IN 
CORE AND EXECUTING. FUNCTION 10-11 OF THE MONITOR READ BIT 
SWITCHES FEATURE IS USEO. FUNCTION 10 IS USED TO SET UP THE 
AOORESS OF THE WORD OR WORDS TO BE CHANGED. FUNCTION 11 IS USED 
TO ENTER THE NEW WORD. WORDS CAN BE ENTERED IN SEQUENCE BY 
SETTING THE DESIRED DATA INTO THE SUITCHES AND PRESSING CONSOLE 
INTERRUPT FOR EACH WORD i3 BE ENTERED. SEE TABLE 2 AND 3. 

A WORD COUNT EQUAL TO THE TERMINATOR (127) IS ENTERED AFTER A 
COMPLETE DATA ENTRY OPERATION I VIA FUNCTION 10). THIS RETURNS THE 
CONTROL TO THE OPERATING PROGRAM. AN EXPLANATION OF THE DATA 
TABLES IS CONTAINED IN FIGURE 1. 

3. DATA VERIFY ROUTINE 

IF IT IS NECESSARY TO PRINT THE CONTENTS OF AN AI TABLE IN COREt 
} TABLE 1 (DATA VERIFY) SHOULD BE USED. THE WORD COUNT (SWS. 9-15) 
' INDICATES THE NUMBER OF WCROS TO BE PRINTEC, TABLE DISPLACEMENT 
(SWS. 4-8) WILL SPECIFY THE FIRST WORD 10 BE PRINTf.D FROM THE 
TABLE, AND TABL2 NC. {SWS. 0-3) REFERS TO THE DESIRED TABLE 
ISEE THE DATA ENTRY ADDRESS TABLE LIST FOLLOWING TABLE 3). 

FOR EXAMPLE, THERE IS AN AI TABLE IN STORAGE THAT HAS THE 
CONVERTED VALUES OF ALL THE ADDRESSES THAT ARE SPECIFIED IN THE 
AIIAT TABLE. (MAXIMUM OF 150 ADDRESSES) IF THE CE WISHES TO 
, PRINT OUT THE FIRST 127 . ONVERTED VALUES, THE FOLLOWING ENTRY 
* SHOULD BE MAOE USING TABLE 1. TABLE NO. IS B (SWS. 0-3! , TABLE 
DISPLACEMENT IS (SWS. 4-8 ) AND WORD COUNT IS 127 (SWS. 9-15). 



• SENSE/PROGRAM 

• 01234567 

• 

• 01100010 



TABLE 1 DATA VERIFY ROUTINE SELECT 

1. SET FUNCTION 01 IN SFNSE/PROGRAM SWITCHES AND 1. 

2. SET PID IN SFNSE/PROGRAM SWITCHES 2 THROUGH 7. 

3. SET OATA TABLE IDENTIFICATION IN DATA ENTRY SWITCHES 
0-15. 

4. PRESS CONSOLE INTERRUPT. 



• 1 2 3 4 



OATA ENTRY SWITCHES 
5 6 7 8 9 10 11 12 13 
X X X X X 



X X X X 



• DESCRIPTION 



14 15 
X X 



X X X X X 



WORD COUNT. 1-127 

TABLE DISPLACEMENT. 0-31 
BIT SWITCHES 4 THRU 8 ARE USED TO 
ALLOW ENTERING THE SELECTEO TABLE AT 
ANY OF THE FIRST 32 WORDS. 

TABLE NUMBER. 0-F SEE THE OATA 
ENTRY ADORESS TABLE LIST 
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SENSE/PROGRAM • 
1234567* 



• 1 



0100010* 



TABLE 2 DATA ENTRY ROUTINE SELECT 

1. SET FUNCTiON 10 IN SENSE/PROGRAM SWITCHES AND 1. 

2. SET PID IN SENSE/PROGRAM SWITCHES 2 THROUGH 7. 

3. SET DATA TABLE IDENTIFICATION IN DATA ENTRY SWITCHES 
0-15. 

4. PRESS CONSCLE INTERRUPT. 

NOTE- PROGRAM MUST BE EXECUTING. 



• 



OATA ENTRY SWITCHES • DESCRIPTION 

1 2 3 4 5 6 7 8 9 10 II 12 13 14 15 • 

X X X X X X X WORD COUNT CR TERMINATOR. 1-127 

TERMINATOR = 127 



X X X X X 



• X X X X 



TABLE DISPLACEMENT. 0-31 
BIT SWITCHES 4 THRU 8 ARE USED TO 
ALLOW ENTERING THE SELECTED TABLE AT 
ANY OF THE FIRST 32 WORDS. 

TABLE NUMBER. 0-F SEE THE DATA 
ENTRY ADDRESS TABLE LIST 



A WORD COUNT EQUAL TO THE TERMINATOR (127) IS ENTERED AFTER A COMPLETE 
OATA ENTRY OPERATION. THIS RETURNS CONTROL TO THE OPERATING PROGRAM. 



• SENSE/PROGRAM • 

• 01234567* 

• • 

•1110C010* 



TABLE 3 



DATA ENTRY FUNCTION 



1. SET FUNCTION 11 IN SENSF/PROGRAM SWITCHES ANO 1. 

2. SET PID IN SENSE/PROCRAM SWITCHES 2 THROUGH 7. 

3. SET OATA WCRD INTO DATA ENTRY SWITCHES 0-15. 

4. PRESS CONSCLE INTERRUPT. 

NOTE- PROGRAM MUST BE EXECUTING. 



• DATA ENTRY SWITCHES • DESCRIPTION • 

• 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 • • 
•XXXXXXXXXXX X X X X X DATA WORD TO BE ENTERED INTO TABLE • 

• POSITION SELECTED BY FUNCTION '0. • 

• SEE TABLE 2. • 

DATA ENTRY ADDRESS TABLE LIST 

FOR USE WITH THE OATA ENTRY AND THE VERIFY DATA ROUTINES. 

THE TABLE NUMBER IS ENTERED IN B0-B3 OF THE DATA ENTRY SWITCHcS. 

SEE DATA VERIFY ROUTINE SELECT AND DATA ENTRY ROUTINE SELECT, TABLES 1 AND 2. 
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CORE 


TABLE 


TABLE 


SYMBOLIC 


NO. 


ADDRESS 





TIBTI 


1 


AICYC 


2 


AIMPX 


3 


AIPRC 


* 


AIFRS 


5 


RANGE 


6 


AIHXS 


7 


AIADT+8 



CORE TABLE NAME 



TABLE 

LENGTH 



RANGE 



3.6 



NAME 
TI3T1 

AICYC 

AIMPX 

AIPRC 
AIAPR 

AIFRS 



OATE 
EC NO. 



1 
1 
6 
6 

1 
5 
1 

1 



8 


AICYR 


9 


AIIAT 


A 


mIXSS 


8 


AIDRT-2 



TIMER A SPEEO CONSTANT 

CYCLE COUNT 

MULTIPLEX ADDRESS TABLE 

PRECISION READING TABLE 

RESOLUTION MULE 

RANGE TABLE 

HEX-DEC/U001I SWITCH 

THIS WORD CONTAINS THE AODRESS OF THE FOLLOWING 

WORD. BY SELECTING TABLE ADDRESS 7 IN DATA ENTRY 

FUNCTION 10 ANY CORE ADORESS CAN 8E ENTERED INTO TABLE 

ADDRESS 8 USING FUNCTION 11. THIS AODRESS FNTTREO 

DETERMINES THE STARTING POSITION OF THE CORE TAB' L 

ADDRESSED BY POSITION 8 CF THE ADDRESS TA3LE. BY 

SELECTING TABLE ADORESS 8 FUNCTION 10, DATA CAN BE 

ENTERED INTO THIS CORE TABLE USING FUNCTION 11. THIS 

ALLOWS ANY 1-126 WORO TABLE IN CORE TO BE MOOIFIEO. 

CYCLE COUNTER — ANY ADORESS CAN BE ENTERED HERE 1-159 

INPUT ADDRESS Ta^LE h 

EXTERNAL SYNC SWITCH 1 

INPUT DATA TABLE J58 



DATA TABLE EXPLANATION 



FIGURE 1. 



DATA TABLE EXPLANATION 

EXPLANATION 

ONE-WORD TABLE. A CONSTANT TO ESTABLISH THE INTERRUPT RATE OF TIMER 
A IS ENTERED IN THIS WORD. SEE TABLE IN LISTING. 

ONE-WORD TABLE. THIS COUNT DETERMINES THE NUMBER OF TIMES EACH 
SPECIFIED KULTIPLEX ADDRESS IS READ AND CONVERTED. THE COUNT MAY BE 
ANY NUMBER FROM I TO 32,000 ODOO HEX) CYCLE COUNTS. 

SIX-WORD (MAXIMUM) TABLE. THE MULTIPLEX ADDRESSES TO BE READ AND 
EVALUATED FOR ACCURACY AND REPEATABILITY ARE ENTERED IN THIS TABLE. 
THE LAST WORO MUST BE AN FFFF. SEE EXAMPLE 1. 

FIVE-WORD TABLE. THE PRECISION DIGIT VALUE CORRESPONDING TO EACH 
MULTIPLEX ADDRESS IN TKE AIMPX TABLE IS ENTERED IN THIS TABLE. 

ONE-WORD SWITCH. A ONE BIT IN THIS WORO WILL CAUSE THE FIRST VALUF 
REAO FOR EACH SELECTED MULTIPLEX ADDRESS TO BE ENTEREO IN THE AIPRC 
TABLE. A ZERO WILL CAUSE THE AIPRC TABLE ENTRIES TO BE USED AS THEY 
ARE SPECIFIED. THIS SWITCH IS THE 6TH ENTRY OF THE AIPRC TABLE. 

ONE-WORD TABLE. THE RESOLUTION FOR THE ADDRESSES IN THE 
AIMPX TABLE IS FNTERED IN THIS TABLE. OOOE 14-BIT RESOLUTION, 
OOOB 11-BIT RESOLUTION, AND 0008 8-BIT RESOLUTION. 
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FIVE-WORO TABLE. THE RANGE CONSTANT CORRESPONDING TO EACH OF THE 
MULTIPLEX ADDRESSES IN THE AIMPX TABLE IS ENTEREO IN THE 
CORRESPONDING LOCATION OF THIS TAeLE. THE VARIOUS RANGES AND RANGE 
CONSTANTS ARE LISTED BELOW. 



RANGE 



HEX CONSTANT 



500 MV 


01F4 


200 MV 


00C8 


100 MV 


0064 


50 MV 


0032 


2C MV 


0014 


10 MV 


OOOA 


5 VOLTS 


0105 



ELEVEN WORO TABLE. THE DATA USEO TO SETUP THE MPX AODRESSES '0 BE 
READ IS ENTERED INTO THIS TABLE. THE STARTING MPX ADORESS IS FOLLOWED 
BY A WORD COUNT TO DETERMINE THE LENGTH OF THE SEQUENCE. SEE EXAMPLE 
2 FOR THE VARIOUS CONFIGURATIONS. 

ONE WORD SWITCH. A ZERO IN THIS WURD SELECTS NORMAL MODE OF 
OPERATION. A ONE SELECTS EXTERNAL SYNC MODE. (NOTE A PULSE SQURCc 
MUST BE CONNECTED TO EXTERNAL SYNC INPUT IF EXTERNAL SYN^ MODE IS 
SELECTED). 

EXAMPLE 1 



AIIAT 



1000 
0004 WC 
1008 
0002 WC 
0000 
0006 WC 
1010 
OOOA WC 
1020 
0020 WC 
FFFF 



AIMPX 

1000 
1009 
0004 
1011 
102A 



THE AIMPX TA3LE IS USEO TO SPECIFY TO FIVE 
ADDRESSES TO BE EVALUATED. THESE AODRESSES 
MUST BE ENTEREO IN THE SAME ORDER FOUMO IN 
THE TABLES FORMED FROM THE AIIAT TABLE. 



EXAMPLE 2 
(EXAMPLE OF A TYPICAL AIIAT TABLE) 



AIIAT ENTRY 

1000 
0004 
100B 
0002 
0000 
0006 
1010 
OOOA 
1020 
0020 
FFFF 



AIIAT 
1000 
0004 
FFFF 



28FEB66 01JUL66 
415120 415178 



DESCRIPTION 

TABLE 1 

4 SEQUENTIAL SS ADDRESSES 1000-1003 

TABLE 2 

2 SEQUENTIAL SOLID STATE ADDRESSES 1008-1009 

TABLE 3 

6 SEQUENTIAL RELAY ADDRESSES 0000-0005 

TABLE 4 

10 SEQUENTIAL SOLID STATE AODRESSES 101O-1019 

TABLE 5 

32 SEQUENTIAL SOLID STATE ADDRESSES 1020-103F 

THE TERI 1NAT0R CAN BE PLACED TO ALLOW CHAINING 

UP TO FTVE TABLES. THE ABOVE SETUP SHOWS FIVE. 

FOR NO CHAINING THE AIIAT TABLE SETUP IS AS 
FOLLOWS, 

EACH SET OF TWO WORDS (AN ADDRESS AND WORO 
COUNT) FORM A TABLE. 
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VOLTAGE 


CYCLE 


VALUE 


COUNT 


READ 




xxx.xxxxx 


XXXXXXXX 



4.0 PRINTOUTS 

ALL OF THE MESSAGES OUTPUTTEO BY THIS PROGRAM ARE IN THE STANDARD MONITOR 
FORMAT. THE FIRST FOUR WORDS OF THE MESSAGE ARE ALWAYS IN HEX AND ARE USED 
FOR IDENTIFICATION ONLY. THE MESSAGE EXPLANATIONS GIVEN BELOW DO NOT 
SHOW THE PROGRAM ID (PID). 

THE REMAINDER OF THE MESSAGE CAN BE EITHER IN HEX OR OECIMAL. IN THE WORDS 

WHERE FRACTIONAL VALUES CAN APPEAR THE OECIMAL POINT POSITION IS INDICATED 

IN THE EXAMPLE. NC DECIMAL POINTS ARE LOGGED. A MINUS SIGN IS LOGGED 
PRECEEDING THE NEGATIVE OECIMAL VALUES. 

MID KID RAD MULTIPLEX PRECISION OIGIT 
ADDRESS DIGIT VALUE 
VALUE READ 
AC01 OOOX XXXX XXXXXXXX XXXXXXXX XXXXXXXX 

THIS DECIMAL MESSAGE IS USED TO OUTPUT ANY DATA READ THAT IS OUT OF 
THE SAVE TABLE LIMITS, OVERLOADS EXCEPTED. THE SAVE TABLE INCLUDES 
THE PRECISION READING PLUS AND MINUS 54 DIGITS. 

AODR WORD 

OF 

WORD 
AAAA CCOX XXXX XXXX XXXX 

THIS HEX MESSAGE IS USED TO OUTPUT PROGRAM DATA TABLES AND SWITCHES 
TO VERIFY CONTENTS. ^EE TABLE 1. THE MESSAGE MAY BE FROM 1-127 
LINES. 

TIMR ERROR 

DSW COUNT 
COOO OCOX XXXX XXXX XXXX 

THIS HEX M C SSAGE IS USED TO LOG TIMER DSW ERRORS. AFTER THIS ERROR IS 
LOGGED THE PROGRAM IS ENDED. THE ERROR COUNT INDICATES THE NUMBER OF 
ERRORS COUNTED SINCE THE LAST LOG. 



MIO RIO RAD ERR DSW DSW ERR CYCLE 
ID LAST LAST CNT CNT 
SNS INT 
EOOX OCOX XXXX XXXX XXXX XXXX XXXX XXXX 

THIS HEX MESSAGE IS USEO TO OUTPUT ERRORS OCCURRING DURING PROGRAM 
OPERATION. 



LINE 



MULTIPLEX RANGE 
ADDRESS 



0001 OCOX XXXX XXXXXXXX XXXXXXXX 



PRECISION PRECISION* 

DIGIT VOLTAGE 

VALUE VALUE 

XXXXXXXX XXX.XXXXX 
THIS DECIMAL MESSAGE IS USED TO LOG THE EVALUATION DATA FOR THE 
MULTIPLEX ADDRESSES SELECTED. THE SUMMARY DATA IS GIVEN IN THE FIRST 
THREE LINES AND THE DISTRIBUTION TABLE IS CONTAINED IN THE FOLLOWING 
1-109 LINES. 

LINE 1 

PERCENT PERCENT MEAN MEAN* 
ACCURACY REPEAT- DIGITS VOLTAGE 

ABILITY 
XXXX. XXXX XXXX. XXXX XXXXXXX.X XXX.XXXXX 
LINE 2 

ACCURACY REPEAT- RESOLUTION CYCLES OVERLOAO OUT OF TABLE 

DEVIATION ABILITY COUNTER COUNTER 

DEVIATION 

XXXXXXX.X XXXXXXX.X XXXXXXXX XXXXXXXX XXXXXXXX XXXXXXXX 

LINE 3 THROUGH LINE 112 

VOLTAGE* DIGIT COUNT 

VALUE VALUE 

XXX.XXXXX XXXXXXXX XXXXXXXX 

• VOLTAGE VALUES ARE GIVEN IN TERMS OF THE RANGE. SEE THE RANGE 
TABLE IN SECTION 3.1. 



EOOO 

£001 

E003 
6007 

EOOB 



ERROR OETFCTED DURING INTERRUPT. 



THE DSW WORD WONT RESET TO ZERO. 



ENO OF TABLE DIDN'T OCCUR 

BUSY STAYS ON OVER 100MS. THE SENSED DSW WORD IN THE MESSAGE 
CONTAINS ONLY BITS e AND 9 THE OTHER BITS IF ANY ARE ANDED OUT. 

THE DSW IS NOT RESET TO ZERO AFTER EXECUTING A BLAST AI 
OPERATION. 



1ST 


1ST 


MPX 


EVALUATION 


ADDR 


ADDR 



E010 OCOX XXXX XXXX XXXX 



SET UP ERROR 



THIS ERROR WILL OCCUR IF NO MULTIPLEX ADDRESSES ARE SELECTED TO BE 
READ AND EVALUATED. AFTER LOCGING IS COMPLETED THE PROGRAM CONTROL 
IS TRANSFERRED TO THE DATA ENTRY ROUTINE. 

5. COMMENTS 

5.1 THE AIDC SEQ FUNCTION TEST IS DESIGNED TO ALLOW THE CUSTOMER 
ENGINEER TO VERIFY THE OPERATION OF EACH FUNCTION OF THE ANALOG 
INPUT FEATURE USI.4G THE SINGLE TABLE (SEQUENTIAL) MODE OF OPERATION. 

5.2 AN INITIAL MULTIPLEX AODRESS AND A WORD COUNT IS ENTERED INTO THE 
AIIAT TABLE FOR EACH ADDRESS TABLE DESIRED. CHAINtNG MAY BE SPECIFIED 
UP TO FIVE TABLES. ENTFR THE BEGINNING MULTIPLFX ADDRESSES IN THE 
AIIAT TABLE IN SEQUENCE GACH FOLLOWED BY A WCRD COUNT TO ESTABLISH 
EACH TABLE LENGTH. THE COMBINED TABLE LENGTH MUST NOT EXCEED 158 
WORDS. 

5.3 THE AIMPX TABLE IS USED TO SPECIFY UP TO FIVE AOORESSE." TO BE 
EVALUATED. THESE ADDRESSES MUST BE ENTERED IN THE SAME ORDER FOUND 
IN THE TABLES FORMLD FROM THE AIIAT TABLE. 

5.4 THE AIPRC TABLE IS USED TO PROVIDE A PRECISION DIGIT VALUE WHICH 
POSITIONS THE CENTER OF THE DISTRIBUTION TABLE. THIS ENABLES THE 
TABLE TO BE MOVED TO INCLUDE AN INCOMING DATA SPREAD OF 54 DIGITS ON 
EITHER SIDE OF THE PRECISION OIGIT VALUE ENTERED. 

THE PRECISION DIGIT VALUES CAN BE AUTOMATICALLY SPECIFIEO EQUAL TO 
TH* FIRST VALUE READ FOR EACH SELECTED MULTIPLEX ADDRESS BY ENTERING 
A I IN THE AIAPR SWITCH, THE 6TH ENTRY IN THE AIPRC TABLE. THIS 
SWITCH IS RESET TO ZERO AFTER T"E AIPRC TABLE IS INITIALLY SET UP. 

5.5 DURING OPERATION, THE OUT-OF-T..JLE READINGS FOR ANY OF THF FIVE 
SELECTED POINTS WILL BE TYPED OUT ALONG WITH THE CYCLE NUMBER. THESE 
TYPEOUTS CAN BE BYPASSED BY USING THE PROGRAMS CONTROL OPTIONS. SEE 
TABLE 1 SECTION 3.2. 
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5.6 AFTER COMPLETING THE SPECIFIED NUMBER OF CYCLESt THE MEAN ACCURACY 
ANO REPEATABILITY ARE CALCULATED ANO PRINTED OUT FOR EACH OF THE 
SELECTED MULTIPLEX ADDRESSES. ALL OF THE VARIABLE FACTORS USED 

TO PERFORM THF CALCULATIONS ARE PRINTED IN TABULAR FORM BELOW THE 
SELECTED POINT NUMBER TO PROVIDE A COMPLETE HISTORY OF THE DATA REAO. 
THE DISTRIBUTION TABLE OR THE ENTIRE OUTPUT CAN BE OMITTED BY USING 
THE PROGRAMS CONTROL OPTIONS. SEE TABLE 1 SECTION 3.5. 

5.7 THE NUMBER OF CYCLES CAN BE VARIED BY FNTERING THE NUMBER DESIRED IN 
THE CYCLE-COUNT WORD (AICiC). THE CYCLE COUNT CAN BE CHANGED DURING 
OPERATION USING THE OATA LNTRY ROUTINE SEE SECTION 3.5. 

5.8 ERRORS THAT OCCUR DURING THE OPERATIONS ARE LOGGED, SEE SECTION 4 FOR 
THE POSSIBLE ERROR MESSAGES. 

APPENDIX 

6.1 EDIT CARD NUMBER MUST BE IN THE CARD DECK TO ESTABLISH THE 

DEVICE ASSIGNMENTS AND THE TIMER A INTERVAL BEFORE LOADING THIS 
FUNCTION TEST. IF NO OTHER EDIT CARDS ARE INCLUDED, THE PROGRAM WILL 
PERFORM THE FOLLOWING FUNCTIONS- 

A. 1000 CYCLES. THE FIRST CYCLE WILL ESTABLISH THE PRECISION DIGIT 
VALUES BY PLACING THE VALUES READ IN THE AIPRC TABLE. 

B. THE CE MULTIPLEX AODRCSS (13E8) IS ENTERED 5 TIMES IN CHAINED 
TABLES. 

C. THE CE MULTIPLEX ADDRESS IS SPECIFIED TO BE EVALUATED EACH TIME 
IT IS REAC, 

0. . 14 BIT RESOLUTION. 

E. 5 VOLT RANGE 

F. NO EXTEPNAL SYNC 

THE TERMINATOR (END) EDIT CARD MUST ALWAYS BE THE LAST EDIT CARD. 
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6.1 EDIT PROCEDURE: 



THE FOLLOWING EDIT PROCEDURE IS FOR CARD INPUT. THE EDIT PROCEDURE FOR PAPER TAPE INPUT IS LOCATED 
IN THE PAPER TAPE EDIT UTILITY PROGRAM DOCUMENTATION. THE PROPER EDIT CARDS MUST BE THE LAST CARDS IN 
THIS PROGRAM DECK. THE FOLLOWING FORMS ARE PROVIDED TO AID IN MANUALLY PREPARING THESE EDIT CARDS OR 
UPDATING EXISTING EDIT CARDS. IF IT IS NECESSARY TO PREPARE OR MODIFY EDIT CARDS, FILL IN THE NECESSARY 
DATA IN THE FORMS PRIOR TO PUNCHING THE CARDS. CARD COLUMNS THAT ARE SHADED SHOULD BE LEFT BLANK. 

DDEF STANDS FOR DEVICE DEFINITION EDIT FIELD. IT INCLUDES: 

1. THE INTERRUPT LEVEL ASSOCIATED WITH THIS DEVICE (USE HEX NOTATION, 00-17). 

2. THE ILSW BIT POSITION ASSOCIATED WITH THIS DEVICE (USE HEX NOTATION, 0-F). 

3. THE CHANNEL ASSIGNED TO THIS DEVICE (0-8). 

NOTE 1 THIS DDEF WILL BE FOR THE LCW PRIORITY DATA CHANNEL ASSIGNED TO Al. IF THE SYSTEM IS EQUIPPED 
WITH A SECOND SET OF Al ADAPTERS, ONLY ONE LOW PRIORITY DATA CHANNEL CAN BE EXERCISED AT A TIME. 



TIBT! TABLE 



THE FOLLOWING TABLE LISTS CONSTANTS TO BE 
ENTERED BY THE OPERATOR FOR TIMER A TIME 

BASE. . 



TIME BASE 
OF TIMER A 
IN MILLIStC. 

128.000 

64.000 

32.000 

16.000 

8.000 

4.000 

2.000 

1.000 

.500 

.250 

.125 



CONSTANT ENTERED 
IN HEX AT LABEL 
TIBTI 

0001 
0002 
0004 
•0007 
OOOE 
001 B 
0036 
006B 
0006 
01AB 
035* 
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SEE SEC. 3.1 FIGURE 1 
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EDIT PROCEDURE (CONTINUED) 
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REMAINDER OF THE TABLE WITH FFFF WORDS. SEE SlC. 3-6 
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FOIT PROCEDURE (CONTINUED) 
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THE PRECISION DIGIT VALUE FOR EACH M'.I.TIPLEX ADDRESS 
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IN THE AIMPX TAH.E IS ENTERED IN ThIS TABLE. WHEN 
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t 


82300820 


081 A 





13E8 




OC 


5096 






82300830 


08 IB 





FFFF 




DC 


/FFFF 


TERMINATOR 




82300840 


08 1C 





0000 


AIPRC 


DC 


3 


**** 




82300850 


0810 





0000 




DC 







* 


32300860 


081E 





0000 




DC 





PREC READING TBL 


* 


82300870 


08 IF 





0000 




DC 







* 


82300880 


0820 





0000 




DC 





**** 




82300890 


0821 





0001 


A I APR 


DC 


1 


AUTO PREC RONG SW 




82 300900 


08?2 





OOOE 


AIFRS 


OC 


4 14 


*•** 




82300910 


0823 





OOOE 




DC 


14 




* 


82300920 


0824 





OOOE 




DC 


14 


RESOLUTION TABLE 


» 


82300930 


0825 





OOOE 




OC 


14 




* 


82300°40 


0826 





OOOE 




DC 


It 


**** 




82300950 


0827 





0005 


RANGE 


DC 


5 5 


•*** 




82300960 


0828 





000 5 




DC 


5 




* 


82300970 


0829 





0005 




DC 


5 


RANGE TABLE 


* 


82300980 


082A 





0005 




re 


5 




* 


82300990 


082B 





0005 




DC 


5 


**** 




82301000 


082C 





0000 


AISUS 


DC 


9 


RANOOM SEQUENTIAL 


SW 


82301010 


0820 





0000 


AIXSS 


DC 


A 


EXTERNAL SYNC SW 




82301020 


082E 





000 5 


AIWCl 

* 

. * 
* 
* 
* 


DC 


B 5 

OSW 


NO OF POINTS 
XFER VECTOR 




82301030 
82301040 
82301050 
82301060 
82301070 
82301080 


082F 





0000 


MIBT 


DC 





NOT USED 




82301090 


08 30 


1 


OC 02 




DC 


AIERR 


ERROR ENTRY 




6230U00 


0831 


i 


0CD2 




DC 


AIERR 


ERROR ENTRY 




82301110 


C832 


1 


0C02 




DC . 


AIERR 


ERROR ENTRY 




82 301120 


0o33 


1 


0CD2 




DC 


.AIERR 


ERROR ENTRY 




82301130 


0834 


1 


0CD2 




DC 


' AIERR 


ERROR ENTRY 




82301140 


08 35 





0000 




OC 





NOT USED 




82301150 


0836 





0000 




OC 





NOT USED 




82301160 


0837 


1 


0C02 




DC 


AIERR 


ERROR ENi <Y 




62301170 


0838 


1 


0CD2 




DC 


AIERR 


ERROR ENTRY 




82 301180 


0839 


1 


0CD2 




DC 


AIERR 


ERROR ENTRY 




82301190 


08 3A 


1 


0CD2 




DC 


AIERR 


ERROR ENTRY 




82301200 


08 3B 


1 


0CD2 




DC 


AIERR 


ERROR ENTRY 




82301210 


08 3C 


1 


0A74 




DC 


-WIRY 


RELAY ENTRY 




82301220 


0830 


I 


0A6E 




DC 


AIISS 


SOLID STATE ENTRY 




82301230 


083E 


1 


0CD2 


* 
* 
* 
* 
* 


DC 


AIERR 

LOOP 


ERROR ENTRY 
PROGRAM ENTRY 




82301240 
62301250 
82301260 
82301270 
82 JO 12 80 
82301290 








* 




THE PROGRAM IS ENTERED AT THIS 


POINT 


8230130C 








* 




FROM MONITOK AFTER COMPLETING 


EACH 


82301310 








* 




PASS IF THE MONITOR CONTROL IS 


SET 


82301320 








* 




TO LOOP. ALSO RESTARTS FROM ThE 


82301330 








* 




PROGRAM CAUSE ENTRY AT THIS POINT. 


b2301340 


• 






* 










82301350 








* 










82301360 








* 










82301370 



28FEB66 
415120 



01MAY66 
415120A 



15DEC66 
421206 



04APR67 
421206A 



14N0V69 
431319 



20MAR70 
<ol320 



PROG ID 
PAGE 



0823-1 
1A 



o , o 
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CD 



DATE 
EC NO. 



083F 


0000 


AILOP 


DC 





0840 


401A 




esi 


RSAI 


0841 


1 6700 0905 




LOX 


L3 AILPE 


084 3 


6BC5 




STX 


3 MLSCF 


0844 


1 4C80 083F 




BSC 


I AILOP 



SE 



0846 0000 
084? D8BS 
084o 1090 
8849 OOBF 
084A 1 4C80 0846 



RSL OC 







STO 




RID 


SLT 




16 


STO 




MLSCF 


BSC 


J 


AIRSL 



064C 1 
084E 
084F 



4400 0D07 

0002 

0000 



• **• 
GTER 



0850 1 0919 

0851 COOO 


1 



>852 
0853 



4005 
0988 



0854 1 0989 



0855 1 4400 100A 

0857 4003 

0858 7061 



0859 0000 
085A 0700 

085e 0000 
085C 6600 0240 
085E 10A0 
085F 1 OEOO 0DC6 



* 

» 

* 

* 
* 
* 

* 
» 

* 
* 
AIRST 



GO TO INITIALIZE RTN 
LD LOOP RE-ENTRY ADR 
SET RTRN AOORESS 
EXIT ROUTINE SX 

ROUTINE SELECT SUBROUTINE 



THIS SUBROUTINE IS USED TO LOAD 
THE #DOR OF THE NEXT ROUTINE TO 
BE EXECUTED INTO THE MLSCF AND 
ALSO THE RIO WORD AND RAO WORD. 



SET RTN NO ANO AODR 
SETUP RTRN ADORES 

TIMER OSW ERROR CALL 



TIMER DSW ERRORS ARE LOGGED BY 
THIS CALL, AFTER LOGGING THE 
PROGRAM IS ENOEO ANO CONTROL 
RETURNED TO MONITOR. SCOOOn 



** LOG CALL ** * 

BSI L LOGCL GO LOG ERROR 

DC 2 WORD COUNT 

oc HEX-DEC SW XHEXn 

DC ENDA! RETURN AODR 

DC /COOO MESSAGE ID 

DC MOOS BYPASS BITS 

DC TIDSW AUDR OF DSW 

OC TIERS « AODR OF ERROR SW 



i«*«»«»« ? »t M „ttt»»*» M ««*»» tM „„ < „ M4 



** INITIALIZATION ROUTINE ** 

THIS ROUTINE PERFORMS ThE REQUIRED 
INITIALIZATION FOR RESTART OF THE 
PROGRAM. AMD LOADS THE INITIAL 
ENTRY ADDRESS I.NTO THt MAIN LINE 
SEOUENCE CONTROL FIELD. 



RESTART ENTRY 

ENTRY IS MADE AT THIS PCINT AFTER 
EXITING FROM THE DATA ENTRY ROUTINE 



* 

INLSH 
SDSW 
* 
RSAI 



BSI 

BSI 
MDX 



DC 
DC 



L AIENO 
RSAI 
AIRTM 




/0700 



GO RELEASE OLVICES 
GO TO INITIALIZATION 
BRANCH TO RTN TO MUN 



INITIAL PASS SW - PHI 
SENSE DSW CONSTANT 



DC 

LDX L2 AIEND-2-AISUX 

SLT 32 

STO L2 AISUX-2 



28FEB66 
415120 



01MAY66 
415120A 



15DEC66 
'21206 



04APR6 7 
421206A 



14N0V69 
431319 



20MAR70 
431320 



82301380 
82 301390 
82301400 
82301410 
82301420 
8230143C 
82301440 
82301450 
82301460 
62301470 
82301480 
82301490 
82301500 
82301510 
82301520 
82301530 
82301540 
82301550 
82301560 
82301570 
82301580 
82301590 
82301600 
82301610 
8230162O 
82301630 
82301640 
82301650 
82301660 
82501670 
82301680 
82301690 ' 
823C170C 
62301710 
I 82301^20 
82301730 
82301740 
82 3017.50 
82301760 
82301770 
82301780 
82301790 
81301800 
82301810 
82 301820 
82301830 
82301 840 
82301850 
923018o0 
82301870 
82301880 
823018'50 
82301900 
82301910 
82301920 
^2301930 
82301940 
82301950 
82301960 
82301970 
82301980 
82301990 
82302000 
82302010 
82302020 
82302030 
82302040 
62302050 



PROG ID 
PAGE 



J O 

> o 

J o 



00 
o. 

LO 



o 



'. ■> o 



o 



l"< 



<J 



,) 



o o 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 
AI OPC FUNCTION TEST 



DATE 
EC NO. 



0861 

0862 

0863 

0865 

0866 

0868 

086A 

086C 

0860 

086E 

0870 

0871 

0872 

0873 

0874 

0875 

0876 

0878 

0879 

087B 

087C 

087E 

087F 

0881 

0882 

0863 

0884 

0885 

0886 



72FE 

70FC 

1 D400 

6201 

1 6E00 
1 6E00 
1 6780 
7300 

?002 

1 7401 
73FB 
6300 
7305 
1000 
6BB9 

C0B6 

1 4C18 

COBS 

1 D400 
1 6780 

8098 
900F 
D700 
73FF 
70FB 
C80A 
40C1 

68D3 

1 4C80 



0D6B 

0A24 
0B29 
082E 



OCDF 



0883 

0A24 
082E 



0815 



085B 



0888 OOCO 

0889 0400 
088A 0000 0000 
088C 0000 0000 



C88E 





0001 


C88F 


1 


0BF5 


0890 





0002 


0891 


1 


089B 


0892 





0005 


0893 


1 


09E8 


0894 





0007 


0895 


1 


099C 


0896 





0000 



HOX 

MDX 

STO 

LDX 

STX 

STX 

LDX 

MDX 

MDX 

MDX 

MDX 

LDX 

MDX 

SLA 

STX 

LD 

BSC 

LO 

STO 

LDX 

A 

AISSE S 

STO 
MDX 
.MDX 

AIRDM LDO 
BSI 
STX 

BSC 

* 
* 

* 

* 

* 

* 

* 

« 

BSYBT 
CONTL 
AIBST 
RODSW 

« 
* 
* 
RT01 



DC 
DC 
DEC 
DEC 



0897 1 6E00 OCDF 
0899 1 4C00 0913 
089B 1 7400 080F 
089D 7001 
089E 7006 
089F 1 74FF 0896 



RT02 

RT05 

RT07 

AISPS 

AIERL 

AIENB 



DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 

STX 
BSC 
MDX 
MDX 
MDX 
MDX 



3 

3 
3 



2 -2 

RSAH4 
L AIDWC 

2 1 

L2 AIRITE.1 
L2 AICYR 
13 AIWC1 

3 
*£2 

L AIERS.l 

-5 



5 


3 AIWC1 

AISOS 
L AIRDM.-C 

•AIWC1 
L AIR1T&1 
13 AIWC1 

AIMPX 

RT01 
L3 AIMPX-1 
3 -1 

AISSE 

RT01 

AIRSL 

INLSW 
I RSAI 



ZERO WORK AREAS 



RESET DATA WORD COUNT 

SET WORD CNT * 1 

INITIALIZE CYC CNTR 

LUAO WORD COUNT 

fEST FOR ZERO 

SKIP IF NOT ZERO 

SET ERROR SW ON 

TEST FOR MORE THAN 5 

SET X3 « 

RESTORE X3 TO COUNT ' 

MDX HAY SKIP 

STORE CORRECTED COUNT 

LD R-S SWITCH 

BR IF RANDOM MODE 

LD WORD COUNT 

SET WORD COUNT 

FORM HIGHEST ADOR 

SET MPX ADDR 

SKIP OUT X3 * 

BRAtiCH 

LD ENTRY 1 AODRESS 

GO Til RTN SEL SUBRTN 

SET 1ST PASS - PHASE III 

RETURN TO MONITOR 



ENTRY B 

THE MONITOR TRANSFERS MAIN LINE 
CONTROL TO THE PROGRAM STARTING 
AT ENTRY B FOLLOWING A BUSY RETURN 
TO MONITOR. A BUSY RETURN TO 
MONITOR IS MADE ONLY IF THE NEXT 
OPERATION CANNOT BE STARTED 
BECAUSE OF AN ADC BUSY. 



L2 
L 

L 



/oocc 

/04 00 






AISRT 
2 

AIENB 

5 

AIRAC 

7 

A I RE 0+1 

*-» 

AIERS 

LPRTN 

ONLIN-0 

*+l 

AIENC 

AISPS, -1 



euSV BITS 8 £ 9 
CONTROL FUNTION 
BLAST IUCC 
SENSE DSW IOCC 



RID 
RAD 
RID 
RAD 
RID 
RAD 
RID 
RAD 
INT TIMER SVITCH 

RESET ERROR SW 



ONLINE BRANCH 
OFFLINE BRAf.CH 



PART NO. 
PAGE 



82302060 

82302070 

823020 80 

823C2090 

82302100 

82302110 

82302120 

82302130 

82302140 

82302150 

82302160 

82302170 

82302180 

82302190 

82302,:00 

82302210 

82302220 

82302230 

62302240 

82302250 

82302260 

82302270 

82302280 

82302290 

82302300 

82302310 

82302320 

82302330 

82302340 

82302350 

82302360 

32302370 

82302380 

02302390 

82302400 

82302410 

82302^,20 

82302430 

82302440 

82302450 

82302460 

82302470 

82302480 

82302490 

82302500 

82302510 

82302520 

82202530 

82302540 

82302 550 

82302560 

82302570 

62302580 

82302590 

82302600 

82302610 

82302620 

8230263C 

823J2640 

82302650 

82302660 

82302670 

82302680 

62302690 

82302700 

82302710 

82302720 

62302730 



2196398 
2A 



28FEB66 
415120 



01MAY66 
41512CA 



15DEC66 
421206 



04APR67 
421206A 



14N0V69 
431319 



20MAR70 
431320 



PROG ID 
PAGE 



0823-1 
2A 
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CM 

Cl 

LO 



08A1 1000 






NOP 








82302740 


08A2 1 74FF 


08F4 




MOX 


L 


AITMS.-l 




82302750 


08A4 1000 






NOP 








82302760 


08A5 6500 


0000 


AIENC 


LDX 


LI 





RESTORE INDEX 1 


82302770 


08A7 6200 






LOX 


2 


ZERO INDEX REG 2 


82302780 


08A8 1 7400 


0989 




MOX 


L 


TIERS ,0 


TEST FCR TIMER ERROR 


82302790 


08AA 70A1 






MOX 




LGTER 


GO LOG INTR ERROR 


82302800 


08AB 06E0 






XIO 




RODSW 


SENSE DSW FOR BUSY 


82302810 


08AC D046 






STO 




OSM 


SAVE DSW WORD 


92302820 


08A0 EODA 






AND 




BSYBT 


BUSY BI fS 8 6 9 


82302830 


08AE 1 0''00 


0964 




STO 


L 


AIBYS 


SET BUSY SW 


82302840 


08B0 C0E5 






LO 




AISPS 


LD INTRRPT TIMER SW 


82302850 


08B1 1 4C18 


0902 




BSC 


L 


AIECK.6- 


BR IF TIMER SW OFF 


82302860 


08B3 0808 




AIRRT 


XIO 




ROOSW ' 


SENSE OSW FOR BUSY 


82302870 


0BB4 1008 






SLA 




8 




82302880 


08BI, 1 4C10 


08C2 . 




BSC 


L 


AIEVV,- 


BR IF NOT SS BUSY 


82302890 


08B7 C808 




AIEXB 


LOD 




RT02 


LD ENTRY 2 ADDRESS 


82302900 


08B8 69E0 






STX 


] 


AIENCH 


STORE XI BfcFURE EXIT 


82302910 


08B9 408C 




AIEXX 


BSI 




AIRSL 


GO TU RTN SLL SUBRTN 


82302920 


08BA 2 4C80 


0120 


AIRTM 

• 
* 


BSC 


I 


START 


RETURN TO MONITOR . 


823029 30 
82302940 
82302950 






* 






ENTRY FIVE 


82 302960 






* 










82302970 






* 






THE PROGRAM IS ENTERED AT THIS POINT 


82302980 






* 






AFTER A COMPLETEO CYCLE. 


82302990 






* 










82303000 


08 BC 1 7401 


0B29 


* 
AILDB 


K.OX 


!_ 


AICYR.l 


ADO 1 TO CYCLE CNTR 


8230 3010 
82303020 


08BE C803 






LDD 




RT05 


LU ENTRiC 5 ADDRESS 


823030 30 


08BF 70F9 






MDX 




AIEXX 


BRANCH - EXIT 


82303040 


08C0 C8D3 




* 
AIBSY 


LDD 




RT07 


LD ENTRY 7 ADORESS 


82303050 
82303060 


08C1 70F7 




* 
» 


MDX 




AIEXX 




82 3C 30 70 
82303080 
8230 3090 


08C2 1 C400 


0A46 


* 

a'ievv 


LD 


L 


AISSW 


LOAD INTRPT SWITCH 


82303100 
8230 3110 


08C4 1 ECOO 


0A45 




UR 


L 


AIRSW 


OR RLY INTRRPT SW 


82303120 


08C6 1 4C20 


08B7 




BSC 


L 


AIEaB.Z 


BR IF EITHER SW ON 


82303130 


08C8 1 4400 


09C7 




BSI 


L ' 


RELES 


B4 TO RELEASE OEVlCfc 


82303140 


C8CA 10A0 






SLT 




32 


CLR A AND 


82303150 


08CB 1 C400 


0804 




LD 


L 


SW2' 


LD BIT SWITCH WORO 2 


8/303160 


08C0 1 4C20 


006C 




BSC 


L 


AIDEk.Z 


BR TO CHANGE TBL DATA 


82303170 


08CF 1 COO 


0803 




LD 


L 


SW1 


LO BIT SWITCH WORD 1 


82303180 


0301 1 4420 


00A9 




BSI 


L 


AIVED.Z 


BR TO VERIFY DATA 


82 303190 


08D? 6956 






STX 


1 


CKDSW 


STORE INDEX REG 1 


82303200 


0804 C055 






LD 




CKOSW 


FETCH INDEX REG 1 VALUt 


8230 3210 


0805 1 F400 


082E 




EOR 


L 


AIWC1 


CK IF = NO. OF POINTS 


82303220 


0807 1 4C20 


09FA 




BSf. 


I 


AIENT.Z 


BR IF MORE POINTS 


8230 3230 


0809 1 C400 


0802 




LD 


L 


SWO 




82303240 


08DB 1009 






SLA 




9 




82303250 


080C 1 ECOO 


080F 




OR 


L 


ONLIN 


ADD BIT ZERO 


82303260 


08DE 1 4C28 


OAAD 




BSC 


L 


AIEVL.CZ 


BYPASS BLAST AI 


8230 32 70 


08E0 1 OCOO" 


0A7E 




XIO 


L 


AIWRT 


START OPERATION 


82303280 


08E2 4002 






BSI " 




AICKB 


PREVENT INTERRUPT 


82303290 


08E3 1 4C00 


OAAO 


HERE 

* 


BSC 


L 


AiEVL 


BRANCH 


9230330C 
82303310 


08E5 0000 




AICKB 


DC 







SE 


823C3320 


08E6 08A5 






XIO 




RDOSW 


SENSE OSW 


82303330 


08E7 1 4418 


08E5 




BSI 


L 


AICKB, £- 


LUOP IF BUSY NOT UN 


82303340 


08E9 08A0 






XIO 




AIBST 


RESET OPERATION 


82303350 


08EA 083F 






XIO 




CKDSW 


RESET PENDING INTER 


82303360 


06EB 08A0 






XIO 




RODSW 


SENSE DSW 


82303370 


08EC D006 






STO 




DSW 


SAVE DSW 


82303380 


08E0 1 4420 


0CE2 




BSI 


L 


AIERC.Z 


ERROR IF NOT ZERO 


82303390 


08EF E008 






AND 




*S8 


MID FOR BLAST FAILING 


82303400 


08F0 70F2 






MDX 




HERE 


BRANCH EXIT SX 


82303410 
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o 
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CO 
CM 

u. 



DATE 


28FEB66 


01MAY66 


15DEC66 


04APR67 


14N0V69 


20MAX70 


EC NO. 


415120 


415120A 


421206 


421206A 


431319 


431320 



PROG ID 
PAGE 



0823-1 
3 



08=1 C89C 
08F2 70C6 



08F3 0000 
08F4 0000 

08F5 1 7400 080F 
08F7 7000 



08F8 2 4480 0131 
08FA 1 08F1 
08FB 1 0812 
08FC 1 096 7 
08FD 1 080A 



08FE 
0900 
0902 
0903 
0905 
0907 
0909 
090B 
090D 
090F 
0911 
0912 
0913 
0914 
0916 
0918 



1 C400 
1 4400 
0063 

D400 

1 4400 
1 C4C0 
1 ECOO 
1 D400 

ECOO 
D400 
E853 
DOT) 
0816 
1 OCOO 
1 4C18 
DODA 



0813 
OCBO 

0004 
099B 
OCBA 
0889 

088B 
085A 
0B8D 



088C 

09tA 



0919 1 4480 09C7 

09ie 1 4400 0CE2 
091C E001 
091E 2 4C80 012E 



* 

TMBSY LOD 
MDX 

« 
* 
* 

« 
* - 

* 

» 

* 

OSW DC 

AITMS OC 

« 

AISRT MDX 
MDX 

BSI 

OC 
OC 
DC 
DC 

LD 

BSI 

STO 

STO 

BSI 

LD 

OR 

STO 

OR 

STO 

OR 

STO 

XIO 

XIO 

BSC. 

STO 



RT01 
AIEXX 



LD ENTRY 1 ADDRESS 
BRANCH - EXIT 



START ENTRY 

MAIN LINE CONTROL IS TRANSFERRED 
TO THIS ENTRY POINT FOLLOWING 
THE COMPLETION OF INITIALIZATION. 



AILPE 



LPRTN 



*-* 


L ONLIN.O 
AILPE 

** REOUE 
I REOUV 
TMBSY 
EDITtl 
ACTI 
TERM 

L TIBT1 
L MKPOS 

TICT1 

4 

AIREO 

ACAI 

CONTL 

AIBSTh 1 

SOSw 

RDDSW+1 

TIOnE 

CK0SWL1 

CKDSW 

RDOSW 

AIDOK.t- 

■OSW 



OSW STORAGE 

RLY DELAY SWITCH 



ST PEVICE »* * 
GO TO REQUEST TMRS * 
ADDR OF T!»ER BSY R* 
ADDS. UF TIKER DDEF * 
ADDR T IMER OVA 
AODR OF TERMINATOR * 

LUAD TIMER CONSTANT 
GO TO CHANGE SIGN 
SETUP T IMEk CONSTANT 
INITIALIZE TIMER WD 
GO TO RtU AI SUBRTN 
LD AREA COuE 
OR CONTROL FUNCTIUN 
SET IN IoCC WORD 
OR IN FUNCTION 
SETUP IOCC NO RESET 
OR IN BIT 15 
SETUP IOCC B 15 ON 
CHECK =0* iERO DSW 
SENSE DSW 
BR IF DSW * 
SAVE OSW WORD 



ENDA 



ABOR 
« 

* 

» 

» 

* 

* 
* 



** RELEASE AI »* * 

I BSI I RELES GO TO RELEASE AI » 

BSI L AIERC GO TO CALL ON ERROR 
AND *+l 

T BSC I END END PROGRAM 



** TIMER ROUTINE ** 

THIS ROUTJNE BEGINS A TIME DELAY 
DETERMINED BY THE INCR-"*ENT RATE 
OF THE TIMER SELtCTED, Tr;E TIMER 
COUNT SPECIFIED AND Tt-E INTERkUPT 
COUNT CONTAINED IN THfc TIMER C«.,_L. 
AT THE START OF THE DELAY THE WORO 
SPECIFIED BY THE SwITCh ADDRESS IN 
THE TIMER CALL IS SET TO A £ VALUE. 
AT THE END OF THE DELAY THIS SWITCH 



DATE 


2BFER66 


01MAY66 


15DEC66 


04APR67 


14N0V69 


20MAR70 


EC NO. 


415120 


''15 120 A 


421206 


421206A 


431319 


43132C 



82303420 

82303430 

82303440 

82303450 

82303460 

82303470 

82303480 

82303490 

823O3500 

82303510 

82303520 

82303530 

82303540 

82303550 

82303560 

82303570 

82303580 

82303590 

8230360C 

82303610 

82303620 

82303630 

8230?640 

82303650 

82303660 

82303670 

823036 80 

82303690 

82303700 

82303710 

82303720 

62303730 

82303740 

82303750 

82303760 

82303770 

82303730 

82303790 

82303800 

82303810 

82303820 

82303830 

82303840 

82303850 

82303860 

82303870 

82303880 

821*03890 

8230 3900 

82303910 

8230 3920 

82303930 

82303940 

82303950 

8230 3960 

82303970 

8230 3980 

823039 90 

82304000 

82304010 

82304020 

82304030 

82304040 

82304050 

8230-.060 

82304070 

82304060 

82304090 



PROG ID 
PAGE 



0823-1 
3A 
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CO 
CI 

in 



* 

* 
* 
* 
* 
• * 
* 

* 
* 

* 
* 

* 

* 
* 

* 
* 
* 

* 
* 
» 
* 
* 
* 

* 
* 
» 
* 
* 
» 
* 
* 

* 
* 



0920 0000 



BSS" E 



0920 
0921 
0922 
0923 
0924 
0926 
0928 
092A 



8000 
0420 
0000 
C721 

0000 0000 
0000 0000 
0000 0000 
0000 0000 



092C 0000 



* 
* 
TiTRT 

TSNSE 

TIM11 



CKOSW 

* 

TIMER 



DC 

DC 

OC 

DC 

DEC 

DEC 

DEC 

DEC 

DC 



MORO IS SET TO ZERO. 
THE ROUTINE CAN OPERATE 3 UNIQUE 
DELAYS SIMULTANEOUSLY, ANY AOUITIONAI 
CALL OTHER THAN ONE OF THE THREE 
OPERATING WILL NOT BE HONORED UNTIL 
SPACE IS VACATED BY A DELAY TIMING 
OUT. A SECOND CALL FOR AN OPERATING 
DELAY KILL RE-ESTABLISH THE INITIAL 
COUNT WITHOUT SETTING THE PROGRAM 
SWITCH WORD TO ZFRO. 



FOLLOWING TABLE LISTS CONSTANTS 
TO BE ENTERED BY THE OPERATOR 
FOR TIMER ONE BASE SPEED 

THE FOLLOWING TABL.E APPLIES TO 
A 4.0 MICRO SEC MACHINE 



TIME BASE 


CON STAN 


OF TIMER A 


IN 


HEX 


IN M1LLISEC 




TIBT 


128.000 




0001 


64.000 




0002 


32.000 




0004 


16.000 




0007 


8.000 




OOOE 


4.000 




001B 


2.000 




0036 


1.000 




0068 


.500 




0006 


.250 




o:ab 



THE FOLLOWING TABLE APPLIES TO 
A 2 MICRO SEC MACHINE 



TIME BASE 


CONSTANT ENTEKED 


O c TIMER A 


IN 


HEX AT LABEL 


IN MILLISEC 




TIBT1 


64^000 




0002 


32.000 




0004 


16.000 




.0007 


8.000 




OOOE 


4.000 




0018 


2.000 




0036 


1.000 




0068 


.500 




00U6 


.250 




01AB 


.125 




0356 



/8000 

/420 



/721 











ALIGN TO EVEN ADDR 



IOCC TO START TIMER 
IUCC TO START TIMER 

T'MER SENSE IOCC 
CALL THREE 
CALL 1W0 
CALL ONE 



SE 



82304100 
82304110 
. 82304120 
823C4130 
82304140 
8r 3041 50 
82304160 
82 304170 
82304130 
82304190 
B2304200 
82304210 
82304220 
82304230 
62304240 
82 304250 
62304260 
82 3042 70 
82304280 
82304290 
62304300 
82304310 
82304320 
82304330 
8230434O 
82304350 
82304360 
82304370 
82304380 
82304390 
82304400 
82304411 - 
82304420 
82304430 
62;r>4440 
823044 50 
82 304460 
8230 44 70 
82304480 
82 3044 90 
82 504500 
82304510 
62304520 
82304^30 
62304 540 
82304550 
8230456O 
82304570 
82304560 
82304590 
62304600 
82304610 
82304620 
8230*630 
82304640 
82304650 
82304660 
82 3046/0 
82304680 
82304690 
82304 700 
82304710 
82304720 
82304730 
82304 740 
82304750 
82304760 
82304770 



O G 

o o 

O > o 



o ! o 



CXJ 



o 



:'; 





o 





• > 












■J 



<J 



a 
o 



■j 
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>v ^ 



092D 08F2 




XIO 


TSTiU 


START TIMER 1 


82304780 


092E 1 C480 092C 

0930 8034 

0931 18D0 




LD 

A 

RTE 


I TIMER 
TIONE 
16 


LOAD TIME COUNT 
* TIME COUNT 


82304790 
62304800 
82304810 


0932 1 7401 092C 




MDX 


L TIMER, 1 


SET UP FOR PROG SW 


82304820 


0934 6306 




LDX 


3 6 


INITIALIZE INDEX 


82304830 


0935 1 C700 0922 


TIRNG LD 


L3 TIM11-2 


LOAD CALL SWITCH 


62304840 


0937 1 4C18 0940 
0939 1 F480 092C 




BSC 
EOR 


L TICNO. e- 
I TIMER 


BR IF CALL NOT USED 
SAME PROG SW TEST 


62304850 
6*304860 


093B 1 4C18 0940 
093D 73FE 
093E 70F6 




BSC 
MDX 
MDX 


L TTCNO.t- 
3 -2 
TIRNG 


USE CALL IF SAME SW 
SEARCH CALL TABLE 


82304870 
82304880 
82304890 


093F 70F4 




MDX 


TIRNG-1 . 


TIMER IS BUSY 


82304900 
82304910 


0940 1 C480 092C 


TICNO ID 


I TIMER 


LOAD PROG SW ADOR 


0942 1 DFOO 09 22 




STD 


L3 TIM11-2 


StOR": CNT E, ADOR 


82304920 


0944 1 D780 0922 

0946 7 3FE 

0947 7004 


TISRC 


STO 
MDX 
MDX 


13 TIM11-2 
3 -2 
*£4 


SET PROGRAM SW ON 
TEST FOR DUP CALLS 


82304930 
82304940 
82304950 


0948 1 7401 092C 


TEXIT 


MDX 


L TIMER, 1 




82304°60 
823C4970 
82304980 


094A 1 4C80 092C 
094C 1 C700 0922 




BSC 
LD 


I TIMER 
L3 TIM11-2 


EXIT ROUTINE SX 
LOAD PROG CALL SW 


094E 1 F480 092C 




EOR 


1 TIMER 


TEST FOR CUP SW 


82304990 


0950 1 4C20 0946 

0952 10A0 

0953 1 DFOO 0922 
0955 70F2 


4 


BSC 
SLT 
STO 
MDX 


L TISRC, Z 

32 
L3 TIM11-2 

TEXIT 


BR IF NOT DUPLICATE 
ZEPO DUPLICA-E CALL 


82?05000 
82305010 
82305020 
82305030 


0956 COOO 


AIRLY 


LO 


AIBYS 


LD BUSY SWITCH 


82305040 
82305050 


0957 1 4C20 0887 
0959 C09A 




BSC 


L AIFX8.Z 


BR TO EXIT RLY BUSY 


82305060 




t D 


AITMS 


LD RLY OfcLAY SWITCH 


82305070 


095A 1 4C18 098A 




BSC 


L AIRZZ.t- 


BR IF OELAY IS OFF 


82305080 


095C 1 C500 0816 
095E F0C4 




LD 
EOR 


Ll AIMPX 
AIRMX 


LD RLY ADDR 

EOR LAST RLY ADDR 


82305090 
82305100 


095F 1 4C20 0994 




BSC 


L AIP.SS.Z 


BR IF NOT SAME PT 


82305 110 


0961 1 6400 08B7 

0963 0000 

0964 0000 


• AIRMX 
AIBYS 


LDX 

DC 
DC 


L AIEXB 





BRANCH TO EXIT 
BUSY SWITCH 


82305120 
82305130 
823C 31.40 


0965 0001 

0966 0000 


TIONE 
TICTl 

* 
• 


DC 
DC 


1 



CONSTANT ) 
CONSTANT STORAGE 


82305150 
82305160 
82305170 










82305180 




* 
• 




*» TIMER INTERRUPT ROUTINE ** 


82305190 










82305200 




* 




.THIS ROUTINE IS ENTERED FOR EACH 


62305210 




* 




TIMER INTERRUPT. « APROX.EVER / 120 


32305220 




* 




MILLISECONCSr EACH DELAY COUNT IS 


82305230 




* 


• 


DECR-EMENTEO BY 1, WHEN ANY COUNT 


82305240 




* 




GOES TO ZERO THE PROGRAM SWITCH 


82305250 




* 




WORD CORRESPONDING TO THE COUNT 


82305260 


• 


* 
* 
* 




IS SET TO 


ZERO. 


82305270 
823052e0 
82305290 


0967 0000 

0968 0000 

0969 08B8 
096A B0B5 
096 B 1C0O 
096C 7015 
096D C0F8 
096E D400 0004 


ACT I 
TIINT 


OC 

DC 

XIO 

CMP 

SLA 

MDX 

LD 

STO 





TSNSE 
TSTRT 


TIERR 
TICTl 
L 4 


TIMER DVA 

IE 
SENSE TIMER DSW 
CHECK FOR PROPER BIT 
SKIP 

DjW ERROR - BRANCH 
RESTORE CONSTANT 


82305300 
82305310 
82305320 
82305330 
82305340 
82305350 
82305360 
82305370 


0970 6305 




LDX 


3 5 




82305380 


0971 1 C700 0924 
0973 1 4C18 097E 

0975 90EF 

0976 1 D700 0924 . 
0978 1 4C20 097E 


TlhrtK 


LD 

BSC 

S 

STO * 
BSC 


L3 TIM11 

L TIGOB.t-- 

TIONE 
L3 TIM11 
L TIGOB,Z 


GET TIME COUNT 
CALL NOT USED 

RESTORE ADJ CNT 


82305390 
8230 5400 
82305410 
8230 5420 
82305430 


097A 1 0780 0923 




STO 


13 TIM11-1 


SET PROG SW OFF 


8230 5440 
82305450 



DATE 


28FEB66 


01MAY66 


15DEC66 


04APR67 


14N0V69 


20MAR70 


EC NO. 


415120 


415120A 


421206 


421206A 


431319 


431320 



PROG ID 
PAGE 



0823-1 

4 



o o 



■J J 



DATE 
EC NO. 



28FEB66 
415120 



01MAY66 
415120A 



150EC66 
421206 



04APR67 
421206A 



14N0V69 
431319 



20MAR70 
431320 



PROG ID 
PAGE 



082 3-1 
4A 
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ft 



un 

CO 

u. 
lo 



097C 


1 


0700 


0923 




STO 


L3 


TIM11-1 


RESET CALL 


097E 





73FE 




TIGOB 


MDX 


3 


-2 




097F 





70F1 






MDX 




TIWRK 


CHECK REST OF CALLS 


0980 


1 


4C80 


0968 


TIEXX 


BSC 


I 


TliNT 


EXIT ROUTINE 


0982 





000 5 




tie™ 


STO 




TIDSW 


SAVE OS* 


0983 


1 


7401 


0989 




MDX 


L 


TIERS, 1 


ADD 1 TO ERROR SW 


0985 





70FA 






MDX 




TIEXX 


BRANCH TO EXIT 


0986 





70FF 




TITRP 


MDX 




TITRP 


INTR ON SOLID - TRAP 


0987 





0140 




KAITM 


DC 




320 


TIME DELAY CONSTANT 


0988 





0000 




TIDSW 


DC 







TIMER DSW STORAGE 


0989 





0000 




TIERS 

* 


DC 







TIMER DSW ERROR SW 


0-»dA 


1 


C500 


0816 


* 
AIRZZ 


LD 


LI 


AIMPX 


LO RLY ADDR 


098C 





0006 






STO 




AIRMX 


SAVE RLY ADDR 


9980 


1 


7400 


080F 




MDX 


L 


0NL1N.0 




098F 





7007 


- 




MDX 




M0D3 





IX 



0990 1 4400 092C 

0992 0003 

0993 1 08F4 



* ** TIMER »* » 

BSI L TIMER GO TO TIMER RTN * 

DC 3 INTERRUPT COUNT * 

DC AITMS ADDR OF PRUG SW * 



0994 


i 


7401 


0A45 


AIRSS 


MDX 


L 


AIRSW, 1 


0996 





7070 






MDX 




AI1NP 


0997 





COEF 




M0D3 


LD 




KAITM 


099b 


1 


D400 


08F4 




STO 


L 


AITMS 


099A 





70F9 




* 


MDX 




AIRSS 


099B 





0000 




* 
AIREO 


DC 







099C 


1 


C400 


082E 




LD 


L 


AIWC1 


099E 


1 


7400 


082C 




MDX 


L 


AISQS.O 


09AO 





7001 






MDX 




*+l 1 


09A1 





C0C3 






LD 




TIONE 


09A2 


1 


0400 


0CB9 


. 


STO 


L 


INTRS 










**-»*♦»»»»*«:»**<■****»*»*»» 










* 






»» RECUE: 


09A* 


2 


4480 


0131 


AROST 


BSI 


I ' 


REQOV 


09 A6 


1 


08C0 






DC 




AIB^Y i 


09A7 


1 


0811 






nC 




EDIT 


09A8 


1 


OCBA 






DC 




ACAI , 


09A9 


1 


080A 






DC 




TERM 










»***•»****» 


■>* 


f ******tt*8**: 


09 AA 


1 


7400 


0859 




MDX 


L 


INLSW.O 


09AC 





7002 






MDX 




*+2 1 


09AD 


1 


4C80 


09. B 


ARUXT 


BSC 


! 


AIREO I 


09AF 


1 


6500 


080b 




LDX 


LI 


ONLIN ! 


09B1 





1010 






SLA 




16 I 


09B2 





014A 






STO 


1 


INLSn-ONLIN 


09B3 


1 


D400 


08F4 


* 
* 


STO 


L 


AITMS 










RELEASE 


DEVICE 


09B5 





4011 




BSI 




RELES i 


09B6 





C100 






LD 


1 


ONLIN-ONLIN 


09B7 





4818 






BSC 




+- 


09B8 





7004 






MDX 




MODI 


09B9 





C400 


FF07 




LD 


L 


ONOFF 


09BB 


1 


4C20 


1023 




BSC 


L 


BBOOO.Z 


09BD 


1 


C400 


ODBO 


MODI 


LD 


L 


AIAAS 


09 BF 





0^3 






STO 




AIRMX 


09C0 





01F6 






STO 


1 


SW3-0NLIN 


09C1 





C1F4 






LD 


1 


SW1-0NLIN 1 


09C2 





F1FF 






EOP. 


1 


K4864- ONLIN 



SET RLY INTR SW 

BRANCH 

GET CONSTANT 



ON 



SE 



FETCH NO. OF POINTS 

S< IF RANDOM MUDfc 

ELSE BRANCH 

FETCH CONST 1 

SET ONLINE INT SWITCH 



GO TO RfcOUEST AI » 

ADDR OF AI BUSY RTN* 
AUOR OF AI UDEF * 

ADDR OF AI DVA 9 

AUDR OF TERMINATOR * 

SK IF NUT INITIAL ENTRY 

ELSE BRANCH 

EXIT ROUTINE 

SET REFERENCE VALUE 

CLEAR... 

INITIAL PASS SW 

CLEAR REI AY DELAY SWITCH 



GO RELEASE AI 

TEST ONLINE 
YES, SKIP 
NO, GO INITIALIZE 
TEST DEVICE ONLINE 
ANU GJ TO ONLINE DFT 

INITIALIZE ADDR WORD 
ANO WORD 3 FUR AI DPC 
FETCH SW WRD 1 

CK IF PHASE 3 CONST 



82305460 

823054 70 

8230548U 

82305490 

82305500 

82305510 

82305520 

82305530 

82305540 

82305550 

82305560 

82305570 

82305560 

82305590 

82305600 

82305610 

82305620 

82305630 

82305640 

82305650 

82305660 

82305670 

82305680 

82305690 

82305700 

82305710 

82305720 

82305730 

e2305740 

82305750 

8230576 

82305770 ' 

82305780 

82205790 

82305800 

82305810 

82.305820 

82305830 

82305d40 

82305850 

62305860 

82305B7O 

B2 305K80 

82305890 

82305900 

82305910 

82305920 

823059 30 

82305940 

62305950 

82305960 

823059 70 

8230S9P0 

82305990 

82306000 

823060 1C 

82306020 

6 2 30 60 3v 

82306040 

82306050 

82306060 

82306070 

82306080 

82306090 

82306100 

b23061iO 

82306120 

82306130 



© 

O 

o 

CO 

CM 

a. 

LO 

o 

O 
O 

J 



o 
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JNCTION 


TEST 














09C3 


4820 




BSC 




Z 


SK IF IT IS 


82306140 


09C4 


7001 




MOX 




»+l 


BR IF NOT 


82306150 


09C5 


01F4 




STO 


1 


SW1-0NLIN 


ZERO SW WORD 1 


82306160 


09C6 


70E6 


« 
* 


MOX 




AROXT 


BR TO EXIT 


82306170 
82306180 
82306190 


09C7 


0000 


RELES 


DC 




*-« 


RELEASE ENTRY 


82306200 


09C8 1 


C400 0811 




LD 


L 


E01T 


FETCH EDIT WORD 


82306210 


09CA 


4810 




BSC 




- 


SK IF AI ASSIGNEO 


82306220 


09CB 


7004 . 




MDX 




RELXT 


ELSE EXIT 


82306230 


09CC 2 


4480 0132 




BSI 


I 


RELOV 


CALL RELEASE DEVICE 


82306240 


09CE 1 


0811 




DC 




EDIT 


EDIT LOCATION 


82306250 


09CF 1 


080A 




DC 




TERM 


TERMINATOR LOCATION , 


82306260 


09D0 1 


4C30 09C7 


RELXT 

* 
• 
* 
* 
» 
* 


BSC 


I 


RELES 


EXIT 


82306270 
82306280 
82306290 
82306300 
82306310 
82306120 
823C6330 






• 






THIS SEQUENCE TESTS FOR ERROR 


82306340 






• 






CONDITIONS 


RESULT ING FROM LOST 


82306350 






* 






INTERRUPTS 


, EITHER SS OR RLY. 


82306360 






• 






THE 3AND<0 


FOLLOWING EACH BSI IS 


82306370 






* 


. 




A MESSAGE 


ID WCRU USED IN THE 


82306380 






• 






ERROR MESSAGE. 


82306390 






* 
f 










82306400 
82306410 


0902 


C091 


AIECK 


LD 




AlBYS 


LD BUSY SWITCH 


82306420 


09D3 


1008 




SLA 




8 




82306430 


0904 1 


4428 0CE2 




BSI 


L 


AIERC,Z£ 


BR IF SS BUSY ON 


82306440 


0906 


E00 2 




AND 




*62 


MESSAGE ID 


82306450 


09D7 


C06E 




LD 




AISSW 




82306460 


09D8 1 


4420 0CE2 


• 


BSI 


L 


AIERCZ 


BR IF INTR SW ON 


82306470 


09DA 


E003 




AND 




*63 


MESSAGE ID 


823064 80 


090B 


6A6A 




STX 


2 


AISSW 


RESET INTRPT SW # 


82306490 


090C 


C068 




LD 




AIRSW 




823C650G 


09DD 1 


4420 0CE2 




BSI 


L 


AIERCZ 


BR IF RLY INTR LW ON 


e23065)0 


09DF 


E004 




AND 




*£4 


MESSAGE 10 


82306520 


09E0 


6.^64 




STX 


2 


AIRSW 


RESET RLY INT SW * 


82306530 


09E1 


C082 




LD 




A1BYS 


LOAD BUSY SWITCH 


82306540 


09E2 


1009 




SLA 




9 




82306550 


09E3 1 


4428 0CE2 




BSI. 


L 


AIERCZC 


BR IF RLY BUSY ON 


82306560 


09E5 


E005 




AND 


m 


*C5 


MESSAGE ID 


82306570 


09E6 1 


6400 08B3 


• 


LDX 


L 


AIRxT 


BRANCH 


82306580 
82306590 


0SE8 


6100 


AIRAC 


LDX • 


1 





RESET INOEX REG 1 


82306600 


09E9 


7010 


* 
* 


MDX 




AIENT 




82306610 
82306620 
82306630 


09c A 


6100 


AIDOK 


L')X 


1 





INITIALIZE INDEX 


82306640 


09EB 


6959 




SIX 


1 


AIRSW 


INIT RLY INTR SW 


82306650 


09EC 1 


C400 OCOF 




LO 


L 


AIERS 


LOAO ERROR SWITCH 


82306660 


09EE 1 


6D00 OCDF 




STX 


LI 


AIERS 


RESET ERROR SWITCH 


82306670 


09F0 1 


4C18 09FA 




BSC 


L 


AIENT, 6- 


EDIT ERROR IF ON 


823066 80 






♦•♦♦•♦••(^♦♦Mttmnt.tiljj),^,^,^,,,,^,^,,^ 


82306690 






* 






** 


LOG CALL ** » 


82306700 


09F2 1 


4400 0007 




BSI 


L . 


LOGCL 


GO LOG ERROR * 


82306-10 


09F4 


0001 




DC 




1 


WORO COUNT * 


62306720 


09F5 


0000 




DC 







HEX-DEC SHEXo * 


82306730 


09F6 1 


0D6C 




DC 




AIDER 


RETURN AU.R * 


» 82306740 


09F7 


EOIO 




UC 




/EOIO 


MESSAGE ID * 


82306750 


09F8 


2001 




DC 




/2001 


BYPASS BITS * 


82306760 


09F9 1 


082E 




DC 




AIWC1 


AUDR OF NO EVAL AbD* 


82306770 






******»*S**4**#*91t«#**** 


«:»****«$.*»##*****»#** 


82306780 


09FA 


6906 


AIENT 


STX 


1 


AIABCtl 


SAVE INDEX 1 


82306790 


09FB 1 


7500 0816 




MDX 


LI 


AIMPX 


GET ADDR OF MPX AOOR 


82306800 


09FD 


6923 




STX 


1 


A10CC 


SET INTO IOCC 


82306810 



DAT = 


28FEB66 


01MAY66 


150EC66 


04APR67 


1*-N0V69 


20MAR70 


EC NO. 


415120 


415120/' 


421206 


421206A 


431319 


431320 



PROG ID 
PAGE 



082 3-1 
5 



o 



-...; 



DATE 


28FEB66 


01MAY66 


15DEC66 


04APR67 


14N0V69 


20MAR70 


EC NO. 


415120 


415120A 


421206 


421206A 


431319 


431320 



PROG ID 
PAGE 



0823-1 
5A 



o o 
o ■ a 
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CO 

CI 

LO 



09FE 

09FF 

0A00 

0A02 

0A04 

0A05 

0A07 

0A08 1 

OAOA 

OAOB 



6100 
6946 

6500 0000 
C480 0A21 
1003 

4C10 0956 
6904 

7500 0C02 
6918 
6500 0000 



OAOO 
OAOF 



C500 0822 

loot 



0A10 180E 
0A11 B037 







0A15 0031 
0A16 7005 



0A12 
0A13 
0A14 



7004 
7006 
1002 



0A17 1010 
0A18 002E 
0A19 7002 



0A1A C02D 
0A1B 002B 
0A1C 1 7401 0A46 



0A1E 

0A1F 1 

0A20 

0A21 

0A22 

0A23 

0A24 



4023 
OCBA 
0100 
0000 
0200 
0002 
0000 



0A25 
0A27 
0A28 
0A29 
0A2A 1 
0A2C 1 
0A2E 
0A2F 1 
0A31 



1 7400 082C 
7002 
7101 
7002 

6580 082E 

740C 0820 

700E" 

7400 080F 

7006 



0A32 1 4400 0920 
0A34 0001 
0A35 1 0896 

0A36 1 6400 08A7 
0A38 1 C400 0B38 
0A3A 1 D4C0 0896 
0A3C 70F9 



AIABC 



AIINP 



A I ENS 

* 
* 
* 

* 
* 
* 



LOX 

STX 

LOX 

LO 

SLA 

BSC 

STX 

MOX 

STX 

LOX 



1 

1 

LI 

I 





AISSW 



AIOCC 

3 
L AIRLY,- 
1 AIENStl 
LI AIROV 
1 AIRIT 
LI 



INITIALIZE 1NTR S« 

RESTORE INDEX 1 

LO MPX ADRS 

SS TEST 

BR IF NOT SS 

SAVE INDEX 1 

SET READ ADDR 

RESTORE INDEX 1 



THE RESOLUTION SETUP SEQUENCt 
PROVIDES THE INPUT ROUTINE WITH 
THE BITS TO SELECT THE REQUESTED 
RESOLUTION. EITHER 14 BIT, 11 BIT 
OR 8 BIT RESOLUTION!! 



* 
AIRG 



LD 

SLA 

SRA 

CMP 

MDX 

MOX 

SLA 

STO 

HOX 

SLA 
STO 
MDX 



LI 



AIFRS 

14 

14 

AIB14 

AIRG 

AIRL 

2 

AIRES 

AIRDD 

16 

AIRES 
AIROD 



LD RESOLUTION WORD 



COMPARE FOR BIT 14 
BR TO SET UP 11 BIT 
BR TO SET UP 08 BIT 

SETUP 14 BIT RSLTN 
BR TO REAO ADC 



SETUP il BIT RSLTN 
BRANCH TO REAO ADC 



AIRL 



LD 
STO 

A I ROD MOX 

BSI 

DC 
DC 

DC 
DC 
OC 
DC 



AIB11 

AIRES SETUP 08 BIT RSLTN 
L AISSW, I SET INTERRUPT SW ON 

»* REAO ADC ** • 

INPUT GO TO INPUT R TN » 

ACA^ ADDR OF AREA CODE * 

/0100 FUN £ MOD IUCC Wk « 

TAG IOCC WK * 

/0200 FUN £ MUD IOCC KO « 

AIROV TAG IUCC RD « 

WORD COUNT « 



AIOCC 
AIRIT 



MDX 
HOX 
MOX 
MOX 

AIALO LOX 

A1STC MDX 
MOX 

AIOLC MDX ' 
MDX 

********** 

* 

BSI 

TI-CNT DC 
OC 

**v**««*»* 

M0D4 LOX 
M0D2 LO 
STO 
MOX 

* 



L A1SQS,0 

AIALD 
1 1 

AISTC 
II AIWC1 
L AIXSS.O 

XTSNC 
L ONLIN.O 

M0D2 

»* TIME 
L TIMER 
1 
AISPS 

L AIENC+2 
L TEN 
L AISPS 
M0D4 



SKIP IF NOT SEQNU 

BRANCH 

ADD I TO INDEX 

BRANCn 

SET INDEX # WC 

CHECK FUk EXT SYNC 

BRANCH FOR EXT SYNC 

SK IF OFFLINE 

R CALL »* » 

GO START TIMER « 
TIME COUNT - » 
PROG SWITCH ADUK * 

** * *ttt»»««ttni *»•* *» 

BRANCH TO ENTRY B 
GET CONSTANT 



82306820 

82306830 

82306840 

82306850 

82306 860 

62306870 

82306S80 

82306890 

82306900 

82306910 

82306920 

823069 30 

82306940 

82306950 

82306960 

82306970 

82306980 

82306990 

82307000 

8230 7010 

82307020 

82307030 

62307040 

8230 7050 

82307060 

8230 70 70 

82307080 

82307090 

82307100 

02307110 

82307120 

82307130 

82307140 

82307160 

82307160 

82307170 

H23C7160 

82 307190 

8230720C 

82307210 

823U7220 

82 30 72 30 

J2307240 

62 30 72 'jO 

8/307260 

82 307270 

82307280 

82307290 

P2307300 

82307310 

82307320 

62307330 

8230734O 

8230 7350 

82307360 

82307370 

82307380 

82307390 

82307400 

82307410 

H230742C 

82307430 

82307440 

82307450 

82307460 

C23074 70 

82307480 

823074 90 



I 3 
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CO 
CO 

u. 

LO 



0A3D 1 OCOO 088C 
0A3F 1 4C20 0A2F 
0A41 1 7400 0A46 
0A43 70F9 
0A44 70EA 



0A45 0000 
0A46 0000 
0A4 7 0000 
0A48 0010 
0A49 0002 



0A4A 

0A4B 

0A4D 

0A4F 

OA50 

0A51 

0A53 

0A54 

0A55 

0A56 

0A57 

0A59 

0A5A 

0A5B 

0A5D 

0A5E 

0A5F 

OA60 

0A61 

0-A62 

0A63 

0A64 

0A65 

0A66 

0A67 

0A69 

0A6A 

0A6C 



0000 
6780 
C780 
EBOl 
E8F6 
1 7400 
E827 
1890 
C3'»2 
D827 
C780 
EB03 
0022 
C780 
1003 
4810 
7003 
C304 
DOOF 
7002 
C304 
0012 
C305 

DO 13 

1 4400 

0H14 

1 7406 
1 4C80 



0A4\ 
0000 



0820 



0000 



0002 



0S9B 



0A4A 
0A4A 



XTSNC XIO 
BSC 
MDX 
MDX 
MDX 
* 
* 

AIRSW DC 
AISSW OC 
AIRES DC 
AIB.ll OC 
AIB14 DC 
* 
* 

* 
* 

* 
* 

* 

* 

» 

* 

» 

INPUT DC 
LDX 
LD 
OR 
OR 
MDX 
OR 
SRT 
LD 
STD 
LD 
OR . 
STO 
LO 
SLA 
B5.C • 
MDX 
LD 
STO 
MDX 
AITNP LC 

STO 
AI IOP LD 
STO 
BSI 
XIO 
MDX 
BSC 

* 
* 
* 
* 
* 
* 
* 



L ROOSW READ DSW 

L AIOLC, Z WAIT UNTIL BUSY ON 

l aissw, o check for inter 

XTSNC 

AIOLC EXIT IF INTERRUPT OFF 



*-» RELAY INTR SWITCH 

*-" SS INTR SWITCH 

RESOLUTION SWITCH 

/0010 BIT 11 CONSTANT 

/0002 BIT 14 CONSTANT 



** INPUT ROUTINE ** 

THE INPUT ROUTINE ASSEMBLES THE 
IOCC WORDS F,JR BOTH THE WRITE 
AND THE READ OPERATIONS AND 
PERFORM THE WRITE UPERAT10N. THE 
WORD COUNT CONTAINED IN THE CALL 
IS THE NUMBER CF RfcADS TO BE OONE 
FOLLOWING THE WRITE. THIS 
ESTABLISHES T'HE MUDt EITHER RANDOM 
OR SEOUENTIAL. THE WORD COUNT IS 
SETUP FOR THE CALL DURING 
INITIALIZATION. 





INPUT 
I 
1 

AIREU 
AIXSS.O 
AIB08 
16 
2 

AIWRT 

3 

"AIRCC61 
2 
3 

AITNP 

4 

AISIA 

AIIOP 

4 

AIRIA 

5 

AIWOC 

AIREO 

AIWRT 

INPUT, 6 

INPUT 



SE 



LO AREA CODE 

OR FUN 6 MODIFIER 

OR RESOLUTIUN 

SKIP IF NOT EXT SYNC 

SET EXT SYNC BIT ON 

LOAD TAG 

STD ICCC FOR WRITE 

LD AREA CODE 

OR FUN £ MOOIF IER 

SET IOCC FOR READ 

LOAD MPX ADRS 

SKIP IF SOLID STATE 

BRANCH 

LD IN DATA TBL ADDR 

SET TBL ADDR FOR SS 

BRANCH 

LD IN DATA TBL ADDR 

SET TBL ADDR FOR RLY 

LD WORD COUNT 

SET WORD COUNT 

GU REQUEST A I 

SET MPX ADDR 

SET RETURN ADRS 

BR OUT UF ROUTINE 



SX 



»* AI INTERRUPT SERVICE ROUTINE ** 

THIS ROUTjfJE READS THE INPUT DATA 
INTO CORE IN EITHER SEQUENTIAL OR 
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82307500 

82307510 

82307520 

82307530 

8230 7540 

82307550 

8230 7560 

82307570 

82307580 

82307590 

82307600 

82307610 

82307620 

82307630 

82 30 7640 

82307650 

82307660 

82307670 

82 30 76 HO 

82307690 

82307700 

82307710 

8230 7720 

82307730 

82307740 

82307750 

82307760 

82307770 

62307780 

82307790 

82307800 

82307810 

82307820 

82307830 

82307840 

82307850 

8230 ,860 

82307870 

82307880 

82307890 

82307900 

82307910 

82307V 20 

82307930 

8230 7940 

82307950 

8230 7960 

82307970 

8230 79 00 

82307990 

82308000 

82308010 

82308020 

82308030 

82308040 

82308050 

82308060 

823080^0 

82 30 80 80 

82308090 

62308100 

82308110 

82308120 

82308130 

82308140 

62308150 

82308160 

82308170 



DATE 
EC NO. 



28fEB66 
415120 



01.MAY66 
415120A 



15DEC66 
421206 



04APR67 
421206A 



14N0V69 
431319 



20MAR70 
431320 



PROG ID 
PAGE 



0823-1 
6 



DATE 
EC NO. 



28FEB66 
415120 



01MAY66 
416120A 



15DEC66 
421206 



04APR67 
421206A 



14N0V69 
431319 



20MAR70 
431320 



PROG ID 
PAGE 



0823-1 
6A 



r ''■-> 



i ( 



i i 
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en 

CM 

a 
to 



RANDOM MODE. THE MODE IS DETERMINED 

BY THE WtlRO COUNT IN THE INPUT CALL. 

THE WORD COUNT INDICATES THE NUMBER 

OF READS TO faE EXECUTEi AFTER EACH 

WRITE. 

THERE ARE TWO ENTRIES TO THIS 

ROUTINE, THE ENTRY USED IS 

DETERMINED BY THE BIT IN THE DSW 

WORD. 

EXTRA INTERRUPTS WILL BE TRAPPED 

SHOULD THEY OCCUR. 



0A6E 0000 
0A6F 6300 

0A70 400F 
0A71 0000 

0A7I 1 4C80 0A6E 



0A7« 0000 
OA75 3 6301 

0A76 4009 
0A77 0000 

0A78 1 4C80 0A74 



* 

* 
* 
* 
» 
* 

AIISS DC 

LOX 3 SfcV ENTRY SW TO SS 

**************************** *•>***,:*********** 

BSI AUNT GO TO AI READ RT * 

AISIA DC * 

********************* ************************ 

BSC I AIIoS RETURN TO MONITOR IX 



SOLID STATE ENTRY 








IE 



RELAY ENTRY 



* 

AIIRY DC 

LOX 3 I SET ENTRY SW TO RLY 

******* ********* ***************************** 

BSI AUNT GO TU AI RtAD RT * 

A1RIA DC * 



IE 



BSC 1 AIIRY 



0A7A 0000 


AIWDC DC 




*-* 


0A7B 0080 


A I BOB DC 




/0080 


0A7C 0000 0000 


AIKCC DEC 







0A7fc 0000 0000 


AIWRT DEC 




*-*' 


0A80 0000 


MINT DC 




c 


0A81 1 C4R0 0A80 


LD 


I 


AUNT 


0AA3 D0F8 


STO 




AIRCC 


0/84 1 7*FF 0A7A 


MDX 


L 


A!W0C,-1 


0*86 70tE 


MDX 




AIINL 


0/87 7300 


MDX 


3 





0.88 7004 


MOX 




AITSR 


0iR9 COBC 


LD 




AISSW 


0A8A 1 4C18 0AA8 


BSC 


L 


INTRE.fi- 


0A8C 700 3 


MOX 




AITNO 


OABD C0.37 


AITSR LD 




AIRS* 


0A8E i 4C18 0AA8 


BSC 


L 


INTRE.C- 


0A90 1010 


AITNO SLA 




16 


0A91 0084 


STO 




AISSW 


0A9? 7 300 - 


MOX 


3 





0A93 D0B1 


STO. 




AIRSW 


0A94 C0F8 


LD 




AIRCCtl 


0A95 1808 


SRA 




8 


0A96 1008 


SLA 




8 


0A97 00E5 


AIRNL STO 




AIRCCtl 


0A98 08E3 


XIO 




AIRCC 


0A99 1 6780 0A7C 


LDX 


13 


AIRCC 


0A9B 7301 


MDX 


3 


1 


0A9C 1 6F80 0A80 


STX 


13 


AIINT 


0A9F 1 7401 0A80 


INTRX MOX 


L 


AIINT, 1 


OAAO 1 74FF 0CB9 


MDX 


L 


INTRS,-1 


0AA2 iOOO 


NOP 






0AA3 1 4C80 0A80 


BSC 

• 


I 


AIINT 



RETURN TO MONITOR 

WD COUNT STORAGE 
BIT 08 CONSTANT 
READ IOCC STORAGE 
STORAGE AREA 



IX 



LD DATA ADDR 

SET TAG WORD IN IOCC 

SUBT 1 FROM WORD C.MT 

BRANCH IF SEQUENTIAL 

SKIP IF ENT SW * SS 

BRANCH 

LD INTERRUPT SW 

GO TO SETUP ERROR 

BRANCH 

LD RLY INTRPT SW 

GO TO SETUP ERROR 

RESET INTERRUPT 5W 
SKIP IF ENT SW # SS 
RESET RLY INTRPT SW 
LD IUCC W'RD 

SET BIT 8 OFF 
SET IOCC WORD 
READ WORD INTO CORE 

ADO 1 TO DATA ADDR 
SET NEXT DATA ADDR 
SET RETURN ADDR 



IE 



EXIT SUBROUTINE 



IX 



82308180 

82308190 

82308200 

82308210 

82308220 

823082 30 

82308240 

823082 50 

82308260 

8230b270 

82308280 

82308290 

82308300 

82308310 

82308320 

82308330 

82308340 

82308350 

82308360 

82308370 

82308380 

82308390 

82308400 

8230 8410 

82308420 

823084 30 

82308440 

82308450 

82308460 

6 2 30 8'. 70 

823084f,0 . 

8230 8490 

82308500 

82308510 

82308520 

82308530 

82308540 

82308550 

82308560 

8230 85 70 

82308580 

82308590 

82308600 

82308610 

82308620 

8230 8630 

82308640 

8230 86 50 

82308660 

823086 70 

82308680 

8230 86 90 

82308700 

82308710 

82308720 

82308730 

82308740 

82308750 

82308760 

82308770 

82308780 

82308790 

82308800 

82308810 

82308820 

82308830 

82308840 

82308850 






1 

en 
a 
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0AA5 C0D7 
0AA6 E804 
0AA7 70EF 

0AA8 1 4400 0CD2 
OAAA 70F3 



OAAB 0000 
OAAC 000.0 



OAAD 1 
OAAF 1 
0AB1 
0AB2 
0AB3 1 
0AB5 
0AB6 1 
0AP8 1 
OAPA 1 
OABC 1 
OABE 
OABF 
OACO 
0AC1 1 
0AC3 1 
0AC5 1 
0AC7 
0AC8 1 
OACA 
OACB 
OACC 1 
OACE 
OACF 1 
0AD1 1 
0AD3 1 



OADD 1 
0AD7 
0AD8 1 
OADA 1 
OADC 1 
OADE 1 
OAEO 
0AE1 1 
0AE3 
0AE4 
0AE5 1 



C400 

4420 

EOOO 

6100 

C400 

1090 

C500 

4C04 

4402 

05C0 

1881 

DOFB 

1890 

6030 

DD80 

C500 

8071 

D500 

10A0 

CODF 

9500 

DODO 

4428 

94Q0 

4C08 

C500 

8061 

D500 

C500 

4400 

C500 

0056 

C500 

D040 

C0C6 

4*00 



OCDF 
0CE2 



0814 

0DD2 
OAFb 
OCBO 
0DD2 



ODBE 
ODBE 
0DD7 

0DD7 



081C 

OCBO. 
OCOC 
0AF4 
ODDC 

ODDC 
0816 
OCFA 
081C 

0827 



0C94 



0AE7 1 4400 0D07 
0"AE9 0006 
OAEA 1001 
OAEB 1 OBOO 



AIINL LD 
OR 
MDX 

* 

INTRE BSI 
MDX 

* 
* 
* 
* 
* 
* 
* 
* 
* 
* 

* 

* 

AIWKJ DC 
AIWKK DC 
* 
* 

AIEVL LD 
BSI 
AND 
LDX 
AIEV1 LD 
SLT 
LD 
BSC 
BSI 
STO 
SRT 
STO 
SRT 
AD 
STD 
LD 
A 

STO 
SLT 
LD 
S 

STO 
BSI 
S 

SC 
LD 
A 

STO 
LD 
BSI 
LD 
STO 
LD 
STO 
LD 
BSI 
*********** 
* 

BSI 
DC 
AIHXS DC 



AIRCCtl 

AIB08 

AIRNL 

L AIERR 
INTRX 



SET BIT 8 ON 



BRANCH TO ERROR 
BRANCH TO EXIT 



** DATA EVALUATION ROUTINE ** 

THIS ROUTINE IS ENTERED AFTFR EACH 
CYCLE TO EVALUATE, SORT AND SAVE 
THE INPUT DATA FOR THE f.AI CULAttONS 
DATA WHICH IS NOT WITHIN THE LIMITS 
TO BE SAVED FOR CALCULATIONS IS 
OUTPUTTED FOR IMMEDIATE OBSERVATION 
THIS OUTPUT MESSAGE CAN BE OKITTED 
BY SETTING BIT 12 3F bITSW WORD 
ON. 








DC 



AIERS 
AIERCZ 

♦to 



AIMOD 

16 

AIROV 

AIOVL.E 

MKPOS.C 

AIRDV 

1 

AIWKJ 

16 

AISUM 

AISUM 

AIGRD 

A I ONE 

AIGRD 

32 

AIWKJ 

AIOR'C 

AIWKK 

MKPOSttZ 

FTFOR 

AICNC.t 

AIOTR 

A I ONE 

AIOTR 

AIMPX 

MMPC 

AIPRC 

AIWKHtl 

RANGE 

AIWKE 

AIWKJ 

AIDCN 

************* 

*» LOG 
LOGCL 
6 

/1001 
AIZX1 



1 



LI 
L 

L 
LI 



II 
II 
LI 

LI- 



LI 

L 
L 
L 
LI 

LI 

LI 

L 
LI 

LI 



WORK AREA - J 
WORK AREA - K 



LD ERROR SW 
INTR ERROR IF ON 
MID FOR INTR ERROR 
SET POINTER TO ZERO 
LD ADC MOO SWITCH 
SET CARRY ZEF.O 
LU VALUt READ 
BR IF OVERLOAD 
BR IF CARRY ON 
RESTORE NEW VALUE 

SAVE VALUE READ 
SHIFT RDrS TO U 
TO BE ADDED TO SUM 
TOTAL OF GOOD RDGNS 
LD GOOD READING CNTR 
AO 1 TO GROING CNTR 
STO GOOD RDING CNTR 
CLEAR A t 
Lt VALUE READ 
SUBT PRtC READING 
STO DIFF IN WK - K 
GO TO MAKE POSITIVE 
SUET TA3LE LIMIT 
BR IF WITHIN LIMIT 
LD OUT OF TABLE CNT* 
AD 1 TO OUT OF TBL 
SET OTC * OTCtl 



r AVE PREC RDNG 

LD RANGE 

SAVE RANGE 

LD VALUE *EAD 

GO TO DEC CNVRT RTN 

CALL ** * 

GO TO LOG CALL S6KT* 
WORD COUNT * 

HEX-DEC SW SOECo * 
RETURN ADDR * 



82308860 

82308870 

82308880 

82308890 

82308900 

82308910 

82 3089 '0 

82308930 

82308940 

82308950 

82308960 

82308970 

823089 80 

82308990 

62 309000 

82309010 

82309020 

82309030 

82309040 

82309050 

823C9060 

82309070 

82309080 

82309090 

82309100 

8230911C 

82309120 

82309130 

82309140 

82309150 

82309160 

82309170 

82309180 

82309190 

82309200 

82309210 

823UV220 

82309230 

823092tO 

82309250 

82309260 

82309270 

82309280 

8 2 309 2 90 

82309300 

82309310 

82309320 

82309330 

82309340 

82309350 

82309360 

82309370 

82309380 

82309390 

82309400 

82309410 

82309420 

8230S >30 

82309440 

82309450 

82309460 

82309470 

8230948C 

82309490 

82309500 

82309510 

82309520 

82309530 



DATE 
EC NO. 



?8FEB66 
415120 



01MAY66 
415120A 



15DEC66 
421206 



04APR67 
42 12 06 A 



14N0V69 
431319 



2CMAR70 
431320 



PROG ID 
PAGE 


0823-1 

7 




o 


■ J 



o 


DATE 
EC NO. 


28FEB66 
415120 


01MAY66 
415120A 


150EC66 
421206 


04APR67 
421206A 


14N0V69 
431319 


20MAR70 
431320 



PROG ID 
PAGE 



0823-1 
7A 



I ( ( i 



IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 
A I OPC FUNCTION TEST 



PART NO. 2196398 
PAGE 8 



CO 

cx 



OAEC 





A001 


OAEO 





0805 


OAEE 


1 


0B36 


OAEF 


1 


0B37 


OAEO 


1 


OAAB 


0AF1 


1 


OCBC 


0AF2 


1 


0C80 


OAF 3 


1 


0B29 



OAF* 
0AF5 
OAF 7 
0AF8 

OAIA 
OAFB 
6AF0 
CAFE 
OBOO 

oeoi 

0B02 
0B03 
0B05 
OB07 
0B09 
OBOB 
OBOO 
0B0»- 
0B10 
0B12 
0?13 

cxu 

0B15 
0B17 

ob: 3 

OblA 



C0B7 

1 8500 
0001 
7*01 

7005 

1 C500 

80 3B 

1 0500 
7101 
6930 

C02F 

1 F*00 
I *C20 
1 COO 
1 4C18 
1 fcVc-0 
1 C700 

IrtfU 

1 D700 
73FF 
70F9 

1010 

1 0*00 

con 

1 F*00 
1 *C20 



0DC3 
0000 
0DE1 
ODE I 



062E 
0AB3 
0821 
OB 17 
082F 
0001 

081B 



0821 

0815 
08BC 



0B1C 6100 
0310 COOB 
0B1E A00-> 
0B1F 1 ACOO 0C92 
0B21 OOOE 
0B22 1090 
0B?3 1 *Clrt OB27 
0B25 1 7*01 0830 
0B27 7012 



0B?8 
0B29 
0B2A 
0B2B 
0B2C 
0B2F 
06 30 
0B31 
0B32 
0«3* 
0536 
0838 
0B39 



03F5 

0000 

*000 

000 5 

0000 0000 

OQOO 0000 

0000 

0000 

0000 0000 

OOCO 0000 

0000 oooc 

OOOA 
0001 



MESSAGE ID * 

BYPASS BITS * 

POINT NUMBER * 

PRECISION READING » 

VALUE READ XDECn * 

DECIMAL VALUE * 

DECIMAL VALUE * 

CYCLE COUNTER * 
************** ***«*•«*••**•********** ******** 



DC 


/A001 


DC 


/0805 


DC 


AIMKH 


DC 


AIWKHC1 


Df 


AIWKJ 


DC 


AIWKL 


DC 


AIWKLfcl 


DC 


AICYR 



AICNC LD 
A 
STO 

MDYO* MDX 
MDX 

AIOVL LD 
A 
STO 

AIZX1 MDX 
STX 
LD 
EOR 
BSC 
LD 
BSC 
LDX 

AISPR LD 
SRT 
STO 
MDX 
MDX 
SLA 
STO 

AIDA* LO 
EOR 

AIUA5 BSC 

* 

* 

* 



LDX 

LD 

M 



STO 

SLT 

BSC 

MDX 

MDX 



* 

* 

C0997 

AICYR 

AIRSC 

FIVE 

VMEAN 

MEAN 

P99 70 

AINKE 

AIWKF 

AIhKG 

AIW'.H 

TEN 

A I ONE 



DC 

DC 

DC 

OC 

DEC 

OEC 

OC 

DC 

DEC 

DEC 

DEC 

DC 

DC 



AIWKK 
LI AISPT 

MD v 0*U 
L 0,1 

AIZX1 

LI AIOVC 

AIONE 

LI AIOVC 

1 1 

1 AIWKF 
AIWKF 
L AIWC1 
I AIEV1.2 
L AIAPR 
L AIPA*,t- 
13 AIwCl 
L3 AlRDV-1 

1 
L3 AIPkC-1 
3 -1 
AISPR 
16 
L AIAPR 
AICYR 
L AICYC 
L AILUB.Z 



LOAD DIFFERANCE 

ADO SPT ADDR TO DIFF 

SET ADDR OF RD CNT PR01 

SET RU CNTfcRO CNT61 PM01 

E RANCH 

LO OVERLOAD CNTR 

AOD 1 TO OVERLOAD 

STO OVERLOAD CNTR 

STO XI IN WK AREA 

LD WK AREA 

EOR NUMBER OF POINTS 

BR TO CK NEXT PT 

LD AUTO PREC SW 

BR IF SW * OFF 

COMPARE * 

LOAD VALUE REAO 

SET INTO PREC TBL 
SUBT 1 FROM INDEX 
BRANCH 

2ER0 AUTO PREC SW 
LD CYCLE COUNT 

BRANCH IF M.1RE CYCLES 



PERCENT CONSTANT SETUP 
SEOUENCE 

CONSTANT * 99.7 PCENT OF CYCLES 





*:CYR 

C0997 

THOUS 

P9970 

16 

*C2,6- 

P9970.1 

AIYP1 



997 



/*000 

5 








10 

1 



RESET XI * ZERO 

LD CYCLE CNTR 

X 997 

DIVIOE BY 1000 

STO 99.70 PERCENT 

SHIFT Q TO A 

BRANCH IF NO REMAINR 

ADD 1 TO 99.70 PCNT 

BR TO COMPUTE RT.M 



CONSTANT 997 
CYCLE COUNTER 
CONSTANT FULL SCALE 
CONSTANT FIVE 
MEAN IN VOLTAGE 
MEAN FN DIBITS 
99.70 PCENT VALUE 
WORK AREA - E 
WURK AREA - F 
WORK AREA - G 
WORK AREA - H 



CONSTANT 1 



623095*0 
82309550 
82309560 

823095 70 
62309580 
62309590 
82309600 
82309610 
82T09620 
82309630 
823096*0 
62309650 
82309660 

823096 70 
82309680 
62309690 
82309700 
62309710 
82309720 
82309730 
623097*0 
62309750 
82309760 
82309770 
8230978O 
62309790 
8 2309 800 
82309810 
82309X20 
82309830 
623098*0 
82309850 ' 
62309 86 
823U9670 • 
62309880 
62309890 
62309900 
623j99.10 
82309920 
62309930 
823099*0 
82309950 
82309960 
82309970 
82309980 
82309990 
82310000 
8231C010 
62310020 
82310030 
823100*0 
823100 50 
823iC060 
62310070 
82310080 
8231C090 
62'.10100 
82^10110 
82310120 
82310130 
823101*0 
82310150 
82310160 
82310170 
82310180 
82310190 
82310200 
82310210 





U 


.;■■> 


© 


"J 








© 


) 







CO 

m 
in 


;, 


O 


~ 
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: ) 



o 



0B3A 


I 


C500 


0616 


0B3C 


1 


**00 


OCFA 


0B3E 


1 


C500 


0827 


0B*0 





DOFO 




0B*1 


1 


C500 


081C 


0B*3 


1 


**00 


0C9* 


0B*5 


1 


C500 


081C 


0B*7 





AOFO 




0B*8 





D8EB 




0B*9 


1 


**00 


0D07 


0B4B 





O0C6 




OB*C 





2801 




OB*D 


1 


0B56 




0B4E 





D001 




OB*F 





020* 




0B50 


1 


0B36 




0B51 


1 


0B31 




0B52 


1 


0B3* 




0B53 


1 


0B35 




0B5* 


1 


0C8C 





THIS SEOUENCE IS ENTERED WHEN THE 
SPECIFIED NUMBER OF CYCLES IS 
COMPLETED. THE CALCULATIONS PERFORM 
IN THIS SEOUENCE ARE - MEAN, VOLVAG 
MEAN, ACCURACY PERCENT, AND 
REPEATABILITY PERCENT. 



IYP1 



LD 

BSI 

LD 

STP 

LD 

BSI 

LD 

M 

STO 



LI 

L 
LI 

LI 

L 
LI 



AIMPX 

AIM PC 

RANGE 

AIWKE 

AIPRC 

AIOCN 

AIPRC 

TEN 

AIWKG 



LD MPX ADDR 

LOAD RANGE 
SAVE FOR LOG 

GO TO DEC CNVRT RT 



SAVE PREC READING 



***************»**9«»e**y*¥tt'C*e**s****s##*s* 



0B55 1 OCPD 



BSI 

DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 



** 
LOGCL 
6 

/2801 
AI3 
/D001 
/020* 
AlWKH 
AIWKE 
AIWKG 
AIWKGfcl 
AtWKL 
AJWKLC1 



LOG 



0B56 1 CD80 ODBE 
0B58 1 ADOO 0DD7 
0B5A D8DB 
0B5B AOOC 
0B5C DP01 
0B5D C0D9 
0B5E A0D9 
0B5F 1 ADOO 0007 
0B61 1890 
0B62 88CB 
0B6? D8CA 



* 
SBR1* 

* 
* 
« 
* 
* 
« 
* 
* 
* 
* 
_.._.. * 

**»********a«-****»»*o***** **************** *^* 

* 

* 

* 

* 

* 

* 
AI3 



CALL ** 
GO TO ..UG CALL 
WORD COUNT 
HEX-DEC SW *DECo 
RETURN ADDR 
MESSAGE 10 
BYPASS BITS 
POINT NO 
RANGE 

PRECISION READING 
PRECISION READING 
DECIMAL VALUE 
DECIMAL VALUE 



MEAN CALCULATION 
ALGORITHM 



Nl 



SUM/GRD • Rl £ 
111 HO i N2 
Rl X lO/GRO * N3 
N2 6 N3 # ME Art • 10 



LDD 

D 

STD 

M 

STD 

LD 

M 

D 

SRT 

AD 

STD 



II 
LI 



LI 



AISUM 

AIGRD . 

AlWKH 

TEN 

MEAN 

AIWKH&l 

TEN 

AIGRD 

16 

MEAN 

MEAN 



SUM OF kEADlNGS 

/ NO OF GOOD READINGS 

# Nl t Rl 

X 10 

« N2 

RL 

X 10 

/ GOOD READINGS * N3 



N2 
MEAN 



* 
* 
* 
* 
* 
* 
* 
* 
* 



X 10 



VMEAN CALCULATION 
ALGORITHM 

SUM/GRD # Nl t Rl 

RANGE X 10000/RSC » N2 t R2 

N2 X 10 * N3 

N3 X Nl « N6 

Nl X R2/RSC # N* t R3 



82310220 
82310230 
823102*0 
82310250 
82310260 
82310270 
ED 82 3102 80 
E 62310290 
82310300 
82310310 
82310320 
82310330 
823103*0 
B2310350 
82310360 
82310370 
82310380 
62310390 
82310*00 
82310*10 
82310*20 
82310*30 
62310**" 
82310*50 
82310*60 
82310*70 
82310*80 
82310*90 
82310500 
82310510 
82310520 
8231053C 
823105*0 
82310550 
82310560 
82310570 
82310580 
82310590 
82310600 
62310610 
62310620 
82310630 
823106*0 
62310650 
62310660 
82310670 
82310680 
62310690 
62310700 
82310710 
82310720 
82310730 
823107*0 
82310750 
82310760 
82310770 
S2310760 
82310790 
82310cr00 
62310810 
82310H20 
82310830 
823108*0 
82310850 
62310660 
82310870 
82310680 
82310890 



OATE 
EC NO. 



2HFE6*4 
♦15120 



01MAY66 
415120A 



15DFC66 
*?12C6 



0*APR67 
*21206A 



1*N0V69 
*31319 



20MAR70 
*31320 



PROG ID 
PAGE 



082 3-1 
8 



o 



OATE 
EC NO. 





o 



28FEB66 
*15120 



01MAY66 
*lf 120A 



15DEC66 
421206 



0*APR67 
421206A 



1*N0V69 
*31319 



20MAR70 
*31320 



PROG ID 
PAGE 



0823-1 
8A 



i I i 



i { 



( i 
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CO 

co 

a 

try 



086* 

0B65 

0667 

0868 

0B69 

0B6A 

0B6B 

0B6C 

PB60 

0B6E 

086F 

OB70 

0871 

0B72 

0B73 

0B74 

0B7S 

0876 

0B78 

0879 

OB74 

0B7B 

0B7C 

0B70 

0B7E 

0B7F 

0880 

088. 

OB82 

0BH3 

0884 

0886 

0BR7 

0888 

0889 

08RA 

0B8B 

OHflO 

0B8E 

OJBF 

0B90 

CB91 

0892 

0894 

0896 

0896 

0898 

0B99 

0B9A 

0898 

0B9D 

0B9E 

0B9F 

OBAO 

0BA1 

0BA2 

0BA3 

0BA5 

0BA6 



COCC 

1 A400 0C93 
A8C2 
08C9 
AOCE 
1090 
AOCA 

oec7 

C0C8 
A0C4 . 
A88A 
0888 
A0C6 
88CI 
08C0 
CORD 
A0C1 
1 AOOO 0007 

ORB-.' 
AC 86 
8889 
0888 
CORO 
AOhA 
APAH 
1890 
8RB3 
0882 

C080 
A0B4 

AOOO 0007 

1890 

BR.SC 

08A3 

CRA4 

D87F 

1 4428 JCBO 
A89D 
eOAA 
1881 
00A3 

C078 

1 4C10 
10A0 

C09E 

1 4400 
009B 
C09A 

0075 

1 9500 081C 
4076 
C06F 
0067 
C869 
1090 

0066 

1 C500 08,'C 
006 A 
A091 



0B99 
OCBO 



N4 X 10 • N7 
N2 X Rl/GRO » N5 £ R4 
N5 X 10 « N8 
R3 X 10/RSC * M9 
R4 X 10/GRD * NIC 
N6 £ N7 £ N8 £ N9 £ N10 » VMEAN 
TERMS OF INPUT RANGE *XXX.XXXXXn 



IN 



AISRX 



ID 


AIWKE 


LOAD RANGE 


M 


L TENTH 


X 10000 


P 


AIRSC 


/ FULL SCALE 


STO 


AIMKF 


* N2 £ R2 


M 


TEN 


* N3 


SLT 


16 




M 


AlWKH 


X. Nl • 


STO 


AIWKG 


# N6 


LD 


AlWKH 


NI 


M 


AlWKFtl 


X R2 





AIRSC 


/ FULL SCALE 


STO 


VMEAN 


# N4 £ R3 


M 


TEN 


# N7 


AO 


AIWKG 


£ N6 


STO 


AIWKG 


# N6 £ N7 


ID 


AIWKF 


N2 


M 


AIWKH£1 


X Rl 


D 


LI AIC-10 


/ NO OF GOOD READNG 


STO 


AIWKF 


* N5 £ R4 


M 


TEN 


* N8 


AD 


AIWKG 


£ N6 £ N7 


STD 


AIWKG 


# N6 £ N7 £ N8 


LD 


VMEAN£1 


R3 


M 


TEN 


X 10 


D 


AIRSC 


/ FULL SCALE * N9 


SRT 


16 




AD 


AIWKG 


£ N6 £ N7 £ N8 


STO 


AIWKG 


# N6 £N7 £N8 £N9 


LO 


AIWKF£1 


R4 


M 


TEN 


X 10 





LI AIGRD 


/ GOOD REAONGS # NIC 


SRT 


16 




AO 


AIWKG 


£ N6 £N7 £N8 £N9 


STD 


VMEAN 


* MEAN IN VOLTS 


LOU 


MEAN 


LO MEAN VALUE X 10 


STD 


AIWKD 


SAVE MEAN X 10 


BSI 


L MKPOS.EZ 


GO TO MAKE POS RT 


D 


Fl.E 


DIVIDE BY FIVE 


A 


AIONE 


ADD ONE 


SRT 


1 


OIVIDE BY TWO 


STO 


AIWKG 


SAVE RESULT RMEAN £ 


LO 


AIWKD 


LD MEAN X !0 


BSC 


I AISRX, - 


B« IF NUT NEGATIVE 


SLT 


32 


CLEAR A £ 


LO 


AIWKG 


LO RMtAN PUSlTIVfc 


BSI 


L MKPUS 


GO TO MK NEGATIVE 


STO ' 


AIWKG 


SAVE RESULT RMEA>4 - 


LD 


AIWKG 


LD RMEAN 


5 TO 


AIRAX 


SET RMEAN FOR CALC 


S 


LI AIPKC 


SUbT PREC READING 


BSI 


PCENT 


BR TO PCENT kOUTlNE 


LD 


AIMCT 


LD DEVIATION 


STO 


AIWKA£1 


SAVE DEVIATION 


LDD 


AIWKD 


LO REPEATABILITY 


SLT 


16 




STO 


AIWKC 


SAVE REPEATABILITY 


LO 


LI AIPKC 


LO PREC READING 


STO 
M 


AIRAX 
TEN 


STO PREC READING 



82310900 

82310910 

82310920 

823109 30 

82310940 

82310950 

82310960 

82310970 

82310980 

82310990 

82311000 

82311010 

82311020 

82311030 

823UG40 

82311050 

82311060 

82311070 

82311080 

82311090 

82311100 

82311110 

82311120 

82311130 

82311140 

82311150 

82311160 

82311170 

82311180 

82311190 

82311200 

82311210 

82311220 

82311230 

82311240 

82311250 

82.311260 

823112.70 

82311280 

82311290 

82311300 

82311310 

82311320 

82311330 

82311340 

82311350 

82311360 

82311370 

82311380 

82311390 

82311400 

82311410 

82311420 

02311430 

82311440 

82311450 

82311460 

82311470 

82311480 

82311490 

82311500 

82311510 

82311520 

82311530 

82311540 

82311550 

82311560 

82311570 



3 

3 * 



a 

CO 
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0BA7 0862 
0BA8 1010 
0BA9 406A 



STO PREC X 10 TO LOG 



STO AIWKD 
SLA 16 . 

,..*** BSI PCENT BK T0 PCENT ROUTINE 



OBAA 


1 


4400 


ODO" 


OBAC 





0006 




OBAD 





2801 




OBAE 


1 


0BB7 




OBAF 





0001 




OBBO 





0204 




0BB1 


1 


OCOB 




• 0BB2 


1 


0C09 




0BB3 


1 


0B2E 




0BB4 


1 


0B2F 




0BB5 


1 


0B2C 




0BB6 


1 


0B2D 




0BB7 


1 


C500 


0822 


0BB9 





D04E 




OBBA 


1 


C500 


0DE1 


OBBC 





D04C 




OBBD 


1 


C500 


ODDC 


OBBF 





D04A 





OBCO 1 4400 0D07 
0BC2 0006 
0BC3 0001 
0BC4 1 OECD 
0BC5 0001 
0BC6 0204 
0BC7 1 OCOE 
0BC8 1 0C07 
0BC9 1 0C08 
OBCA 1 0815 
OBCB 1 0C09 
OBCC 1 OCOA 



OBCO 
08CF 
OBDO 
0BD1 



csoo oeic 

803C 
D03D 
7101 



0BD2 693C 
0B03 616C 
0BD4 C500 0000 
0B06 1 4C18 0BE7 
0B08 D02F 
0BD9 C034 
OBDA 1 4400 0C94 



OBOC 
OBDE 
OBOF 
OBEO 
0BE1 
0BE2 



1 4400 0D07 
0004 

8001 

1 0BE7 
D001 
0604 



0BE3 1 0C8C 

0BS4 1 0C80 

0BE5 1 OCOE 

0BE6 1 0C08 

0BE7 1 74FF OCOE 
0BE9 7000 
OBEA 71FF 
OBEB 70F8 
OBEC 1 6E00 0064 



BSI 
OC 

DC 
DC 
OC 
OC 
DC 
DC 
DC 
DC 
DC 
DC 



** LOG CALL ** 

LOGCL GO TO LOG CALL SBRT» 

*> WORD COUNT * 

/2801 HEX-DEC SW XDECn » 

A 14 RETURN AOOR * 

/0001 MESSAGE ID * 

/0204 BYPASS BITS * 

AIWK0£1 ACCURACY « 

AIWKC REPEATABILITY » 

MEAN MFAN IN OIGITS « 

MEAN£1 MEAN IN DIGITS * 

VMEAN MEAN IN VOLTAGE * 

VMEANU MEAN IN VOLTAGE 



AI4 



ft****************'********** ************'** 

LO RESOLUTION 
SAVE RESOLUTION 

SAVE OVERLOAD CMTR 



LD 

STO 

LO 

STO 

LD 

STO 



LI AIFRS 

AIWKB 
LI AIOVC 

AIWKC 
LI AIOTR 

AIWKD SAVE OUT OF T3L fNTR 

** LOG CALL *» * 



BSI 

DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
OC 
DC 
DC 



LOGCL 

6 

/0001 

AI5 

/D001 

/0204 

AIMCT 

AIWKAtl 

AIWKB 

AICYC 

AIWKC 

AIWKD 



GO TO LUG CALL SBRT* 
WORO COUNT * 

HEX-OEC SW SOECa * 
RETURN AODR * 

MESSAoE 10 * 

BYPASi BITS * 

ACCURACY DEVIATION * 
REPEATABILITY DVTN * 
RESOLUTION * 

CYCLES , 

OVERLOAD COUNTER * 
OUT LIF TBL COUNTER * 



♦ M************^*,,,,,,,,,^,^,,,,,^,,^^^ 



AI5 LO 

A 

STO 
hDX. 
STX 
LDX 

AIRTB LD 

BSC • 
STO 
LO 
BSI 



LI AIPRC 
FTFOK 
AIMCT 
1 

AITCN 
108 


AINXI ,-£ 
AIWKB 
AIMCT 
AIDCN 



1 
1 
1 

LI 

L 



LD PkfcC READING 

ADD 54 

SET hIGH TBL VALUE 

SET XI # Xl£l 

SAVE XI IN WK AREA 

SET XI * 108 

LO CNT fROM TBL 

BR IF COUNT « 

SAVE COUNT 

GO TO DEC CNVRT RT 



PM51 



«t«««. M *»,«u»»»»„»,„„,„„ ts „„„ MMj 



BSI 

DC 
OC 
DC 
DC 
DC 
DC. 
DC 
DC 
OC 



***********»*»*»,,:»»,,, 



A1NXT MOX 

AC0N1 MDX 

MDX 

MOX 

STX 



** LOG CALL ** 

LOGCL GO TO LOG CALL SBRT* 

* WORD COUNT * 

/8001 HEX-OEC SW *DECn * 

AINXT RETURN ADDR * 

/D001 MESSAGt ID * 

/0604 BYPASS BITS * 

AIWKL OECIHAL VALUE * 

AIWKL£1 DECIMAL VALUE * 

AIMCT VALUE * 

AIWKb COUNT * 



L AIMCT, -1 

* 
1 -1 

AIRTB 
L2 LNCNT 



SUBT 1 FROM VALUE 

BKANCH CONSTANT OK NOP 

SKIP IF XI * ZERO 

BRANCH 

RESET LINE CNTR 



PART NO. 2196398 
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82311580 

82311590 

82311600 

82311610 

e2311620 

82311630 

82311640 

82311630 

82311660 

82311670 

82311680 

62311690 

82311700 

82311710 

82311720 

82311730 

te2311740 

<>2311750 

62311760 

62311770 

82311780 

82311790 

623! 1800 

82311810 

82311820 

82311830 

82311840 

82311850 

82311860 

82311870 

82311880 

82311890 

82311900 

82311910 

82311920 

82311930 

8231 1940 

82311950 

82311960 

82311970 

82311980 

6?311990 

82312000 

62312010 

82312020 

82312030 

82312040 

82312050 

82312060 

82312070 

823120 80 

82312090 

82^12100 

82312110 

82312120 

82312130 

'.2312140 

82312150 

B23121t>0 

82312170 

82312180 

82312190 

82312200 

82312210 

b2312220 

£2312230 

82312240 

82312250 



DATE 
EC NO. 



28FER66 
415120 



01MAY66 
M5120A 



150EC66 
4212<16 



04APR67 
42 12 06 A 



14N0V69 
431319 



20MAR70 
431320 
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DATE 
EC NO. 



28FEB66 
415120 



01MAY66 
4151 20A 



150EC66 
421206 



04APR67 
421206A 



14N0V69 
431319 



20MAR70 
431320 
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to 

a 
to 



OATE 
EC NO. 



OBEE 


1 


6580 


CCOF 




LDX 


11 


AITCN 




RESTORE XI 




82312260 


OBFO 





C01E 






LD 




AITCN 




LD INDEX CNT 




82 3122 70 


0BF1 


1 


F400 


082E 




EOR 


L 


AIWC1 




EOR NUMBER OF POINTS 




82312260 


0BF3 


1 


4C20 


0B3A 




BSC 


L 


AIYP1, 


Z 


BR TO CALC NEXT PNT 




82312290 


0BF5 


1 


C400 


0804 




LD 


L 


SW2 




LD Sw WORD 2 




82312300 


0BF7 


1 


4C20 


08C0 




BSC 


L 


AIBSY 


Z 


INSURE DATA ENTRY 




82312310 


0BF9 


2 


4C80 


012E 


• 
• 


BSC 


I 


END 




EXIT TO MONITOR END 




82312320 
82312330 
82?12340 


OBFB 





0000 




AICLM 


OC 











SE 


82312350 


OBFC 





9010 






s 




STRAD 








82312360 


OBFO 





8012 






A 




AIRAX 








82312370 


OBFE 





A04C 






M 




AITEN 








82312380 


OBFF 





980A 






SO 




AIWKD 


' 






82312390 


OCOO 


1 


4428 


OCBO 




BSI 


L 


MKPOS 


£Z 






82312400 


0C02 





1090 






SLT 




16 








82312410 


0C03 


1 


4C80 


OBFB 




BSC 


1 


AICLM 






SX 


82312420 


• 






. 


• 
* 














82312430 
62312440 


0C05 





006C 




AI108 


DC 




108 




CONSTANT 108 




82312450 


0C06 





0000 


0000 


A1WKA 


DEC 









WORK AREA - A 




62312460 


0C08 





0000 




AIMKB 


DC 









WORK AREA - 8 




823124 70 


0C09 





0000 




A1WKC 


DC 









WORK AREA - C 




82312480 


OCOA 





0000 


0000 


AIWKD 


DEC 









WORK AREA - 




82312490 


OCOC 





0036 




FTFOR 


DC 




54 




CONSTANT 54 




8231250a 


OCOD 





COOO 




STRAD 


DC 









INITIAL ADOR 




82312510 


OCOE 





0000 




A1MCT 


DC 









POSIT lVt M CNTR 




82312520 


OCOF 





0000 




AITCN 


DC 









COUNTER 




82312530 


0C10 





CjOO 




AIRAX 


DC 









MEAN OR PREC RDNCi 




82312540 


CC11 





0000 




PA DOR 


DC 









STORAGE FOk MAX 6 ADD 




82312550 


0C12 





701F 




AC0N2 


MDX 


X 


HIINC- 


BRLCC-1 BR CONSTNT 




82312560 


GC13 





7022 




ACUN3 


MDX 


A 


LOINC- 


BRLOC-1 BR CONSTNT 




82312570 










* 














82312580 










• 














82312590 










• 








PERCENT SUBROUTINE 




82312600 










• 














82312610 










* 






THIS SUBROUTINE PERFORMS THE TABLE 


82.312620 










• 






SEARCHES 


AND CALCULATES Tht PERCENT 


82312630 










• 






ACCUKACY 


AND PERCENT REPEATABILITY. 


82312640 










* 














82312650 










* 














82312660 


• 








* 






t 








82312670 


0C14 





0000 




PCENT 


DC 











SE 


62312680 


0C15 


1 


850C 


0DC3 




A 


LI 


AISPT 




ADD TBL CENTER 




82312690 


0C17 


1 


D0F5 






STO 




STRAt 




SAVE INITIAL ADOR 




62312700 


0C1L 





OOEF 






STO 




/ IWKB 








8Z312710 


0C19 





0070 






STO 




A1WKI 








8231?72-0 


0C1A 





10A0 






SLT 




32 




INITIALIZE COUNTERS 




82312730 


0C1B 





08F2 






STD 




AfMCT 








82312740 


0C1C 


1 


C500 


ODCi 




LO 


LI 


AISPT 




FIND AND STORE 




82312750 


0C1E 





90ED 






S 




FTFOR 




HI AND LO ADDR 




62312760 


OtlF 





D0B6 






STO 




AIRTB&l 


LIMITS OF TABLE 


PR51 


62312770 


0C20 





80F4 






A 




AI108 




IN USE 




62312780 


0C21 





DOFF 






STO 




PAODR 








8231279C 


0C22 





COf.6 






LD 




AC0N1 




INITALIZE BRANCH 




82312800 


0C23 





DO 10 






STO' 




BRLOC 






PR06 


82312810 


0C24 





6200 






LDX 


2 







INITIALIZE X2 » 




b2?12820 


0C25 





4034 




AICHG 


BSI 




WAWTC 




GO TO CHECK LMT X2 * 





82312830 


0C26 


1 


C480 


0C08 




LD 


I 


AIWKB 




LD COUNT FROM TABLE 




82312840 


0C28 





80E6 






A 




AITCN 




ADD TO CNT SUM 




82312b50 


0C29 


c 


DOE 5 






STO 




AITCN 




SAVE TOTAL- 




82312860 


0C2A 


1 


9400 


0B30 




c 


L 


"9970 




. 




82312870 


0C2C 


1 


4C10 


0C6F 




BSC 


L 


AIMBR, 




BR IF TOTAL # 99.7 PCNT 


82312880 


0C2E 


1 


C480 


ocoe 




LD 


I 


AIWKB 








82312890 


0C30 


1 


4C08 


0C34 




BSC 


L 


BRLOC. 


I 


BR IF CNT * 




62312900 


OC32 





C0D5 






LO 




AIWKB 








82312910 


0C33 





D056 






STO 




AIWKI 








82312920 


0C34 





7000 




BRLOC 


MDX 




* 




MOX WILL CHANGE NOP- 


-6R 


82312930 



28FE8t.6 
415120 



01MAY66 
415120A 



15DEC66 
42i2.)6 



04APR67 
4212C6A 



14N0V69 
431319 



20MAR70 
431320 



PROG ID 
PAGE 



9 



CO 
CO 

ex 

LO 



IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 
AI DPC FUNCTION TEST 



PART NO. 2196398 
PAGE . 10A 



0823-1 
10 



0C35 1 


7401 


OCOE 




MOX 


L AIMCT, 1 


ADO 1 TO INC WORD 


82312940 


0C37 


C0D6 






LO 


AIMCT 




82312950 


0C38 


4804 






BSC 


E 


SKIP IF INC WD EVEN 


82312960 


0C39 


7003 






MDX 


MDY05 


BRANCH 


82312970 


0C3A 


COCO 






LO 


AIWKB 




82312980 


0C3B 


80D2 






A 


AIMCT 


ADD INC WO TO ADDR 


82312990 


0C3C 


7002 




* 


MOX 


MDY06 


BRANCH 


82313000 
82313010 


0C3D 


COCA 




MDY05 


LO 


AIWKB 




82313020 


0C3E 


90CF 






S 


AIMCT 


SUBT INC FROM ADDR 


82313030 


0C3F 


DOCS 




MDY06 


STO 


AIWKB 


SET NEXT TBL WORD ADDR 


82313040 


0C40 


6201 






LDX 


2 1 




82313050 


0C41 


4018 






BSI 


WAWTC 


GO CHECK LMT X2 * V 


82313060 


0C42 


70E1 


- • 


* 


MDX 


AICHG-1 


BRANCH 


8231307C 
823130 80 


0C43 


0000 




HILMT 


DC 





SE 


82313090 


0C44 


COCO 






LD 


AC0N2 




62313100 


0C45 


DOEE 






STO 


BRLOC 


SET BR CONSTNT 


P2313110 


0C46 


C0C1 






LD 


AIWKB 




82313120 


0C47 


90C6 






S 


AIMCT 




82313130 


0C48 


OOBP 






STO 


AIWKB 


SET NEXT TBL WD ADDR 


82313140 


0C49 1 


4C0O 


0C43 


* 


BSC 


I HILMT 


EXIT SX 


82313150 
82313160 


0C4B 


000 A 




AITEN 

* 


DC 


10 


CONSTANT 


82313170 
82313180 


0C4C 


0000 




LOLMT 


OC 





SE 


82313190 


OC40 


C0C5 






LO 


AC0N3 




82313200 


0C4E 


DOE 5 






STO 


bRLOC 


SET BR CONSTNT 


62313210 


0C4F 


COBS 






LD 


AIWKB 




82313220 


0C50 


80BD 






A 


AIMCT 




82313230 


0C51 


D0B6 






STO 


AIWKB 


SET NEXT TBL WD ADDR 


82313240 


0C52 1 


4C80 


OC'+C 


» 


BSC 


I LOLMT 


EXIT SX 


82313250 
62313260 


0C54 1 


74FF 


0C08 


HI INC 


MDX 


L AIWKBt-1 


INC HIGH TBL ADDR 


82313270 


0C56 


70CD 




. * 


MOX 


AICHG-1 


BRANCH 


823132 80 
82313290 


0C57 1 


7401 


0C08 


LOINC 


MDX 


L AIWKB, 1 


INC LOW TBL ASDR 


8231330C 


0C59 


70CA 




* 


MDX 


AICHG-1 


BRANCH 


82313310 
82313320 








• 




WORKING 


ADDRESS WITHIN iBL CK 


82313330 








* 








82313340 








* 








82313350 


0C5A 


0000 




WAWTC 


DC . 





SE 


L2313360 


0C5B 


COAC 






LD 


AIWKB 




82313370 


0C5C 


90B4 






S 


PADOR 




82313380 


0C5D 1 


46B0 


0C66 




BSI 


12 AIHIL, -Z 


BR IP HIGH LMT 


82313390 


0C5F 


C0A8 






LD ■ 


AIWKB 




82313400 


0C60 1 


9400 


0BD5 




S 


L AIRTB61 




82313410 


0C62 1 


46A8 


0C68 




BSI 


12 AILOL, CZ 


BR IF L0« LMT 


82313420 


0C64 1 


4C80 


0C5A 


* 


BSC 


I WAWTC 


EXIT ^X 


82313430 
82313440 


0C66 1 


0C6A 




AIHIL 


DC 


AITLM 


BR VECTOR 


82313450 


0C67 1 


CC43 






DC 


HILMT 


BR VtCTOR 


82313460 


0C68 1 


0C6A 




AILOL 


UC 


AITLM 


BR VECTOR 


82313470 


0C69 1 


0C4C 




* 
* 


DC 


LOLMT 


BR VECTOR 


82313460 
82313490 
82313500 


0C6A 


0000 




AITLM 


DC 







82313510 


0C6B 


C827 






LDD 


TENTH 


LO FL*G CONSTNT 


82313520 


0C6C 


C89D 






STO 


AIWKD 




82313530 


0C6D 


DOAO 






STO 


AIMCT 


SET 10000 DEVIATION 


82313540 


0C6E 


7018 




* 
* 


MDX 


AIPLX 


BRANCH 


82313550 
82313660 
82313570 








* 




PCENT 


CALCULATION 


82313580 


■ 




• 


* 








82313590 








* 




MEAN X 10 


OR °REC X 10 IN WKD 


82313600 








* 




PREC 


IN RAX 


82313610 



DATE 


28FEB66 


01MAY66 


15DEC66 


04APR67 


14N0V69 


20MAR70 


EC NO. 


415120 


41*120A 


421206 


421206A 


431319 


431320 



PROG ID 
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CO 

in 



0C6F 
0C70 
0C71 
0C72 
0C73 
0C74 
0C75 
0C76 
OC/8 
0C79 
0C7A 
0C7B 
0C7C 
0C70 
0C7E 
0C7F 
0C80 
0C81 
OCR? 
OC83 
0CA4 
OC85 
0C86 
0CB7 



0C89 
OCBA 
0C8C 
0C8F 
0C90 
0C91 
0C92 
0C93 



C098 

408A 

009C 

CO 17 

4087 

0016 

9098 - 

4C28 0C7A 

C012 

0094 

C093 

A015 

AbOC 

ooaa 

1090 
A012 
Ah 08 
1H90 
1.887 
C0R2 
A 000 
8fl84 
0883 
4C80 0C14 



IMBR 



OEVIA 



4000' 
0000 0000 
0000 0000 
0000 OOOo 
0032 
00h4 
03E8 
2710 



0C94 0000 
0C95 OOF 4 
0C96 1 C400 0B31 
0C98 A0F7 
0C°9 1090 



AIPLX 

* 

* 

» 
* 

* 

* 
* 

• 

AISRC 

AtWKI 

AIWKL 

POSWK 

FIFTY 

HUND 

THOUS 

TENTH 

* 

AIOCN 



LO 

BSI 

STO 

LO 

BSI 

STO 

S 

BSC 

LO 

STO 

LO 

M 



STO 

SLT 

M 

u 

SRT 
STO 
LD 

M 

AD 
STO 
BSC 



OC 

DEC' 

DEC 

DEC 

DC 

DC 

DC 

DC 

DC 
STO 
LO L 
M 
SIT 



END TBL ADDK IN MKB 
MOV * STRTNG TBL AODR 

ALGORIThM 

HKB - MDY e RAX - WKD X 10 • 
N5 # ABSOLUTE DEVIATION 
N5 X 100 / RSC U N6 £ K6 
R6 X 1000 / RSC # N7 
N6 X 1000 * N8 
N7 C N8 » XX.XXXX PCENT 



N 5 



AIWKB 

AiCLM ' 

A1MCT 

A.WKI 

AICLM 

AIWKIU 

AIMCT 

DEVIA.CZ 

AIWKI£1 

AIMCT 

AlMCi" 

HUND 

AISRC 

AIWKA 

16 

THOUS 

AISRC 

16 

AIWKD 

AIWKA 

THOUS 

AIMKD 

AIWKD 

PCENT 



LO END TBL AODR 

GO TO GET DEVIATION 

# N5 

GO 10 GET DEVIATION 



BR IF 1ST OEV GREAT 

# N5 
N5 

X5 X 100 

/ FULL SCALE 

# N6 £ R6 

R6 X 1000 

/ FULL SCALE # N7 

# N7 

# N6 

N6 £ 1000 H N8 

N7 t K8 « REPEAT OR 

ACCURACY 
BR OUT UF SUBROUTINE SX 



DECIMAL CONVERT RTN 

VALUE IN A * BINARY 
VALUE TO BE CONVERTED. 

ALGORITHM 

RANGE X 100 X VALUE # Nl 
Nl/RSC # N2 £ Rl 
N2 X 1000 * N3 
Rl X 10/RSC * N4 £ R2 
N4 X 100 # N5 

R2 X 100/ RSC * N6 

N3 t N5 £ N6 * N7 



/4000 





»-* 

50 

100 

1000 

10000 



A INK I 

AIWKE 

FIFTY 

16 



CONSTANT FULL SCALE 
WORK AREA - I 
WORK AERA - L 
WORK AREA 
CONSTANT 50 
CONSTANT 100 
CONSTANT 1800 
CONSTANT 10000 



SAVE VALUE 

LOAD RANGE 

X 50 

SHIFT TO ACCUMULATOR 



SE 



82313620 

82313630 

82313640 

82313650 

82313660 

82 313670 

82313680 

82313690 

82313700 

B2313710 

82j13720 

82313730 

82313740 

82313750 

82313760 

82313770 

82313730 

82313790 

82313800 

82313810 

82313820 

82313830 

82313840 

82313850 

32313860 

62313870 

82313680 

82313890 

82313900 

82313910 

82313920 

82 3139 30 ' 

82313940 

82313950 

82313960 

82313970 

82313980 

82313990 

82314000 

82314010 

82314020 

82314030 

82314040 

8231 '-050 

823140o0 

82314C70 

82314080 

82314090 

8231-100 

8231 '.110 

82314120 

82314130 

82314140 

62314150 

82314160 

82314170 

82?14160 

82314190 

82314200 

82314210 

82314220 

82314230 

823142*0 

82314250 

82314260 

82314270 

8231'«280 

82314290 



o 






CO 
CO 

a 



-j 
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G 



0C9A 
0C9B 
0C9C 
0C90 
0C9E 
0C9F 
OCAO 
0CA1 
0CA2 
0CA3 
0CA4 
0CA5 
0CA6 
0CA7 
0CA8 
0CA9 
OCA A 
OCAB 
OCAC 
OCAO 
OCAE 



AOEF 

A8ED 

08EF 

A0F4 

1081 

D8FA 

COEC 

A0A9 

1081 

A8E5 . 

08E7 

AOEB 

88E3 

D8E2 

C0E4 

ACE7 

A8DE 
1890 
88DD 

D8DE 

4C80 0C94 



OCBO 0000 
0CB1 D8DC 
0CB2 10A0 
0CB3 98DA 
0CB4 1 4C80 OCBO 



0CB6 
0CB7 
0CB8 
0CB9 
OCBA 
OCBB 
OCBC 1 
OCBE 
OCBF 
OCCO 
0CC1 
0CC2 1 



8000 

0000 

0000 

0000 

0000 

0000 

OCOO 09?A 

D0F9 

E01E 

D0F6 

6A00 

4418 0CD2 



* 
* 

* 
* 

* 
* 

* 

« 
MKPOS 



* 

* 
* 
* 

* 

* 

* 

* 

* 

AISWC 

AIIST 

AIDSW 

1NTRS 

ACAI 

AINTR 



M 

D 

STO 

M 

SLT 

STO 

LO 

M 

SLT 

D 

STO 

M 

AD 

STD 

LD 

M 

D 

SRT 

AO 

STD 

BSC I 



DC 

STO 

SLT 

SO 

BSC 



DC 

OC 

DC 

DC 

DC 

DC 

XIO 

STO 

ANO 

STO 

STX 

BSI 



AIWKI 

AISRC 

AIWKL 

THOUS 

1 

AIWKI 

AIWKLM 

AITEN 

1 

AISRC 

AIWKL 

HUNO 

AIWKI 

AIWKI 

AIWKL£1 

HUND 

AISRC 

16 

AIWKI 

AUKL 

AIDCN 



X VALUE 
/ FULL SCALE 
» N2 £ Rl 
N2 X 1000 
X 2 

* N3 
Rl 

X 10 
X i. 
I 
# 
X 
£ 
* 
R2 

X ICO 

/ FULL SCALE # N6 

NO £ N5 £ N6 

# N7 

EXIT ROUTINE 



FULL SCALE 
N4 £ R2 
100 # N5 
N3 
N3 £ 



N5 



SX 



** CHANGE SIGN SUBROUTINE »* 

THIS SUBROUTINE CHANGES THE SIGN 
OF THE VALUE IN AtO AND RETURNS 
WITH THE NEW VALUE IN A£Q. THE 
VALUE CAN BE A ONE WORD VALUE IN 
BUT Q tf'JST * ZERO. 





POSWK 

32 

POSWK 

MKPOS 



SE 



SX 



** INTERRUPT ROUTINE »« 

THE MONITOR ENTERS THIS ROUTINE 
AFTER DETECTING A.'; AI INTERRUPT. 
THE ROUTINE SENSES AND EVALUATES 
THE DSW WORD AND TRANSFERS TU THE 
SUBROUTINE TO PERFURM THE REQUIRED 
SERVICE. MISSING OR EXTRA DSW BUS 
WILL BE OUTPUTTED IN AN ERROR MESS- 
AGE. 



/8000 BIT ZERO CONSTANT 

TEMPORY STORAGE 

DSW STORAGE AREA 

*"* ONLINE INTERRUPT SWITCH 

AI DVA 

IE 

CKOSW SENSE-RESET AI DSW 

AIDSW SAVE DSW WURD 

AIPAS TURN OFF PASS BITS 

AIIST STORE DSW 

AIIXSU SAVE INDEX REG 2 

AIERP..£- GO TO ERROR ZERO DSW 



PART NO. 
PAGE 



82314300 

82314310 

82314320 

82314330 

82314340 

82314350 

82314360 

82314370 

82314380 

82314390 

82314400 

82314410 

82314420 

82314430 

82314440 

82314450 

82314460 

82314470 

62314480 

82314490 

82314500 

82314510 

82314520 

82314530 

82314540 

82314550 

82314560 

82314570 

82314580 

82314590 

82314600 

62314610 

82314620 

82314630 

823i4640 

82314650 

82314660 

82314670 

82314680 

82314690 

82314700 

82314710 

82314720 

B2314730 

82314740 

82314750 

82314760 

82314770 

82314780 

82314790 

82314800 

82314H10 

82314820 

82314830 

82314840 

82314850 

82314860 

S2314870 

62314880 

82314190 

82314900 

82314910 

82314920 

82314930 

82314940 

62314950 

823149 60 

82314970 



2196398 

11A 



DATE 


28FEB66 


01MAY66 


150EC66 


04APR67 


14N0V69 


20Mf R70 


EC NO. 


♦15120 


415120* 


421206 


421206A 


431319 


431320 



PROG ID 
PAGE 



082 3-1 
11 



DATE 


28FEB66 


01MAY66 


15DEC66 


04APR67 


14N0V69 


20MAR70 


EC NO. 


415120 


415120A 


421206 


421206A 


431319 


431320 



PROG ID 
PAGE 



0823-1 
11A 
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'•J 



CO 

a 
to 



0CC4 





620F 






LOX 


2 


15 


0CC5 





C0F1 




AIIBR 


LO 




AIIST 


0CC6 





1240 






SLCA 


2 





0CC7 


1 


4C1H 


OCCE 




BSC 


L 


AIIXS, 6 


0CC9 





FOEC 






EOR 




AISWC 


OCCA 





DOEC 






STO 




AIIST 


OCCB 


1 


4680 


082F 




BSI 


12 


AIIBT 


OCCO 





70F7 






MOX 




AIIBR 


OCCE 





6600 


0000 


AIIXS 


LDX 


L2 





ocoo 


1 


4C80 


OCBB 


* 
• 


BSC 


I 


AINTR 


0CD2 





0000 




* 
* 
AIERR 


DC 




E- 



003 





C0E4 






LD 




AIOSW 


0C04 





DOOB 






STO 




ERDSW 


0C05 


1 


7401 


OCOF 




MOX 


L 


AIERS, 1 


0C07 





7004 






MOX 




AITRP+1 


0CD8 


1 


7400 


080F 




MDX 


L 


ONLIM.O 


OCDA 





7001 






MDX 




AITRP+1 


OCDB 





7CFF 




AITRP 


MOX 




AITRP 


OCDC 


1 


4C80 


0C02 




8SC 


1 


AIERt 


OCDE 





FF3E 




A1PAS 


DC 




/FF3E 



EXIT RTN IF DONE 



GO TO RT 

BRANCH 

RESTORE INDEX REG 2 

EXIT ROUTINE 



E-RP.OR EfcTRY 



IX 



IE 



SAVE ERROR DSW 
SET ERROR SW ON 



INTR ON SOLID - TRAP 
EXIT ROUTINE IX 



OCDF 0000 
OCEO 0000 
0CE1 0040 



0CE2 0000- 
0CE3 1 C480 0CE2 
0CE5 E8FB 
0CE6 D006 



0CE7 1 4400 0D14 
0CF9 1 0897 
OCEA 0CO5 
OCFB 0000 
OCEC 1 0C?4 
OCED O'.-OO 
OCEE 1081 
OCEF 1 0CE2 



INTERRUPT BITS 



»♦ ERROR LOG ROUTINE ** 



THIS ROUTINE IS 
SEVERAL POINTS 
ALL ERRORS WHIC 
MAINLINE OPERAT 
ID NUMBER AND E 
TED UNLESS BYPA 
IN B1TSW 0. 
ERRORS DETECTED 
BE COUNTED AND 
FOR THE LAST ON 
BE OUTPUTTED AF 
MAINLINE. THE E 
WORD FOLLOWING 
TO THIS ROUTINE 
„ND *£X, X# E 



ENTERED FROM 
IN THE PROGRAM. 
H OCCUR DURING 
ION HAVE AN UNIQUE 
ACH ONE IS OUTPUT- 
SSED BY BIT 11 ON 

IN INTERRUPT WILL 
THE INFORMATION 
E OCCURRING WILL 
TER RETURN TO 
.'(R'JR ID IS THE 
THE BSI INSTRUCTION 
. ^SPECIFIED AS 
RROR NUMBERn 



1ERS OC 
ERDSW DC 
K0040 DC 





/0040 



ERROR SWITCH 
ERROR DSW 



IERC DC SE 

LO • I A IERC 
OR K0040 

STO ERMID 



LD MESSAGE ID 
SET MESSAGE ID 



BSI 

DC 
DC 
DC 
DC 
ERMID DC 
OC 
DC 



*» ERROR CALL »* * 

ERRCL GO TO ERR CALL SBRT* 

AIERL LOOP RETURN ADDR * 

5 WORD COUNT * 

HEX-DEC SW SHEXn * 

ERCAI RETURN ADDR * 

MESSAGE ID * 

/1081 BYPASS BITS * 

AIERC ADDR OF ERROR ID * 



DATE 


2<*FEB66 


01MAY66 


15DEC66 


04APR67 


14N0V69 


20MAR70 


EC i.O. 


4151C0 


415120A 


421206 


421206A 


431319 


431320 



82314980 
82314990 
82315000 
82315010 
82315020 
823150 30 
82315040 
82315050 
82315060 
82315070 
82315080 
82315090 
82315100 
82315110 
82315120 
82315130 
82315140 
82315150 
82315160 
82315170 
82315180 
82315190 
82315200 
6231 52 1C 
82315220 
823152 30 
82315240 
82315250 
82315260 
823152 70 
82315280 
8231529C 
82315300 
82315310 
82315320 
82315330 
82315340 
8231 53'50 
82315360 
82315370 
82315380 
82315390 
82315400 
82315410 
82315420 
82315430 
82315440 
32315*- 50 
82315460 
82315470 
82315480 
82315490 
823155"0 
82315510 
82315520 
82315530 
82315540 
82315550 
8231556U 
823155 70 
S2315580 
82315590 
82315600 
82315610 
82315620 
82315630 
82315640 
82315650 



PROG ID 
PAGE 









Q 


o 








o 


o 


o. 


C3 

a 



ij 1 


O 


-:> 


O 


o 


o 




o 


:'j 


: ) 



o 



■■J 
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DATE 
EC NO. 



OCFO 


1 


08F3 






DC 




OSW ADDR OF DSW WORO * 


82315660 


0CF1 


1 


OCEO 






OC 




ERDSW ERROR INTR DSW * 


82315670 


0CF2 


1 


OCDF 






DC 




AIERS ERROR SW * 


82315680 


0CF3 


1 


0B29 






DC 




AICYR CYCLE COUNTER * 


82315690 










*******#*»***$**w****»**********»***e*»****»* 


82315700 


0CF4 





6AEA 




ERCAI 


STX 


2 


AIERS RESET ERROR SW 


82315710 


0CF5 





6AEA 






STX 


2 


ERDSW RESET ERROR DSW 


82315720 


0CF6 


1 


OCOO 


088A 




XIO 


L 


AIBST RESET BLAST 


t-2315730 


OCT- 8 


I 


4C80 


0CE2 


* 
* 
* 
• 
* 

* 
* 
* 

* 

• 
* 


BSC 


I 


AIERC EXIT ROUTINE SX 

*» CONVERT MPX AUDR ROUTINE ** 

THIS ROUTINE CONVERTS THE HEX m'px 

ADOR TO THE FORM TO BE OUTPUTTED 

- 9999 # RLY ADDRESS 

1 0000 - UP * SS ADDRESS 

THIS IS USED ONLY IN THE OUTPUT 

MESSAGE. 


82315740 
82315750 
82315760 
82315770 
823L5780 
82315790 
62315800 
82315810 
82315820 
82315830 
82315840 
82315850 
82315860 
82315870 


OCFA 





0000 




AIMPC 


DC 




SI 


82315880 


OCFB 





1003 






SLA 




3 


82315890 


OCFC 


1 


4C10 


0D05 




BSC 


L 


AIMP1,- 


82315900 


OCFE 





1001 






SLA 




1 


82315910 


OCFF 





1804 






SRA 




4 


82315920 


ODOO 





8092 






A 




TENTH 


82315930 


0D01 


1 


0400 


0B36 




STO 


L 


AIWKH SAVE CONVERTED ADDR 


82315940 


0D03 


1 


4C80 


OCFA 




BSC 


I 


AIMPC SX 


82315950 


0D05 





1803 




AIMP1 


SRA 




3 


82315960 


0D06 





70f A 


- 


* 

* . 

* 

* 

» 

* 

* 

* 

* 

* 

» 

* 
* 

* 
* 

* 
* 


MDX 


• 


AIMP1-4 

** ERROR-LOG SETUP ROUTINE ** 

THIS ROUTINE SETS UP THE CALL 

A.VO THE DATA STRING FOR MONITOR. 

THE CALL ON THIS ROUilNE CONTAINS 

THE MESSAGE 10, 'JPT'.ON CONTROLS, 

AND THE ADDRESSES OF THE DATA 

WORDS TO BE OUTPUTTtD. 

•THIS ROUTINE WILL CALL ON EITHER 

LOG OR ERROR, DETERMINED 3Y THE 

ENTRY USED. 

THE ROUTINE ALLOWS LOG OR ERROR 

TO BE BYPASSED BY HAVING THE BYPASS 

BIT SPECIFIED IN THt CALL SET ON 

IN BIT SW WORD 0. 

LOG ENTRY 


82315970 
82315980 
82315990 
82316000 
82316010 
82316020 
82316030 
82316040 
b23160'j0 
82316060 
82316070 
823160 80 
02316C90 
82316100 
82316110 
82316120 
£2316130 
82316)40 
82316150 
82316160 
82316170 
82316180 


0D07 





0000 




LOGCL 


DC 




SE 


82316190 


0D08 


1 


6783 


0D07 




LOX 


13 


LOGCL LOAD STRING ADDR 


82316200 


ODOA 





6200 






LDX 


2 


INIT X2 TO 


82316210 


ODOB 





6A19 






STX 


2 


L0GCSC4 RESET TERM ADUR 


82316220 


00 OC 


1 


6600 


08BA 




LDX 


L2 


AiRTM LOAD RET TO MON AUDR 


82316230 


ODOE 





6A18 






STX 


2 


LGRTNE1 I^IT RETURN ADDR PR06 


82316^40 


ODOF 





6201 






LDX 


2 


1 


82316250 


0D10 





4017 






BSI 




ERLG1 SET UP STRING 


82316260 


ODll 


1 


6E30 


0989 




STX 


L2 


TIERS RESET TIMER ERR SW 


82316270 


0013 





7008 


, 


* 
* 
* 
* 


MDX 




LQGCK 

ERROR ENTRY 


62316280 
82316290 
82316300 
82316310 
82316320 


0D14 





0000 




ERRCL 


DC 




SE 


82316330 



28FEB66 
415120 



01MAY66 
415120A 



15DEC66 
421206 



04APR67 
421206A 



14N0V69 
431319 



20MAR70 
431320 
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PAGE 



0823-1 
12A 



IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 
AI OPC FUNCTION TEST 



PART NO. 2196398 
PAGE 13 



a. 
to 



0015 6203 






LDX 


2 


3 






82316340 


0016 1 6780 


0014 




LDX 


13 


ERRCL 


LOAD STRING AOOR 




82316350 


0018 6 C300 






LO 


3 





LOAD LOOP AODR 




82316360 


0019 0008 






STO 




L0GCSC4 


STORE LOOP ERR AOOR 




823163 70 


0D1A 7301 






MOX 


3 


1 


MODIFY FOR STRING 




82316380 


00 IB 400C 






BSI 




ERLG1 


SET UP STRING 




82316390 


0D1C C300 




LOGCK 


LO 


3 





LOAD BYPASS BITS 




82316400 


0010 1 E400 


0802 




AND 


L 


SWO 


TEST FOR BYPASS BIT 




82316410 


001F 4FA0 


FFFE 


» 
* 


BSC 


13 


-2,1 


EXIT IF BIT ON 


SX 


82316420 
823164 30 
82316440 






************* 


********»**«*****#*******<■**»*»$ 




823164 50 






* 






** LOG 


OR ERROR ** * 




82316460 


0021 4480 


0000 


LOGCS 


BSI 


I 





* 


PM05 


823164 70 


0023 1 004D 






UC 




MSTbL 


AODR OF MESSAGE TBL* 




82316480 


0024 1 0057 






DC 




ERLGB 


AOOR OF BUSY RTN » 




823164 90 


OO.j 0000 


. 


* 


DC 







AOOR OF RETURN-LOOP* 

* 




62316500 
82316510 






********************«*»♦«»*»*»»«»*»♦***#♦»*»* 




82316520 


0026 4C00 


0000 


LGRTN 

* 
* 


esc 


L 





EXIT ROUTINE 


PM06 


82316530 
82316540 
82316550 


0028 0000 




ERLG1 


DC 









SE 


82316560 


0029 i C600 


005E 




LO 


L2 


CALL 


GET TYPE OF CALL 




823165 70. 


0026 D0F6 




* 


STO 




LOGCS+1 






82316580 
62316590 


002C C304 






LO 


■2 


4 


GET BYPASS BITS 




82316600 


0020 1010 






SLA 




16 


SET CARRY IF LINE BIT ON 


82 316610 


0D2E C302 






LD 


i 


2 


LOAD RETURN AOOR 




82316620 


0D2F 1 4C02 


0036 




BSC 


L 


ERLG3.C 


BR IF L INE BIT ON 




82316630 


0031 D0F3 






STO 




L0GCS&4 


STORE TERM AUDR 




82316641) 


0D32 C031 






LD 




LNCNT 


LOAD LINE COUNTER 




82316650 


0D33 1 7401 


0064 




MOX 


L 


LNCNT ,1 


BUMP CNTK 1 




82316660 


0035 7002 




* 


MOX 




ERLG5 






823166 70 
82316680 


0036 OOFO 




ERLG3 


STO 




LGRTN+1 


STORE RETURN AUORfcSS 




823166 90 


0037 C02C 




. 


LD 




LNCNT 


LOAO LINE COUNTER 




62316700 


0038 1008 




ERLG5 


SLA 




8 






82316710 


0039 8300 






A 


3 





ADO WORD COUNT 




82316720 


003A 0012 






STO 




MSTBL 


SET COUNTED LINE 




82316730 


0033 C300 






LD 


3 





LO WORD COUNT 




823i6740 


003C 0007 






STO 




MSSWAU 


SAVE WORD COUNT 


PR04 


82316750 


0030 C301 






LD 


■a 


1 


LOAD HEX-DEC SW 




82316760 


003t DOOF 






STO 




MSTBLtl 


SET HtX-DEC SW LINE 




82316770 


0D3F C303 






LO 


3 


3 


LOAD MESSAGE ID 




62316780 


0040 TOOE 






STO 




MS1B1 


SET MESSAGE 10 




8231679J) 


0041 7304 






MOX 


3 


4 


ADD 4 TO STRING 




62316600 


004 2 6B03 






STX 


3 


ERLG6C1 


SAVE STRING ADDR 


P^Ol 


8 f 316810 


0043 6600 


0000 


MSSWA 


LDX 


L2 







PM04 


82316320 


0045 C680 


OOOC 


ERLG6 


LD 


I? 





LO MESSAGE WORD 


PM01 


523l6f30 


0047 1 0600 


0D4F 




S T 


L2 


MSTBl 


SET MESS WD IN TABLE 




82316840 


0049 72FF 






MDX 


2 


-1 


SKIP UN ZFRU 




82316*50 


0D4A 70FA 






MDX 




ERLG6 


BRANCH 




82316860 


0D4B 1 4C80' 


0028 


* 


BSC 


I 


ERLG1 


EXIT ROUTINE 


SX 


82316870 
82316880 


0040 0002 




MSTBL 


BSS 




2 


CONTROL WOKDS 




82316890 


0D4F 0008 




MSTBl 

• 
* 
* 


BSS 




8 

LOG 


10 AND MESS/GF 
BUSY ROUTINE 




82316900 
82316910 
82316920 
82316930 


0057 690E 




ERLGB 


STX 


1 


LGLYRU 


SAVE INDEX KEG 1 


PR21 


62316940 


0058 6A0F 






STX 


2 


LGLYRC3 


SA^E INDEX REG ? 


PR22 


82316950 


0059 C802 






LDO 




RT04 


LD ENTRY 4 ADDRESS 




82316960 


0D5A 1 6400 


08B9 


ERLG8 

* 
* 
* 


LOX 


L 


A1EXX 


BRANCH - EXIT 


SX 


62 31&9 70 
82316980 
82316990 
82317000 


005C 0000 






BSS 


E 









82317010- 



-J 





3 

j 
CO 

«■* 
a 
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O 



005C 0004 
0050 1 006 5 
0D5E 2 4480 01 2F 
0060 2 4480 0130 
0062 0006 
0D63 i 0D6C 

0064 0000 

0065 65C0 0000 
0D67 6600 0000 
0D69 70B7 



0D6A 007F 
0066 0000 



006C 
0D6D 
0D6F 
0071 
0072 
0D74 
0D75 1 

0077 

0078 1 
007A 
0D7C 
0D70 
00 7E 
0D7F 
0080 1 
0062 1 

0084 

0085 1 
0D87 1 
0089 
0D8A 
0D8B 



10A0 
C400 
4C18 
4027 
6E0O 
C0F6 
4C18 
F0F2 
4C13 
C400 
B033 
7002 
7001 
700A 
0480 
7401 
C02B 
D400 
74FF 
1000 
C8D7 
70CE 



0804 
0074 

0804 

OD'JA 

0855 
08C5 



0DB3 
0DB3 



0805 
0D68 



S 



) ■ i 



0D8C 

0D8D 
008E 

onsF 

0090 
0D91 
0D92 
0D93 
0094 
0095 
0096 
0097 
0098 



1 0813 

1 0fil5 

1 0816 

1 081C 

1 0822 

1 0827 

1 OAEA 

1 0D94 

1 0B29 

1 082C 

1 0820 



RT04 DC 
DC 

CALL BSI 
BSI 

RT06 OC 
DC 

LNCNT DC 

* 

LGLYR LDX 
I. OX 
MOX 

* 

* 

* 
* 

* 

* 
* 



A1C7F 
A I OWC 
• 
AI.OER 



AIUSA 



AISTW 

AILRK 

» 
AIAOT 



1 082E 
1 0002 



DC 
DC 

SLT 

LD 
BSC 

esi 

STX 

LD 

BSC 

EOR 

BSC 

LO 

CMP' 

MDX 

MDX 

MOX 

STO 

MOX 

LO 

STO 

MDX 

SL i 

LOO 

MDX 

DC 
UC 
DC 
OC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 



4 

LGLYR 
I LOG 
I ERROR 

6 

AIDER 

*-* 

LI 
L2 

LOGCS 



RIO 
RAO 



RID 
RAD 
LINE COUNTER 



RESTORE -INDEX KEG 1 PM21 
RESTCXE INDEX REG 2 PM22 
BRANCH TO TRY AGAIN 



** DATA ENTRY ROUTINE ** 

THIS ROUTINE CAN BE USED BY THE 
OPERATOR TO fNTEK DATA INTO THE 
DATA TABLES. ALSO ANY WORD IN 
CORE -CAN BE CHANGED BY FIRST 
USING THE ROUTINE TO ENTER THE 
WORU ADDRESS INTO TABLE POSITION 
NUMBER 8. 

THIS ROUTINE IS ENTERED BY SETTING 
TABLE NUMBER, DISPLACEMENT, AND 
WORD COUNT IN BIT SWITCH WORD 02 
AND EXECUTING THE PROGRAM. 



L2 



/007F 


32 
SW2 

AIUSA ,-6 
AIBSA 
SW2 
AIDWC 
A I" KK ,e- 
AIC7F 
AIRST,£- 
SW3 
JV1AAS 
AISTW 
AISTW 
AILRK 
AITAE 
AITAE.l 
AIAAS 
SW3 

AIDWC ,-1 


RT06 
ERLG8 



TIBT1 

1 AICYC 
A1MPX 
AIPRC 
AIFRS 
RANGE 
AIHXS 
AIADTS8 

8 AICYR 

9 AISOS 
A AIXSS 
B AIWC1 
C AIRDV 



2 
3 
4 
5 
6 
7 



TERMINATOR CONSTANT 
WORO COUNT STORAGE 



LO BITSW WORD 2 

BR IF BITSW WORD # 

ZERO BITSW WORD 2 

BR IF END TBL 

BR IF FND DATA NTRY SX 

LD BHSW WORD 3 

COMPARE TO TERMINATOR 

BRANCH 

BRANCH 

BRANCH 

set data word in tbl 
add 1 to tbl wd addr 

initialize bitsw word 
subt 1 fi'om word cnt 
will skip last pass 
ld entry 6 address 
branch - exit sx 

addr of tmr constant 
cycle count address 
mpx audr tbl addr 
pr:c rding trl addk 
resolotiun tbl addk 
range table address 
hex-dec sw for a001 
used to set up wd 9 
any addr cw be ntfo 
r-s switch address 
external sync sw addr 
no of points audr 
input data tbl addr 



82317020 

82317030 

82 317040 

82317050 

82317060 

82317070 

823170 80 

82317090 

82317100 

82317110 

82317120 

82317130 

8231714C 

82317150 

82317160 

82317170 

82317180 

82317190 

82317200 

C2317210 

82317220 

92317230 

82317240 

82317250 

82317260 

82317270 

82317280 

82317290 

82317300 

82317310 

82317320 

82317330 

82317340 

82317350 

62317360 

82317370 

82317360 

82317390 

82 31 7400 

8231741'j 

62317420 

82317430 

82317440 

82317450 

82317460 

82317470 

82317480 

82317490 

8231 7500 

82317510 

8231752C 

82317530 

82317540 

82317550 

82317560 

82317570 

82317580 

82317590 

8231 76U0 

82317610 

82317620 

82317630 

82317640 

82317650 

82317660 

82317670 

82317680 

82317690 



DATE 


28FEB66 


01MAY66 


150EC66 


04APR67 


14N0V69 


20MAR70 


EC NP. 


415120 


415120A 


421206 


421206A 


431319 


431320 



PROG ID 
PAGE 
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DATE 
EC NO. 



28FE666 
415120 



01MAY66 
415120A 



15DEC66 
421206 



04APR67 
421206A 



14N0V69 
431319 



20MAR70 
431320 
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CO 

a 







* 












82317700 


0D99 0000 




A!BSA 


DC 









SE 


82317710 


009A 18CC 






RTE 




12 






82317720 


0D9B 000] 






STO 




AILARtl 


STO TBL ADDR 


PR01 


82317730 


009C 6700 


0000 


AILAR 


LDX 


L2 


l 




PM01 


02317740 


009E 6200 






LDX 


2 





ZERO INDEX REG 2 




82317750 


009F 1010 






SLA 




16 






82317760 


00A0 1085 
O0A1 1 8700 


0D8C 




SLT 
A 


L3 


5 

i AIADT 


ADD TABLE ADDR 




82317770 
82317780 


0DA3 000F 






STO 




AITAE 


STO T 3L POSTN ADOR 




82317790 


0DA4 1010 






SLA 




16 






82317800 


0DA5 1087 






SLT 




7 






82317810 


0DA6 D0C4 






STO 




AIDHC 


STO TBL WORD CNT 




82317820 


00A7 1 4C80 


0099 


* 
* 


BSC 


I 


AIBSA ' 


EXIT SUBROUTINE 


SX 


82317830 
82317840 
82317850 
82317860 


- 




* 






** VERIFY ENTERED DATA ROUTINE ** 


82317870 




' 


* 












82317860 






* 






THIS ROUTINE IS USED TO LOG *r 




82317890 






* 






DATA WHICH 


1 IS ENTERED INTO T HE 




82317900 






* 






TABLES, ALSO IT CAN BE USED TO 




82317910 






* 






LOG ANY WORD OR GROUP OF WORDS 




82317920 






» 






IN CORE. 






823179 30 






* 






THIS ROUTINE IS ENTERtD BY SETTING 


823179<,0 






* 






TABLE NUMBER, DISPLACEMENT, AND 




82317950 






* 






WORD COUNT 


IN BIT SWITCH WORD 01 


1 


82317960 






* 






AND EXECUTING THE PROGRAM. 




823179 70 






* 












82317980 






* 












8231 79 VO 






* 












82318000 


0DA9 0000 




* 
AIVED 


DC 









SE 


8231801 
82318020 


OOAA 40EE 






BSI 




AIBSA 


GO TO SETUP ADDR 




623180 30 






**»*»****»*»#*«» «* 9 *»*»*«*****»*«*»****»»»» »» 




82218040 






* 






** LOG 


CALL »» * 




82318050 


ODAB 1 4400 


0D07 




BSI 


L 


LOGCL 


GO TO LOG CALL SBRT* 




62318060 


COAD 0002 




. 


OC 




2 ■ 


WORD COUNT . » 




823180 70 


ODAE 0000 






DC 







HEX-DEC SW *HEXa » 




82 3180^0 


ODAF 1 0DB4 






DC 




«• 16 


RETURN ADDR » 




823180 90 


ODBO AAAA 




AI AAS 


00 




/AAAA 


MESSAGE IP * 




82318100 


0DB1 8000 






DC 




/8000 


BYPASS BIT * 




82318110 


00B2 1 0083 






DC 




AIT/U 


ADDR UF WORD * 




82316120 


00B3 0000 




AITAE 


DC 







TBL ADOR STORAGE * 




62318130 






*»»****tt»t*««t^t„»«t«,t tt<p ,„,„„,„ tM „ 




82316140 


0DB4 1 7401 


0DB3 


AI6 


MDX 


L 


AITAE, 1 


ADD 1 TO ADDR 




62318150 


0086 1 74FF 


0D6B 




MDX 


L 


AlDwC,-l 


SUBT 1 FROM WORD CNT 




62316160 


0DB8 70F2 






MDX 




AIVE0&2 


BRANCH 




82316170 


0DB9 1 6E00 


0803 




STX 


L2 


SW1 


RESET BITSW WORD 1 




82318160 


OOBB 6AA8 






STX 


2 


LNCNT 


RESET LINE CNTR 




82318190 


ODBC 1 4C80 


00A9 


» 
* 


BSC 


I 


AIVED 


EXIT ROUTINE 


SX 


82318200 
82316210 
823182?0 






* 






CONSTANT TABLES 




623182 30 






* 












82316240 


ODBE 1 00C8 




A I SUM 


DC ' 




AISUX 


***• 




8231 6250 


OOBF 1 ODCA 






OC 




AISUX&2 


» 




82318260 


ODCO 1 ODCC 






DC 




AISUXC4 


SUM TABLE AODR TBL » 




823182 70 


0DC1 1 OOCE 






DC 




AISUXC6 


* 




82318260 


0DC2 1 CODO 






DC 




AISUXt.fi 


*»*» 




8231 8290 


0DC3 1 0E1C 




AISPT 


DC 




AISTBG54 


**** 




82318300 


0DC4 1 0E89 






DC 




AIST6U63 


* 




6231 6310 


0DC5 1 0*F6 






OC 




AISTB&272 


SPREAD TBL ADDR TBL* 




82318320 


0DC6 1 0F63 






DC 




AISTB6381 


* 




82318330 


0DC7 1 OF DO 




* 
* 
* 


DC 




AISTBC490 


#*** 




82318340 
82318350 
82318360 
82318370 



o o 

3 © 

o 

3 O 

LO 

3 O 

O O 

o o 

o o 

o o 

a o 



'■J -J 



DATE 


28FEB66 


C1MAY66 


15DEC66 


04APR67 


14N0V69 


20MAR70 


EC NO. 


415120 


415120A 


421206 


421206A 


431319 


431320 



PROG 10 
PAGE 



082 3-1 

14 



.J J 

o . 

o •.; 

o o 

O J 



VARIABLE TABLES 



OOCB 




OOOA 


0002 




000 5 


0007 




0005 


OODC 




0005 


00E1 




0005 


0DE6 




0222 


1008 





0000 


1009 





0420 



10 

5 

5 

5 

5 

546 

*-* 

/0420 
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* 
* 

* 
* 
* 

AISUX BSS E 
AIRDV BSS 
AIGRD BSS 
AIOTR BSS 
AIOVC BSS 
A15TB BSS 
TSTOP DC 
OC 
* 
* 

* 
* 
» 

* 

* 

* 

* 

AIEND DC 
SLA 

STO L 
STO L 
MDX L 
MDX 

xm 

XIO L 

XIO L 

* 

BSI I 

DC 

DC 

MEN1 BSI L 

BSC I 
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SUM TABLE 
INPUT DATA TABLE 
GOOD READING TABLE 
OUT OF TBL CNTR TBL 
OVERLOAD CNTR TBL 
SPREAD TABLE 

i 

STOP TIMER IGCC 



** END ROUTINE »* 

THE END ROUTINE IS USED BY THE 
MONITOR (INLY. ENTRY IS MADE AFTER 
A CALL TO 3END3IF THE LOOP PROGRAM 
SWITCH IS OFF. ALSO ENTRY IS MADE 
WHEN THIS PROGRAM IS DE-EXECUTED. 



100A 0000 
100B 1010 
100C 1 0400 0064 
100E 1 D400 08F4 
1010 1 7*30 080F 

1012 7C09 

1013 08F4 

1014 1 OCOO 088A 
1016 1 OCOO 092A 



1018 2 4480 0132 

101A 1 0012 

101B 1 080A 

101C 1 4400 090 

101E 1 4C80 100A 




16 

LNCNT 

AITMS 

ONLIN.O 

AIEN1 

TSTOP 

AIBST 

CKUSW 

** REL 
I'FLUV 
EDIU1 
TFRM 
RELES 

AIEND 



SE 



ZERO LINE COUNTER 
RESET RLY TIMER SW 
IS TEST ON LINE 
YES, BRANCH 

RESET AI 

RESET PENDING INTER 

EASE DEVICE *» * 

GO TU RELEASE OEVS * 

ADDR UF iMR ODEF » 

AODR UF TERMINATOR * 
GO RELEASE AI 

EXIT SX 



1020 2 4480 012C 
1022 1 07FF 



OATE 
EC NO. 



007F 
002E 
0030 
0032 
0034 



28FEB6S 
415120 



* 

* 

* 

» 

* 

* 

* 

* 

A I GO 

PEND 

* 

* 

* 

* 

* 

* 

CON 

$UMK1 

$UMK2 

SMK1 

JMK2 



GO PROGRAM ENTRY 

THE PROGRAM IS ENTERED AT THIS POINT 
ONLY AFTER LOADING. 



BSI 

DC 



BEGIN 
PID 



ADDRESS OF PID 



PHASE I'll - ONLINE AI OFT - 



ENTRANCE 



MFX AND MPXDM COMMUNICATION EQUATES 



EOU 
EOU 
C-OU 
EOU 
EOU 



01MAY66 
415120A 



150EC66 
421206 



127 

046 
04 8 
050 
052 



04APR67 
421206A 



MPX FIXED AREA IN'EX 
UNMASK LEVELS C-i3 
UNMASK LEVELS 14-23 
MASK LEVELS 0-13 
MASK LEVELS 14-23 



14N0V69 
431319 



20MAR70 
431320 



82318363 

82318390 

82318400 

82318410 

82318420 

82318430 

82318440 

82318450 

82318460 

82318470 

82318480 

82318490 

82318500 

82318510 

823). 8520 

82318530 

82318540 

82316550 

82318560 

82318570 

823185e0 

82318590 

82318600 

82318610 

82318620 

82318630 

82318640 

82318650 

82318660 

82318670 

82 3186 80 

82318690 

82318700 

82318710 

82318720 

82318730 

823' 8740 

82318750 

82318760 

62318770 

62313760 

82316790 

82318800 

82318810 

82316820 

82318830 

82318840 

82318850 

82318860 

82318870 

82318880 

82318690 

823189 00 

82318910 

82318920 

82318930 

82318940 

82316950 

82316960 

82318970 

623189 80 

62318990 

82319000 

62319010 

82319020 

82319030 

82319040 

82319050 
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U. 
LO 



OOFB 
OOFC 
FFD2 
FF03 
FFD7 
FFEI 
FFF2 
FFEC 
FFEF 



1023 C870 

1024 1 OCOO 0800 

1026 6307 

1027 1 C400 OCHA 
1«»?9 1 EFOO 1096 
1020 1 0700 1096 
1020 73FE 
102E 70F8 • 



$PUTO 

$GETO 

REF 

OTADR 

ONOFF 

TOIND 

AR6SY 

BYICR 

MSKON 

* 
BBOOO 



BB001 



EOU 
EOU 
EOU 
EOU 
EOU 
EOU 
EOU 
EOU 
EOU 



LOO 

STD 

LOX 

LD 

OR 

STO 

MDX 

MOX 



251 

2 52 

/FF02 

/FF03 

/FF07 

/FFEI 

/FFE2 

/FFEC 

/FFEF 



RTOB 
L RIO 

3 7 
L ACAI 
L3 BBtOW 
L3 BB10W 
3 -2 
BB001 



ENTRY ADDRESS MPX PUTQ 
ENTRY ADORESS MPX GETU 
MPXOM COMMON AREA INDEX 
DEVICE TABLE ADORESS ♦ 14 
DEVICE ON/OFF IND. = OFF 
TIME OUV (4-5 S) OCCURRED 
ADDRESS OF AREA BUSY WORD 
AREA BUSY INCREMENTED IND. 
SYSTEM IS MASKED INDICATOR 



102F 63F0 
103C 1 6600 10A9 
1032 I C700 0806 



* 
* 

* 
* 
3B200 



SET ROUTINE ID ANO... 

AODRESS INTO RID, RAD 
XR3=ST0RAGE INDEX 
PLACE AREA CODE 

AND RESTORE 

TEST LOOP COMPLETED 
NO, REPEAT 



CHECK REPETITION 



CONVERT CONTROL PARAMETERS 



LOX 3 -3 
LDX 1.2 BBCHK 
BB201 LD L3 SW1+3 



XR3=L00P COUNT 

XR2=TAGLE AODRESS POINTER 

LOAD PARAMETERS 



FOUR DIGIT DECIMAL TO HEX 
CONVERSION ROUTINE 



RETURN- 

(A) = HEXIOECIMAL 



1034 





6104 


LDX 


I 


4 


1035 





1890 


SRT 




16 


1036 





1010 


SLA 




16 


1037 





1001 


BB202 SLA 




1 


10)8 





0061 


STO 




BBIOC 


1039 





1002 


SLA 




2 


I03A 





805F 


A 




BBIOC 


103B 





0060 


jTO 




BBIOS 


103C 


p 


1010 


SLA 




16 


1030 





1084 


SLT 




.4 


103E 





80?.' 


A 




BBIOS 


103F 





71FF 


MDX 


1 


-1 


1040 





70F6 


MOX" 

• 

* EXIT 

* 

BSC 




BB2 02 


1041 





4820 




7. 


1042 





B200 


CMP 


2 


BBCHK-B 


1043 





L206 


LD 


2 


BBIO-BB 


1044 





1000 


NOP 






1045 


1 


0780 10AF 


STO 


13 


BBADR+3 


1047 





7?01 


MDX 


2 


1 


1048 





7301 


MDX 


3 


1 


1049 





70E8 


MOX 




BB201 


104A 





C05C 


LO 




BBMPR 



XRi=LOOP COUNT 

SAVE DECIMAL CHARS IN 

AND INITIALIZE 
MULTIPLY 
VALUE 
BY 
10 
SAVF MULTIPLIED VALUE 
CLEAR A 
FOR NEXT DECIMAL CHAR 
AND ACCUMULATE 
TEST LOOP COUNT DONE 
NO, REPEAT 



TEST C.E. OPTION (=0) OK 
K TEST PAR. -TOO LARGE 

YES, LOAD DEFAULT VALUE 

STORE 

MODIFY ADDRESS POINTER 
TEST LOOP COUNT DONE 
NO, DO NEXT PARAMETER. 



82319060 

82319070 

82319080 

82319090 

62319100 

■J2319110 

82319120 

82319130 

82319140 

82319150 

82319160 

82319170 

82319180 

82319190 

82319200 

82319210 

82319220 

8231923C 

82319240 

82319250 

82319260 

82319270 

82319280 

82319290 

82319300 

82319310 

82319320 

82319330 

82319340 

b2319350 

82319360 

82319370 ' 

82319380 

82319390 ' 

82319400 

82319410 

82319420 

823194.30 

8231944J 

82319450 

82319460 

82319470 

82319480 

82319490 

82319500 

82319510 

8231952-0 

02319530 

82319540 

82319550 

82319560 

82319570 

823195"0 

82319590 

82319600 

82319610 

82319620 

82319630 

8231964U 

82319650 

82319660 

82319670 

82319680 

82319690 

82319700 

82319710 

82319720 

82319730 



J> 
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CO 

LO 

O 



O 



104B 
104C 
1040 
104E 
104F 
1050 
1051 



0056 
C056 
1890 
A86E 
4818 
1090 



1 0400 0B31 



1053 61D2 

1054 C101 

1055 0007 

1056 1 4400 09C7 

1058 627F 

1059 O 0AB3 
105A 0AB5 

105B 4480 OOFB 
1050 0000 
105E ! 1100 
105F 0000 



1060 

1062 

1064 

1065 

1066 

1067 

1069 

106A OAAF 

106B 0AB1 



4418 1002 

7400 FFEC 

7005 

C110 

D001 

7401 

Oil A 



0000 



106C 1 6700 106C 

106E 1 6F00 0809 

1070 1 COO 1100 

1072 1 4C20 107F 

1074 1 C400 1106 

1076 906C 

1077 1 4C18 10B2 

1079 9069 
107A 1 4C20 1053 

107C C02B 
107D 4060 

I07E 700F 
107F C10F 

1080 2 4C98 0120 

1082 4066 



10R3 C01A 
1084 4J59 



STO 

LD 

SRT 



BSC 

SLT 

STO 



* 

BB500 LOX 
LO 
STO 
BSI 
LDX 
XIC 
XIO 

BSI 
BB501 DC 
DC 
DC 



.BSI 

* 

MDX 

MDX 

LD 

STO 

MOX 

STO 

BB502 XIO 



BBMSG+3 STORE MPXR ADD IN ADONL 

BBMSG+4 RELOAD CONVERTED RANGE 

16 POSITION INTO 

BBDIV DIVIDE AND TEST 

♦- RANGE SIZE FOR VOLTS 

16 NO, RESTURE MV RANGE 

AIWKE AND STORE FOR AI3CN 



REQUEST EXECUTION IN QUEUE 



1 -46 

1 DTADR-REF 
BB501 

L RELES 

2 CON 

2 SMK1-C0N 
2 SMK2-C0N 

I JPUTQ 
*-* 
LIST 




XR1='REF« ADORESS 
ADDRESS OF D.T.+14 
STORED IN PUTO CALL > 
CK FOR KfcQ RELEASE 
XR2-C0NSTANT AREA 
MASK ALL 
INTERRUPT LEVELS 

REQUEST IOCR EXECUTION 
D.T.+14 PARAMETER 
CONTROL LIST 



L BB600,+- C~LL IOCR, PU1Q REFUSAL 



XIO 



L BYICR, 

BB502 
1 ARBSY-REF 

*+! 
L *-*,l 

1 BY1CR-REF 

2 iUMKl-CON 
2 SUMK2-C0N 



TEST AREA bUSY 

INCREMENTED 
NO, GET AREA BUSY 

AODRESS AND 
INCREMENT 
SET INCREMENTED IND 
UNMASK 

INTERRUPT LEVELS 



TIMING LOOP ENTRANCE 



BP-503 LOX L3 BB503 

STX L3 M^SCF 

LO L LIST 

BSC L BB504.Z 

LD l LIST+6 
S . BBONE 

BSC L . BB101 ,♦- 
S BBONE 

BSC L BB500.Z 

«-D BBOFF DEVICE OFF LINE 

BSI BB700 MESSAGE LOG OUT 

MCX BB108 

6B50' L~ 1 TOIND-REF TEST TIME OUT INDICATOR 

BSC I START.*- NO, CONTINUE LOOPING 



SET TIMING LOOP 
RETURN AODRESS 
TEST LINK/BUSY 
FOR 0? COMPLETE 
TEST ERROR PARAMETER 
EQUAL NO ERRORS (=1) 
GO EVALUATE POINT 
TEST OFFLINE (=2) 



BSI 



BB800 



YES, CLEAR QUEUE 



»*»»»»t,»» ) ,t < ,»,„» < »,„,„ < ,„ ( ., < ,, tt|c<(c!(t5t<t 

LD . B&EKl ERROR 1 .-. l( jST INTERRUPT 

bsi B87oo message log out 

GO RtLEASr AI 
TRY AGAIN 



TEST DELAY OVER 

NO, RETURN TO MONITOR 

TEST CYCLES DONE 



1085 
1087 


1 



4400 
TOf'.B 


09C7 


* 
* 
* 
BB107 


BSI L RELES 
MDX BB500 

LOOP AODRESS 


1088 
108A 
108B 


1 



1 


74FF 
7041 
74FF 


1C9A • 
10A1 


MDX L BBIOC, -1 
MDX BB106 
MDX L BBREP,-1 
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82319740 

82319750 

82319760 

82319770 

82319780 

82319790 

82319800 

82319810 

82319820 

82319830 

82319840 

82319850 

82319860 

82319870 

82319880 

82319890 

82319900 

82319910 

82319^20 

82319930 

82319940 

82319950 

82319960 

82319970 

823199 80 

82319990 

82320000 

82320010 

82320020 

82320030 

82320040 

82320050 

82320060 

82320070 

82320080 

82320090 

823^3100 

82320110 

82320120 

82320130 

82320140 

82320150 

82320160 

b2320170 

82320180 

82320190 

82320200 

62320210 

8232C220 

823202?0 

82320240 

82320250 

82320260 

82320270 

82320280 

82320290 

82320300 

82320M0 

8?32O320 

82320330 

82320340 

82320350 

82320360 

82320370 

82320380 

82320390 

82320400 

82320410 



OATE 
EC *0. 



28FER66 
415120 



01MAY66 
415120A 



15DEC66 
421206 



04APR67 
421206A 



14N0V69 
431319 



20MAR70 
431320 
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EC NO. 
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14N0V69 
431319 
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a. 
to 



10*D 





70C5 




• **•*' 


108E 





C004 




BB108 


108F 





404E 




*****.■ 


1090 


1 


6500 


1090 


BB100 



1093 





C001 


• 
BBSLC 


DC 


/C001 


1094 




0000 




BSS F 





1094 





OOOB 


RTOB 


OC 


/OOOB 


1095 


I 


1023 




oc 


BBOOO 


10»6 


1 


10A7 


BBIOW 


OC 


B3MPR 


10s 7 





0108 




OC . 


/0108 


1098 


1 


1006 


BBIOK 


OC 


BBPOV 


H)99 





0200 




OC 


/0200 


109A 





0000 ' 


BBIOC 


OC 


*-* 


109H 





0400 




OC 


/0400 


109C 





0000 


BBIOS 


OC 


»-* 


1090 





0701 




OC 


/0701 


10SE 





E0C9 


BBER1 


OC 


/E009 


109F 





0105 


BBMSC- 


DC 


/0105 


10A0 





2001 




OC 


/2001 


10A1 





0000 


BBREP 


OC 


*-* 


10A2 


e 


0000 




uc 


. *-* 


10A3 





0000 




OC 


*-* 


10A4 





0000 0000 




OEC 





10A6 





0000 




DC 


*-* 


10A7 





0000 


BBMPR 


DC 


*-* 


10A8 





A032 


BBOFF 


DC 


/A002 








* 

4 


CONTROL 


PARAMET 


10A9 





13FF 


BBCHK 


DC • 


5119 


10AA 





1383 




OC 


5000 


10AB 





270F 


. 


OC 


9999 


10AC 


I 


10A7 


HbADR 


DC 


BPMPR 


10A0 


1 


101 i 




OC 


BBMSG+4 


10AE 


1 


10AI 




DC 


BSRfcP 


10AF 





0100 


BBIO 


OC 


, 


10*0 





1388 


BBRN 


DC 


5000 


1081 





000 A 


* 
* 


DC 
BEGU E 


10 

VALUATIOI 



MOX BB500 NOt GO DO AGAIN 

******* ***«******a*****«****4****s*--sxv* 

LO BBSLC SELECT NEXT OPTION 

BSI BB700 MESSAGE LOG OUT 

***-<************#********************** 
LOX LI BB100 SET START RETURN 

MDX BB106+2 BRANCH FOR START EXIT 

CONSTANTS - TEMPORARY STORAGE 

SELECT OPTION - MSG 10 



AI MPXR ADDRESS IOCC 

AI REAO IOCC 

AI CNTRL IOCC/TMP ST.CNT 

AI SENSE IOCC/TMP ACCUM 

INTERRUPT LOST - MSG 10 

DATA MESSAGE - WORD COUNT 

HEX/OEC SWITCH 

REPETITION COUNTER - N/A 

AI MULTIPLEXER AUDRESS 

RANGE IN MV 

VOLTS OR MILLIVOLTS * 100 

DIGITAL COUNTS ( OC ) 

AI MPXR ADDRESS 

DEVICE OFF LINE - MSG ID 



10B2 I 4400 09C7 
10R4 1010 
1CB5 0050 

10R6 C056 

10B7 1 4C0% 108A 

10B9 7005 



10RA 2 4480 012F 
10BC 1 110A 
10B0 03EB 
10RE 0000 



10BF CO I 6 

10C0 1RH1 

10C1 00E4 

IOC 2 1 4400 0C94 



BB101 BSI L RELES 
SLA 16 

STO LIST+6 



PARAMETER SIZE CHECK TABLE 



INDIRECT ADDRESSING TA3LE 



RELAY POINT 0000 ADDRESS 
RANGE = 5V, OPTION 
NUMBER OF REPETITIONS 



GO RELEASE AI 
CLEAR LIST 
ERROR PARAMETER 



ID BBOSW TEST DEVICE STATUS 

BSC L BB102.E FOR tRROR CONDITION 

MOX BB103 NO, GO EVALUATE POINT 

******* ********* **************************** 

* * **LOG CALL*-* 

BB102 BSI 1 LOG LOG OUT ERROR MESSAGE 

OC BBER2 E2 = DtVlCE ERROR 

BBOIV DC 1000 CONSTANT =1K - N/A TO U'LL 

')C 

♦♦♦♦♦♦a************************************* 

* 

* PROCESS 14 BIT OC VALUE 

* 

BB103 LO BBRDV LOAD AI READING 

SRT 1 FORM SINGLE PRECISION 

STO BBMSG+7 AND STORE DC 

BSI L AIDCN COMPUTE MV = OC*RANGE/MAX 



82320420 

82 320430 

82320440 

82320450 

82320460 

82320470 

82320480 

82320490 

82320500 

82320510 

82320520 

82320530 

82320540 

82320550 

82320560 

82320570 

82320580 

82320590 

82320600 

82320610 

82320620 

82320630 

82320640 

82320650 

82320660- 

82320670 

82320680 

823206 90 

82320700 

82320710 

82320720 

62320730 

J2320740 

82320750 

82320760 

82320770 

82320780 

82320790 

82320800 

82320810 

82320820 

82320830 

82320840 

82320850 

82320860 

82320870 

82320880 

b2320890 

82320900 

82320910 

82320920 

823209 30 

82320940 

823209 50 

82320960 

82320970 

82320980 

823209 90 

82321000 

82321010 

82321020 

82321030 

62321040 

82321050 

82321060 

82321070 

82321080 

82321090 



."> © 



OO 
LO 



O 
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THE 1800 SYSTE 
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JNCTION TEST 














10C4 08DF 






STD 


BBMSG+5 


STORE DOUBLE PRECISION 


82321100 






**•*********•************«******«*****,*»*,,, 


82321110 






* 




**LOG 


CALL** 


82321120 


10C5 2 4480 


012F 




BSI 


I LOG 




82321130 


10C7 1 109F 






DC 


BBMSG 


MESSAGE STRING 


82 321140 


10C8 0140 




BB320 


DC 


320 


DELAY CONST - N/A TO CALL 


82321150 


10C9 0000 






DC 


0000 




82321160 






********************* ********** ***********«.* 


82321170 


10CA COFD 




BB105 


LD 


BB320 


LOAD OELAY COUNT 


82321180 


10CB OOCE 






STO 


BBIOC 


AND RESET 


82321190 


IOCC 1 6500 


1088 


BB106 


LOX 


LI BB107 


LOAD LOOP ADDRESS 


82321200 


10CE 1 6D00 


0809 




STX 


LI MLSCF 


AND PASS TO MPXDM 


82321210 


10D0 2 4C80 


012D 


• 
* 
• 


BSC 
10CR 


I START 


f 


82321220 
8232i230 
82321240 
82321250 


1002 0000 




BS600 


OC 


*-* 




82321260 


1003 6813 




* 


STX 


BB800-2 


SET INTERRUPT SWITCH 


82321270 
82321280 






♦ ♦♦a************************** *****:,* s **»$x* 


82321290 


1004 2 4480 


0131 




BSI 


I REODV 


REOUEST DEVICE 


82321300 


1006 0001 




BBRDV 


BSS 


I 


AI INPUT - N/A TO CALL 


82321310 


1007 1 0811 






DC 


EDIT 




82321320 


10D8 1 10E8 






OC 


BB800-1 




82321330 


1009 1 080A 






DC 


TERM 




82321340 






*************•*«***#*•**********«**«******** 


82321350 


100A 08BF 






XIO 


BBIOC 


RESET AI MULTIPLEXER 


82321360 


10DB 08BA 






XIO 


BBIOW 


AND REOUEST CONVERSION 


82321370 


100C 1 4C80 


1002 


* 


BSC 


I BB600 


EXIT 


32321380 
82321390 






* 


10 LOG CALL - COMMON ROUTINE FOR MESSAGES 


82321400 






* 








82321410 


100E 0000 




BB700 


OC 


*-* 




82321420 


10DF D029 






STO 


3BC0M+2 


STORE ID IN MESSAGE 


82321430 


10E0 2 4480 


012F 




BSI 


I LOG 


AND LOG OUT 


82321440 


10E2 1 1107 






DC 


BBCOM 




82321450 


10E3 0001 




BBONE 


OC 


1 


CONSTANT =1 - N/A TO CALL 


8232:460 


10E4 0000 






DC 







82321470 


10E5 1 4C80 


10DE 


* 
* 


BSC 


I B6700 


EXIT 


8232143l.> 
82321490 
82321500 






• 


INTERRUPT PROCESSOR 


82321510 






• 








82321520 


10E7 0000 






DC 


O 


INTERRUPT SWITCH 


82321530 


10E8 0000 






OC 


' 


AREA CODE STORAGE 


82321540 


10E9 0000 




BB800 


DC 


*-* 




82321550 


10FA 1010 






SlA . 


16 


CLEAR 


82321560 


10EB D0F8 






STO 


BB8O0-2 


INTERRUPT SWITCH 


82321570 


10EC 08AF 






XIP 


B3I0S 


SENSE AI DSW 


82321530 


10ED 001F 






STO 


BKDSW 


AND SAVE 


82321590 


1-OEE 08A9 






XI 1 


6BI0R 


READ POIUT 


82321600 


10EF 6680 


FFD3 




lo;'. 


12 DTADR 


XR2=D.T.+14 


82321610 


10F1 6A02 




* 


STX 


2 BB801 




82321620 
82321630 


10F2 4480 


OOFC 




BSI 


I SGETQ 


REMOVE IOCR FROM QUEUE 


82321640 


10F4 0000 




BB801 


DC 


*-* 


D.T.+14 


82321650 


10F5 6301 






LDX 


3 1 


XR3=1, SET ERROR 


82321660 


10F6 6B0F 






STX 


3 LIST+6 


PAR. EUUAL COMPLETE 


82321670 


10F7 C?C1 






LD 


2 1 


TEST U.T.XEO DONE 


82321680 


10F8 0001 






STO 


BB802+1 


KY SAVING AS FLAG 


82321690 


10F9 6500 


0000 


BB802 


LDX 


LI *-* 


OR USING FOR 


82321700 


10FB 63TF 






LDX 


3 CON 




82321710 


10FC 45A0 


0003 




BSI 


11 3,1 


INDIRECT ADDRESS 


82321720 


10FE 1 4C80 


10E9 


* 


BSC 


1 BB800 


EXIT 


82321730 
82321740 


• 


• 


« 


CONSTANTS - TEMPORARY STORE 


82321750 






* 








82321760 






* 


I OCR 


LIST 




82321770 



DATF 
EC NO. 



2»FE«66 
415120 



01MAY66 
415120A 



15DEC66 
►21206 



04APR67 
421206A 
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431319 



20hAR70 
431320 
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CD 
U. 



1100 


0000 


* 
LIST 


OC 


»-* 


1101 


0000 




DC 





1102 


0001 




BSS 


1 


1103 1 


1002 




DC 


BB600 


1104 


0002 




BSS 


2 


1106 


rooo 




DC 





1107 


0000 


BBCOM 


DC 





1108 


0000 




DC 





1109 


0000 




DC 


*-* 


110A 


0001 


BBER2 


PC 


1 


1108 


0000 




OC 





HOC 


EOOA 




DC 


/EOOA 


HOD 


0000 


BBDSW 


DC 


•— * 


riE 


1020 




END 


A1G0 



LINK/BUSY 

EXIT OPTION 

SYSTEM RESfcRVATION #1 

IOCR FOR JPUTQ CONTROL 

SYSTEM RESERVATIONS 3,4 

ERROR PARAMETER 

COMMON MESSAGE - LIST+7 

HEX/CtC SWITCH - LIST+8 

VARIABLE MESSAGE ID 

ERROR 2 - ILLEGAL INT 



AI STATUS 



NO STATEMENTS FLAGGED IN THE ABOVE ASSEMBLY 



82321780 
82321790 
82321800 
82321810 
82321820 
82321830 
82321840 
82321850 
8232186C 
82321870 
82321880 
82321890 
82321900 
82321910 
82321920 
82321930 



DATE 
EC ,'iO* 



24FEB66 
415120 



0>MAY66 
415120A 



15DEC66 
421206 



04APR67 
421206A 



14N0V69 
431319 



20MAR70 
431320 



PROG ID 
PAGE 



0823-1 
17 



3 < Q 
9 > • 




o o 

CD 

o o 

o o 

o o 

o o 



O ; O 



o 

.0 

o 



o 

J 

o 



I 



o 
o 
o 
o 
o 



O ! O. 



o 


' 


'J 
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SGETO 

SMK1 

SMK2 

JPUTO 

SUMKl 

SUMK2 

ABORT 

ACAI 

AC0N1 

AC0N2 

AC ON 3 

ACT I 

• AIAAS 
AIABC 
AIADT 
AIALD 
AIAPR 

. AIBSA 
AIBST 
AIBSV 
AIBYS 
AIB08 
AIB11 
AIB14 
AICHG 
AICKB 
AICLM 
AICNC 
AICYC 
AICYR 
AIC7F 
AIDCN 
AIDER 
AIDUK 
AIDSW 
AIDWC 
AIECK 
AIENB 
AIENC 
AIEND 
AIENS 
AIENT 
AIEN1 
AIERC 
AIERL 
AIERR 

AIERS 

AIEVL 

AIEVV 

AIEV1 

AIEXB 

AIEXX 

AIFRS 

A1G0 

AIGRD 

AIHR 

AIHXS 

All BR 

AIIBT 

AI INI 

AIINP 

AUNT 

AIIOP 

AIIRY 

AIISS 

AI 1ST 

AIIXS 



OOFC 

0032 

0034 

OOFB 

002E 

0030 

091E 

OCBA 

0BE9 

0C12 

0C13 

0967 

ODBO 

OAOO 

0D8C 

0A2A 

0821 

0D99 

088A 

08C0 

0964 

0A71J 

0A48 

0A49 

0CZ5 

08E5 

OBFB 

0AF4 

0815 

0B29 

006A 

0C</4 

0D6C 

09EA 

0CB8 

0D6B 

09D2 

089B 

08A5 

UOA 

OAOB 

09FA 

101C 

0CE2 

0897 

0CD2 

OCDF 
OAAD 
08C2 
0AB3 
08B7 
0839 
0822 
1020 
0DD7 
0C66 
OAEA 
0CC5 
082F 
0AA5 
0A3'7 
0A80 
0A65 
0A74 
0A6E 
0CB7 
OCCE 



10F2 
1059 
105A 
105B 
106A 
106B 



0907 

0C22 

0C44 

0C4D 

08FC 

09BD 

09FA 

009 3 

0A27 

0B07 

0D71 

08E9 

09A6 

08AE 

0A53 

0A1A 

0A11 

0C42 

08E2 

0C03 

0A03 

0B18 

0868 

0077 

0AE5 

OoCD 

0916 

OCBE 

0863 

08B1 

0891 

089E 

0808 

OA07 

08D7 

1012 

08ED 

0CE9 

0830 

OCDC 

086E 

08DE 

0895 

0B05 

08C6 

08BF 

OAOD 

110E 

0AC5 

0C5D 

0D92 

OCCO 

OCCB 

0A86 

0996 

0A70 

0A62 

083C 

033D 

OCCO 

0CC1 



09A8 0A1F 1027 

0D7C 0084 

0DA1 

CB15 

0DA7 OOAA 

090B 0CF6 1014 

0BF7 

0956 0902 09E1 

0AA6 



0C56 0C5.9 
08E7 
0C70 0C73 

OBCA 0D8D 

08BC OAF: 0B17 0B10 0CF3 0D94 

0B<i3 CdOA OCAE 10C2 
09F6 0D63 

0CD3 

0D74 0D87 0DA6 0DB6 



08B8 0A36 
0855 085C 101E 

09E9 09FO 

091B 09D4 0908 .09DD 09E3 OAAF 0CE3 OCEF 0CF3 

0831 0832 0833 0834 0837 063C 0839 083A 083B 083E 0AA8 0CC2 

0397 09EC 09EE OAAO 0CD5 0CF2 0CF4 

08E3 



0957 0":61 

08C1 08F2 0D5A 

0BB7 0D90 



0AC8 0B58 0B5F 0B76 0B84 



0A76 0A81 0A9C 0A9E 0AA3 



0A78 
• 0A72 
0CC5 OCCA 
0CC7 
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LO 

a 

LO 



MLAR 
AILOB 
A1LOL 
AHOP 
AIIPE 
A1LRK 
AIMBR 
AIMCT 

A I MOO 

AIMPC 

AIMPX 

AIMP1 

AINTR 

AINXT 

A10A4 

AI0A5 

AlOCC 

A10LC 

AIONE 

AtOTR 

A10VC 

AIOVL 

AIPAS 

AIPLX 

AIPRC 

AIRAC 

AIRAX 

AIRCC 

A1R00 

AI*DK 

AIROV 

AIREO 

AIRES 

AIRG 

AIR1A 

AIR1T 

A i V. 

AIRLY 

AIRMX 

AIRNL 

AIRRT 

AIRSC 

AIRSL 

AIRSS 

AIRST 

AIRS* 

AIRTB 

AIRTM 

AIR72 

AIS1A 

AISPR 

AISPS 

AISPT 

A1S0S 

A1SRC 

AISRT 

AISRX 

AISSE 

AISSW 

AISTB 

AISTC 

AISTW 

AISUM 

AISUX 

AISWC 

AITAE 

AJTCN 



009C 
08BC 
0C68 
083F 
0905 
008A 
0C6F 
OCOE 

0814 
OCFA 
0816 
0005 
0C9B 
0BE7 
0B17 
0B1A 
0A21 
0A2F 
0B39 
ODOC 
0061 
OAFB 
OCOE 
0C87 
ORIC 
09E8 

rcio 

0A7C 

1A1C 

0883 

0002 

099B 

0A47 

0A17 

0A77 

0A23 

0A1A 

0956 

096 3 

0A97 

08B3 

CB2A 

08*6 

0994 

0855 

0A4j 

0BD4 

OHfiA 

098A 

0A71 

OBOO 

08°S 

00C3 

082C' 

0CH9 

08F5 

0B99 

087E 

0A46 

0DE6 

0A2C 

0080 

ODBE 

0DC8 

0CB6 

0DB3 

OCOF 



009B 
0B1A 
0C62 
0837 
0841 
0075 
0C2C 
0B9E 
0C6D 
0A63 
OADC 
0870 
OCFC 
OCDO 
0B06 
0B09 

09F0 
• 0A3F 
0AC7 
0A05 
OAFB 
0AB8 
OCBF 
0C6E 
OACC 
0893 
039A 
0A5A 
0A16 
0876 
0A06 
0895 
0A15 
0A12 
0A64 
0866 
0A13 
0A05 
095E 
0AA7 
09E6 
0B67 
084A 
095F 
0076 
08C4 
06EB 
0858 
095A 
0A61 
0B13 
089F 
OAF 5 
''75 
0C7C 
086F 
0B92 
0882 
08C2 
00C3 
0A29 
0070 
0AC1 
085C 
0CC9 
0080 
0B02 



0844 
08F7 
007F 

0BC7 OBUO 0B09 0BE5 0BE7 0C1S 0C35 0C37 0C3B 0C3E 0C47 0C50 
0C71 0C75 0C79 0C7A 

0B3C 0003 

087F 095C 098A 09FB OAOA 0B3A 0D8E 

0006 

OBEO 



0A02 
0A44 
0A07 
0AD8 
OAFfc 



OAFO 0B8E 

OBBO 

OBBA 



OAOF 0B10 0B41 0B45 0B9B 0BA3 OBCO 0D8F 



0BA5 
0A83 
0A19 

OA23 
0905 
0A18 



OBFO 

0A94 0A97 0A98 0A99 0AA5 



0AB6 OABC OBOO 0098 
09AD 0i67 
OAlb 0A5O 



0879 OAOA 



098C 09BF 



0B6F 
0884 
099A 

0994 
0C1F 
OOOC 



OR BO 
CC15 
099E 
0C80 



0B7fc 
08B9 



J9DC 09E0 09EB 0A80 0A93 
0C60 



0A35 0A3A 
0C1C 

0A25 0095 
0C9B 0CA3 OCAA 



09D7 
0DC4 

0D7E 
0AC3 
085F 

0D32 
OBEE 



09UB 09FF 0A1C 0A41 0A89 0A91 
0DC5 0DC6 00C7 



0B56 

ODBE OOBF OOCO OOCl 0DC2 

0DA3 0082 00B4 
OBFO 0C28 OC29 
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1. PURPOSE 4 

2. PREREQUISITES 

2.1 PROGRAM PREREQUISITES 

2.2 EQUIPMENT PREREQUISITES 

3. OPERATING PROCEOURE 

3.1 PROGRAM LOADING 

3.2 PROGRAM OPERATICN 

3.3 PROGRAM HALTS 

3.4 PROGRAM TERMINATION 

3.5 SETUP OF OATA TABLE 

3.6 OATA TA8LE EXPLANATION 
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4. PRINTOUTS 

5. COMMENTS .... 

6. APPENDIX 

6.1 EOIT PROCEDURE 

1. PURPOSE 

TP<T A ™e !;:!^ T , D ' RECT PR05RA " CONTROL IAIDPO FUNCTION TEST IS DESIGNED TO 
TEST THE ANALOG-INPUT FEATURE UNDER DIRECT PRCCRAM CONTROL. A MAXIMUM OF 

MmT.^cI'^oocccPc 6 "" CAN BE ENTERED *N0 READ. IN THE RANDOM MODE THE 
MULTIPLEX ADDRESSES ARE READ IN THE OROER ENTERS IN THE TABLE. THE 
SEQUENTIAL MODE USES ONLY THE FIRST ADORESS ENTERED IS THF TABLE, AND RFADS 
THE NUMBER OF ADDRESSES SPICIFtEO TO A MAXIMUM OF 5 ADDRESS^ IN SEANCE? 

2. PREREQUISITES 

2.1 PROGRAM PREREQUISITES 

2nLrnr PC FUNCTt0N TEST ™ST RUN UNDER CONTROL OF THE DIAGNOSTIC 

2.2 EQUIPMENT PREREQUISITES 

A. MONITOR PREREQUISITES 

B. ANALOG-INPUT FEATURE 

3. OPERATING PRCCEOURE 
3.1 PROGRAM LOADING 

PROCEDURE^ CAO,NG * , * 0CEDURE AS DESCRIBED IN THE DIAGNOSTIC MONITOR USE 
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3.2 



PROGRAM OPERATION 

STANDARD MONITOR OPERATING PROCEDURES APPLY. 

PROCEDURE C FCR R DETAUs! U '' MARIZeD HERE * S " DUGN0STIC "CNITOR USE 



1. 
2. 
3. 

4. 
5. 

6. 



CLEAR STORAGE 

LOAD DIAGNOSTIC MONITOR 

SELECT MODE OF EXECUTION 

SELECT MONITOR CONTROL OPTIONS 

SELECT PROGRAM OPTIONS FROM TABLE PROGRAM CONTROL FUNCTION. 

INSTRUCT MONITOR TO EXECUTE (SFE SECTION 3.1.5 IN DIAGNOSTIC 

MONITOR DOCUMENTATION). u i ai^ui I il 



TABLE CONTROL FUNCTION 

.'"^^DDnrD!*" \' III FUNCTI0N 00 IN SENSE/PROGRAM SWITCHES ANO 1. 
I « SENSE/PROGRAM * 2. SET PID IN SENSE/PROGRAM SWITCHFS 2 THROUGH 7. 

' '• HI DESIRED CONTROL OPTIONS IN OATA ENTRY SWITCHES 0-15. 

•00100011* 4. PRESS CONSOLE INTERRUPT. "-". 

* , . , , DATA ENTR¥ SWITCHES • CESCR*PTiON"**" , *" ,,,, ** "'" 

* 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 • . 

* 1 BYPASS ALL LOG OUTPUT • 

* l BYPASS BLAST AI . 

i BYPASS EOXX MESSAGES • 

• l BYPASS ALL D001 OUTPUT > 

.*""*! ..BYPASS 000' DISTRIBUTION TABlE • 

* * * • * •♦•• ......BYPASS A001 OUTPUT . 

* * * * l BYPASS HRROR (EOOX) OUTPUT • 

* * , BYPASS SETUP ERROR (E01X) • 

. ' l BYPASS TIMFR CSw ERROR (COOO) . 

* ••«■•■•••... BYPASS DATA VERIFY OUTPUT • 

3.3 PROGRAM HALTS 



3.4 



3.5 



* r ? E . SCR,Pn ° N 0F EACH PR OGRAM HALT CONDITION CAN BE FOUND Al 
BEGINNING OF THE PROGRAM LISTING. 

PROGRAM TERMINATION 



THE 



STANDARD MONITOR TERMINATION 
SETUP OF OATA TABLES 

IsTABL^H Th^paJaJ™^*™! SPEC,FIFD ETERNALLY WITHIN THE PROGRAM TO 
11 t?± ^ T E PARA "ETERS FOR EVALUATING THE BASIC OPERATIONS 
OF TKE CE CALIBRATE POINT. AN EXPLANATION OF THIS IN'TIAL SETUP 1^ 
CONTAINED IN THE APPENOIX SECTION 6.1. ' l SETUP !i 

Z^f E ^ A J A TABLES CAN BE CHANGED EITHER BY CHANGING THF EOIT CARDS AND RFlflAniNr 
OR DIRECTLY IN CORE USING THE DATA ENTRY SELECT FUNCTION. RELOADING 

1. EDIT CARDS. 

THE PRCGRAM EDIT FEATURE IS USCD TO LOAD THE DATA TABLES WITH 

JufJIS 1 " ,NF0RMAT '°N. A *Y -3R ALL OF THE TABLE DATA CAN BE 

«P « ??,,« ?°cn FI L C 8EF ° RE ™ F IN,TIAL L0ADING 0F ™ E P R OGRAM. 
SEE FIGURE 1 FOR AN EXPLANATION OF THE DATA TABLE. 
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SENSE/PRCGRAM • 

C1234567* 

• 

110 11* 



ANY OR ALL CF THE TABLE OATA CAN BE CHANGEO 6Y USING THE DATA 
ENTRY ROUTINE. THIS IS DONE ANYTIME AFTER THE PROGRAM IS IN 
CORE AND EXECUTING. FUNCTION 10-11 OF THE MONITOR READ BIT 
SWITCHES FEATURE IS USED. FUNCTION 10 IS USED TO SET UP THE 
ADDRESS OF THE WORD OR WORDS TO BE CHANGEO. FUNCTION 11 IS USED 
TO ENTER THE NEW WORD. WORDS CAN BE ENTERED IN SEQUENCE BY 
SETTING THE DESIRED OATA INTO THE SWITCHES AND PRESSING CONSOLE 
INTERRUPT FOR EACH WORD TO BE ENTERED. SEE TABLE 2 AND 3. 

A WORD COUNT ECUAL TO THt TERMINATOR (127) IS ENTERED AFTTR A 
COMPLETE DATA ENTRY OPERATION (VIA FUNCTION 10). THIS RETURNS THE 
CONTROL TO THE OPERATING PROGRAM. AN EXPLANATION OF THE DATA 
TABLES IS CCNTAINEO IN FIGURE 1. 

3. DATA VERIFY ROUTINE 

IF IT IS NECESSARY TO PRINT THE CONTENTS CF AN AI TABLE IN CORE, 
TABLE 1 (OATA VERIFY) SHOULD BE USED. THE WORD COUNT (SWS. 9-15 
INDICATES THE NUMBER OF WORCS TC BE PRINTEC, TABLE DISPLACEMENT 
(SWS. 4-8) WILL SPECIFY THE FIRST ilQRD TO BE PRINTED FROM THE 
TABLE, AND TABLE NC. (SWS. 0-3) REFERS TO THE HESIRED TABLE 
(SEE THE DATA ENTRY AOCRESS TABLE LIST FOLLOWING TABLE 3). 

FOR EXAMPLE, THERE IS AN AI TABLE IN STORAGE THAT HAS THE 
CONVERTED VALUES OF ALL THE ADDRESSES THAT ARE SPECIFIED IN ThE 
AIMPX TABLE. IF ThE CE WISHES TO PRINTOUT THE CONVERTEO VALUES, 
THE FOLLOWING ENTRY SHOULD BE ,'ADE USING TABLE I. TABLE NO. IS 
C (SWS. 0-3), TABLE DISPLACEMENT IS (SWS. 4-8) AND WORO COUNT 
5 (SWS. 9-15). 



TABLE 1 DATA VERIFY ROUTINE SELECT 

1. SCT FUNCTION 01 IN SENSE/PROGRAM SWITCHES AND 1. 

2. SET PID IN SENSE/PROGRAM SWITCHES 2 THROUGH 7. 

3. SET DATA TABLE IDENTIFICATION IN DATA ENTRY SWITCHES 
0-15. 

4. PRESS CONSOLE INTERRUPT. 



• OATA ENTRY SWITCHES 

• I 2 3 4 5 t 7 8 9 10 11 12 13 14 15 

• XXXXXXX 

• 

• X X X X X 



• X X X X 



• DESCRIPTION 



WORO COUNT. 



1-127 



TABLE DISPLACEMENT. 0-31 
BIT SWITCHES 4 THRU 8 ARE USED TO 
ALLOW ENTERING THE SELECTED TABLE AT 
ANY CF THE FIRST 32 WOROS. 

TABLE NUMBfcR. 0-F SEE THE DATA 
ENTRY ADDRESS TABLE LIST 
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• SENSE/PROGRAM 

• 01234567 

• 

• 10100011 



1. SET FUNCTION 10 IN SENSE/PROGRAM SWITCHES AND 1. 

2. SET PID IN SENSE/PROGRAM SWITCHES 2 THROUGH 7. 

3. SET DATA TABLE IDENTIFICATION IN CATA ENTRY SWITCHES 
0-15. 

4. PRESS CONSOLE INTERRUPT. 

• NOTE- PROGRAM MUST BE EXECUTING. 



DATA ENTRY SWITCHES 



12 3 4 5 6 7 



8 9 
X 



10 11 
X s 



12 
X 



i: 



14 15 
X X 



X X X X X 



• X X X X 



DESCRIPTION 

WORO COUNT OR TERMINATOR. 1-127 
TERMINATOR - 127 

TABLE DISPLACEMENT. 0-31 
BIT SWITCHES 4 THRU 8 ARE USED TO 
ALtOW ENTERING THE SELECTED TABLE 
ANY OF THE FIRST 32 WORDS. 

TABLE NUMBER. C-F SEE THE OATA 
ENTRY ACDRESS TABLE LIST 



AT • 



A NCRO COUNT ECUAL TO THE TERMINATOR (127) IS ENTERED AFTER A COMPLETE 
OATA ENTRY OPERATION. THIS RETURNS CONTROL TO THE OPERATING PROGRAM. 



TABLE 3 



OATA ENTRY FUNCTION 



SENSE/PRCGRAM 
C 1 2 3 4 5 6 7 



1110 1) 



1. SET FUNCTION 11 IN SENSE/PROGRAM SWITCHES AND 

2. SET PID IN SENSF/PROGRAM SWITCHES 2 THROUGH 7. 

3. SET DATA WCRO INTO DATA ENTRY SWITCHES 0-15. 

4. PRESS CONSOLE INTERRUPT. 

NOTE- PROGRAM MUST BE EXECUTING. 



• DATA ENTRY SWITCHES 

• 1 2 3 4 5 6 7 3 9 10 11 12 13 14 15 

• XXXXXXXXXXX X X X X X 



• DESCRIPTION 

OATA WORO TO BE ENTERED INTO TABLE 
POSITION SELECTED BY FUNCTION 10. 
SEE TABLE 2. 



DATA ENTRY ADCRESS TABLE LIST 

FOR USE WITH THE DATA ENTRY ANO THE VERIFY OATA ROUTINES. 

THE TABLE NUMBER IS ENTERED IN B0-B3 OF THE DATA ENTRY SWITCHES. 

SEE DATA VERIFY ROUTINE SELECT AND DATA ENTRY ROUTINE SELECT, TABLES 1 AND 2. 



CATE 
EC NO. 



28FEB66 01JUL66 
415120 415178 



PROG ID 
PAGE 



0823-K 
2 



CATE 
EC NO. 



28FEB66 
415120 



01JUL66 
415178 



PROG ID 
PAGE 



0823-* 

2A 



t 

1 
1 
1 
1 
1 
-> 
') 
1 

T 
"! 

1 
1 

1 
1 
) 
■) 

"J 



. * 



±_ 4 



IBM MAINTENANCE DIAGNOSTIC PRGGRAM FOR THE 1800 SYSTEM 
AI OPC FUNCTION TEST 



PART NO. 2196401 
PAGE 3 



IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 
AI DPC FUNCTION TEST 



PART NO. 2)96401 
PAGE 3A 



CORE 


TABLE 


TABLE 


SYMBOLIC 


NO. 


ADDRESS 





TIBTI 


1 


AICYC 


2 


AIMPX 


3 


AIPRC 


4 


AIFRS 


5 


RANGE 


6 


AIHXS 


7 


AIADT+6 



CORE TABLE NAME 



TABLE 

LENGTH 



3.6 



NAME 
TTBT1 

AICYC 
AIMPX 



AIPRC 
AIAPR 

AIFRS 



CATE 
EC NO. 



THE FOLLOWING 
7 IN DATA ENTRY 



1 
1 
6 
6 

1 
5 
1 
1 



8 


AICYR 


9 


AISCS 


A 


AIXSS 


B 


AlkCl 


C 


AIRDV 



TIMER A SPEEO CONSTANT 

CYCLE COUNT 

MULTIPLEX AOORESS TABLE 

PRECISION READING TABLE 

RESOLUTION TAfatE 

RANGE TABLE 

HEX-DEC! A001) SWITCH 

THIS WORD CONTAINS THE AOORESS Or 

WORD. BY SELECTING TABLE ADDRESS 

FUNCTION 10 ANY CORE ACCRESS CAN BE ENTERED INTO TABLE 

ADDRESS 8 USING FUNCTION II. THIS AOORESS ENTERED 

DETERMINES THE STARTING POSITION OF THE CORE TABLE 

AODRESSEO BY POSITION 8 OF THE ADDRESS TABLE. BY 

SELECTING TABLE AOCRESS H FUNCTION 10, OATA CAN BE 

ENTERED INTO THIS CORE TABLE USING FUNCTION 11. THIS 

ALLOWS ANY 1-125 WORD TABLE IN CORE TO BE MOOIFIEO. 

CYCLE COUNTER -- ,«NV ACCR CAN BE ENTERED HERE 

R-S SWITCH ACCRESS 

EXTERNAL SYNC SWITCH 

NUMBER OF POINTS 

INPUT DAT* TABLE AuDR 



1-159 
1 

I 
1 
5 



DATA TABLE EXPLANATION 



FIGURE 1. 

DATA TABLE EXPLANATION 

EXPLANATION 

ONE-WORD TABLE. A CONSTANT TO ESTABLISH THE INTERRUPT RATE OF TIMER 
A IS ENTERED IN THIS WORD. SEE TABLE IN LISTING. 

CNE-WORO TABLE. THIS COUNT DETERMINES THE NUMBER UF Tli'FS EACH 
SPECIFIED MULTIPLEX ADDRESS IS READ AND CONVERTED. THE COUNT MAY fie 
ANY NUMBER FROM 1 TO 32,000 (7000 HEX) CYCLE COUNTS. 

SIX-WORD (MAXIMUM) TABLE. THE MULTIPLEX ADDRESSES TO BE READ AND 
EVALUATED FOR ACCURACY AND RL-PEATAB ILITY ARE ENTFREO IN THIS TABLE. 
THE LAST WORO MUST BE AN FFFF. SEE EX4MPLE 1. 

EXAMPLE 1 
AIMPX TABLE 

1000 
10C2 
1003 
1004 
1006 
FFFF 

FIVE-WORD TA8LE. THE PRECISION DIGIT VALUE CORRESPONDING TO EACH 
MULTIPLEX ADDRESS IN THE AIMPX TABLE IS ENTERED IN THIS TABLE. 

ONE-WORD SWITCH. A ONE BIT IN THIS WORO WILL CAUSE THE FIRST VALUE 
READ FOR EACH SELECTED MULTIPLEX ADDRESS TO BE ENTERED IN THE AIPRC 
TABLE. A ZERO WILL CAUSE THE AIPRC TABLE ENTRIES TO Be USED AS 'KEY 
ARE SPECIFIED. THIS SWITCH IS THE 6TH ENTRY OF THE AIPRC TABLE. 

FIVE-WCRD TABLE. THE RESOLUTION FOR EACH OF THE ADDRESSES IN THE 
AIMPX TABLE IS ENTEREO IN THIS TABLE. OOOE 14-BIT RESOLUTION, 
0008 11-BIT RESOLUTION, AND 0008 8-BIT RESOLUTION. 



28FEB66 
415120 



01JUL66 
415178 



PROG ID 
PAGE 



RANGE 



FIVE-WORD TABLE. THE RANGE CONSTANT CORRESPONDING TO EACH OF THE 
MULTIPLEX ADDRESSES IN THE AIMPX TABLE IS ENTERED IN THE 
CORRESPONDING LOCATION OF THIS TABLE. THE VARIOUS KANGES AND RANGE 
CONSTANTS ARE LISTED BELOW. 



RANGE 

500 MV 

200 MV 

100 MV 

50 MV 

20 MV 

10 MV 

5 VOLTS 



HEX CONSTANT 

01F4 
00C8 
0064 
0032 
0014 
OOOA 
0003 



AISCS 
AIXSS 

AIWCl 



ONE WORO SWITCH. A ZERO IN THIS WORD SELECTS RANDOM MODE. 
SELECTS SEQUENTIAL MODE. 



A ONE 



ONE WORD SWITCH. A ZERO IN THIS WORO SELECTS NORMAL MODE OF 

OPERAT'CN. A ONE SELECTS EXTERNAL SYNC MODE. (NOTE A PULSE SOURCE 
MUST RE CONNECTED TO EXTERNAL SYNC INPUT IF EXT2RNAL SYNC MODE IS 
SELcCTEO) . 

ONE WORD TABLE. A NUMBER FROM 1-5 IS ENTERED IN THIS WORD TO 

INDICATE THE NUMBER OF MULTIPLEX ADDRESSES IN THE AIMPX TABLE TO 
BE USED* 



VOLTAGE 


CYCLE 


VALUE 


COUNT 


READ 




XXX.XXXXX 


XXXXXXXX 



0823-X 
3 



t 
t 

! 



4.0 PRINTOU T S 

ALL OF THE MESSAGES OUTPUTTED BY THIS PROGRAM ARE IN THE STANDARD MONITOR 
FORMAT. THE FIRST TOUR WORDS OF THE MESSAGE ARE ALWAYS IN HEX AND ARE USED 
FOR IDENTIFICATION ONLY. THE MESSAGE EXPLANATIONS GIVEN BELOW DO NOT 
SHOW THE PROGRAM ID (PID). 

THE REMAINDER OF THE MESSAGE CAN BE EITHER IN HEX OR DECIMAL. IN THE WORDS 
WHERE FRACTIONAL VALUES CAN APPEAR THE DECIMAL POINT POSITION IS INOICATEO 
IN THE EXAMPLE. NO DECIMAL POINTS ARE LOGGED. A MINUS SIGN IS LOGGED 
PRECEECING THE NEGATIVE DECIMAL VALUES. 

MID RIO RAO MULTIPLEX PRECISION OIGIT 
AOCRESS DIGIT VALUE 
VALUE READ 
A0C1 OCOX XXXX! XXXXXXXX XXXXXXXX XXXXXXXX 

THIS DECIMAL MESSAGE IS USED TO OUTPUT ANY DATA REAo"tHAT IS OUT OF 
THE SAVE TABLE LIMITS, OVERLOADS EXCEPTED. THE SAVE TA^LE INCLUDES 
THE PRECISION READING PLUS AND MINUS 54 DIGITS. 

AODR WORO 

OF 

WORO 
AAAA CCOX XXXX XXXX XXXX 

THIS HEX MESSAGE IS USED TO OUTPUT PROGRAM DATfi TABLES AND SWITCHES 
TO VERIFY CONTENTS. SEE TABLE 1. THE MESSAGE MAY BE FROM 1-127 LINES. 

TIMR ERROR 
DSW CCUNT 
COCO CCOX XXXX XXXX XXXX 

THIS HEX MESSAGE IS USED TO LOG TIMER DSW ERRORS. AFTER THIS ERROR IS 
LOGGED THE PROGRAM IS ENDEO. THc ERROR COUNT INDICATES THE NUMBER OF 
FRRORS COUNTEO SINCE THE LAST LOG. 
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LINE 



5. COMMENTS 



MULTIPLEX RANGE 
ADORESS 



PRECISICN PRECISION* 

DIGIT VOLTAGE 

VALUE VALUE 
DCO! CCOX XXXX XXXXXXXX XXXXXXXX XXXXXXXX XXX.XXXXX 

THIS DECIMAL MESSAGE IS USED TO LOG THE EVALUATION DATA FOR THE 
MULTIPLEX ACORESSES SELECTED. THE SUMMARY DATA IS GIVEN IN THE FIRST 
THREE LINES AND THE DISTRIaUTION TABLE IS CONIAINED IN THE FOLLOWING 
i-109 LINES. 

LINE 1 



5.1 



PERCENT 


PERCENT 


MEAN 


MEAN* 


ACCURACY 


REPEAT- 
ABILITY 


DIGITS 


VOLTAGE 


XXXX. XXXX 


XXXX. XXXX 


XXXXXXX.X 


XXX.XXXXX 



OVERLOAD OUT OF TABLE 
COUNTER COUNTER 



LINE 2 

ACCURACY RFPEAT- RESOLUTION CYCLES 
DEVIATION /BILITY 

DEVIATION 
XXXXXXX.X XXXXXXX.X XXXXXXXX XXXXXXXX XXXXXXXX XXXXXXXX 

LINE 3 THROUGH LINE 112 

COUNT 

XXXXXXXX 



5.2 



5.3 



5.4 



5.5 



VOLTAGE* CIGIT 
VALUE VALUE 
XXX.XXXXX XXXXXXXX 



• VOLTAGE VALUES ARE GIVEN IN TERMS OF THE RANGE. SEE THE RANGE 
TABLE IN SECTION 3.1. 

MID RID RAD E l .R DSW DSW ERR CYCLE 
ID LAST LAST CNT CNT 
SNS INT 
EOOX CCOX XXXX XXXX XXXX XXXX XXXX XXXX 

THIS HEX MESSAGE IS USED TO OUTPUT ERRORS 0CCURP1NG DURING PROGRAM 
OPERATION. 



THE AIOPC FUNCTION TEST IS OESIGNED TO TEST EITHER RANDOM OR 

SFOUENTIAL CIRECT PROGRAM CONTROL OPERATION, 

USING A MAXIMUM OF FIVE MULTIPLES ACCRfcSSES. THE ADDRESSES USED A«>E 

EVALUATED FCR ACCURACY AND REPEATABILITY AND THIS INFORMATION, 

TOGETHER W I TH THE MEAN AND VARIABLC FACTORS USED IN THE CALCULATIONS, 

ARE PRINTED OUT. ANY READING THAT FALLS OUTSIDE THE LiMITS SET FOR 

THE DISTRIBUTICN-TABLE WILL BE LOGGED OUT IN MESSAGE A001. 

THE MESSAGE "OGGING CAN BE SUPPRESSED BY USING THE PROGRAM CONTROL 

OPTIONS. SEE TABLE 0. 

THE NUMBER CF CYCLES CAN BE VARIED BY ENTERING THE NUMBER DESIRED IN 
THE CYCLE-COUNT WOf.D (AICYCl. THE CYCLE COUNT CAN BE CHANGED DURING 
OPERATION USING THE DATA ENTRY ROUTINE. SEE SECTION 3.5. 

IF THE OVERLAP FEATURE IS INSTALLED, RELAY AND SOLID-STATE ADDRESSES 
WILL BE OVERLAPPED. A MAXIMUN CF FIVE ACDRESSES CAN BE USED AT 
ONE TIME. 

THE AIMPX TABLE IS USED TO SPECITY UP TO FIVE MULTIPLEX ADORCSSES "0 
Bt READ AND EVALUATED. THESE ACDKESSES MAY BE IN ANY ORDER OR 
SEQUENCE. IF THERE IS MORE THAN ONE RELAY ACDRESS IN THE TABLE ONLY 
THE FIRST CNE MAY BE REPEATED. 

THE AIPRC TABLE IS USED TO PROVIDE A PRECISICN DIGIT VALUE WHICH 
POSITIONS THE CENTER OF THE DISTRIBUTION TABLE. THIS ENABLES THE 
TABLE TO BE POSITIHNED TO INCLUDE AN INCOMING DATA SPREAD OF 54 
DIGITS OH EITHER SIDE CF THE PRECISION DIGIT VALUE ENTERED. 

THE PRECISICN DIGIT VALUES CAN eE AUTOMATICALLY SPECIFIEO EQUAL TO 
THE FIRST VALUE READ FCR EACH SELECTED MULTIPLEX AODRESS BY ENTERING 
A 1 IN THE AIAPR SMTCH, THE 6TH ENTRY IN THE AIPRC TABLE. THIS 
SWITCH IS RESET TO 2ERC AFTER THE AIPRC TABLE IS INITIALLY SET UP. 



5.6 



5.? 



ERRORS THAT OCCUk OURING THE OPERATIONS ARE LOGGED. 
THE POSSIBLE ERROR MESSAGES. 



SEE SECTION 4 FCR 



EOOO 
E001 
E002 
E003 
E004 
E005 
E008 



ERROR CETECTED DURING INTERRUPT. 

THE DSW WORD WCNT RESET TO ZERO. 
SOLID STATE BUSY STAYS ON OVER 100 MS. 
EXPECTEO INTERRUPT DIDN'T OCCUR. 

RELAY INTERRUPT DION'T OCCUR. 

RELAY BUSY STAYS ON OVER 100 MS. 

THE DSW IS NOT RESET TO ZERO AFTER EXECUTING A BLAST AI OPERATION. 
IN 



OURING OPERATION, THE CUT-OF-LIMIT ERRORS AND 0UT-0F-TA6LE READINGS 
FOR ANY OF THE FIVE SELECTED POINTS W.t.L BE TYPED OUT ALONG WITH THE 
CYCLE NUMBER. THESE TYPEOUTS CAN HE BYPASSED BY USING THE PROGRAMS 
CONTROL OPTIONS. SEE TABLE 1 SECTION 3.5. 

6. APPENDIX 

6.1 THE EDIT CARD NUMBER MUST BE IN THE CARD DECK TO ESTABLISH THE 
DEVICE ASSIGNMENTS AND THE TIMER A INTERVAL BEFORE LOADING THIS 
FUNCTION TEST. IF NO CTHER EDIT CiROS ARE INCLUOEO, THE PROGRAM WILL 
PERFORM THE FOLLOWING FUNCTIONS- 

A. 10C0 CYCLES. THE FIRST CYCLE WILL ESTABLISH THE PRECISION DIGIT 
VALUFS BY PLACING THE VALUE REAC IN THE AIPRC TABLE. 

U3E8) IS READ 5 TIMES. 
IS SPECIFIED TO BE EVALUATED EACH TIME 



EVALUAT 
ADDRESS 
COUNT 
E010 COOX XXXX XXXX 

SET UP ERROR 

THIS ERROR WILL OCCUR IF NO MULTIPLEX ADDRESSES ARE SFLECTEC TO BE 
READ AND EVALUATED. AFTER LOGGING IS COMPLETED THE PROGRAM CONTROL 
IS TRANSFERRED TO THE DATA ENTRY ROUTINE. 



B. 


THE CE MULTIPLEX ACDRESS 


C. 


THE CF MULTIPLEX ADDRESS 




IT IS READ. 


D. 


14 BIT RESOLUTION. 


E. 


5 VOLT RANGE 


F. 


NO EXTERNAL SYNC 


G. 


RANOOM MODE IS SPECIFIEC 



THE TERMINATOR (ENDI EDIT CARD MUST ALWAYS BE THE LAST EDIT CARD. 
THE SAVE TABLE LIMITS, OVERLOADS EXCEPTED. THE SAVE TABLE INCLUDES 
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6.1 EDIT PROCEDURE: 



THE FOLLOWING EDIT PROCEDURE IS FOR CARD INPUT. THE EDIT PROCEDURE FOR PAPER TAPE INPUT IS LOCATED IN 
THE PAPER TAPE EDIT UTILITY PROGRAM DOCUMENTATION. THE PROPER EDIT CARDS MUST BE THE LAST CARDS IN THIS 
PROGRAM DECK. THE FOLLOWING FORMS ARE PROVIDED TO AID IN MANUALLY PREPARING THESE EDIT CARDS OR UPDATING 
EXISTING EDIT CARDS. IF IT. IS NECESSARY TO PREPARE OR MODIFY EDIT CARDS, FILL IN THE NECESSARY DATA IN 
THE FORMS PRIOR TO PUNCHING .THE CARDS. CARD COLUMNS THAT ARE SHADED SHOULD BE LEFT BUNK. 

DDEF STANDS FOR DEVICE DEFINITION EDIT FIELD. IT INCLUDES: 

1. THE INTERRUPT LEVEL ASSOCIATED WITH THIS DEVICE (USE HEX NOTATION, 00-17). 

2. THE ILSW BIT POSITION ASSOCIATED WITH THIS DEVICE (USE HEX NOTATION, 0-F) . 

3. THE CHANNEL ASSIGNED TO THIS DEVICE (0-8). PUNCH AN "P- IN THE CARD COLUMN 



COLUMN 



CARD 



2 

8 

a. 



7 



iSl 



Ai DDEF 



INT. TIMER 

DDEF 



o 

UJ 

■=> 
& 
Ixl 

OOOC 
UJ 

o en 



10 



JLLi 



UKSTo 



ITTiT 



o 

CO 
Q£ UJ 
UI — 



15 



.j 

UJ 

> 



a. 

en 



17 



1? 



20 



21 



TIBT1 



A I MOD 



UJ 



f 

or. ««-. 
lj x 



2223 



- (> vl 



2k 



i 26 



gnu 



M 



Z CD CO 



1/1 



- 1 ° fc 

<u to 

> — o 

a: cr. t- o 
ui ui 

fc JC UJ cc 

2- Id O 

— J— c i>- 



27 
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o — 

• o c> 

Q O O 
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O — <N 

3 O J 

. o o 

< X. X. 



31 32 



'0 
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35 



IS 



37 



33]39 i +Oi+l 



42 43 



kk 



3 

PS 



45 
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47 



s 



F 



^48 



>9i50j51 



1 



PART NO. 219640! 

PAGE 5 

A I DPC CARD 



T1BT1 TABLE 



THE FOLLOWING TABLE LISTS CONSTANTS TO BE 
ENTERED BY THE OPERATOR FOR TIMER A TIME 
BASE.. 



TIME BASE 


CONSTANT ENTERED 


OF TIMER A 


IN HIX AT LABEL 


IN MILLISEC. 


T1BT1 


128.000 


0001 


64.000 


0002 


32.000 


0004 


16.000 


0007 


8.000 


000E 


4.000 


001B 


2.000 


0036 


1.000 


0C6B 


.500 


00D6 


.250 


01AB 


.125 


0356 



52I5; 



5^ 



til 






57 



5815^60 



|J 



s 



FT 



61 






1 



t*: 



62 



53 



ra 



65 



I£ 



WW® 



70 



j£ 



1 



71 



72 



73 



74 75 



E5 

E 



nm 









£Sl 






1 






^T 



.Si 



SI 



«r 



& 



unu 



j 



^ 

^ 



f 



t^ 



5T" 






m 



51 



5 



1 



n 



s 



^ 






1 



s 
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EDIT 
SEE 


PROCEDURE 
SEC. 3-1 


(c 

FIC 


ON 


TINUED) 

1 
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z 

Ul 

Ul 
</> C£ 

UJ 

O 0Q 

< => 
o z 






UJ 

u. cc 
o »- 

z 

JC Ul 
Ul 

CO t- 

2: — 
3 

Z Ul 




NUMBER OF 
CYCLES TO 
BF RUN. 
1 TO 7D00 














































COLUMN 


1 


2 


i 


C 


5 


T 


7 


A 


—\ 


irrr 


ii 


12 


13 


'4 


; !> 


K 


17 


IP, 


l'3l2C 


21 
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51 










16 










^1 
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36 










61 
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F^IT PROCEDURE (CONTINUED) 

> 
















AIMPX FABLE 


















































THE MULTIPLEX ADDRtSSES TO BE EVALUATED ARE ENTERED 


















































HERE IN THE DESIRED ORDtR. (1 TO > ADDRESSES) SEE 








































UJ 










FIGURE 1 IN SECTION 3.6. WHEN LESS THAN 5 
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ADDRESSES ARE SPECIFIED, FILL THE REMAINDER OF THE 
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TABLE WITH FFFF WORDS. 
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EDIT r S0CEDURE (CONTINUED) 



2 

CD 
O 
OC 

Dl. 



COLUMN 



CARD 3 



3 

Ul 
«/> OC 

UJ 
O CO 

ec x: 

<. 3 
O Z 



O I- 

z 

CC l_l 
UJ 

CD «- 

r — 

z UJ 



AIPRC TA8LE 



THE PRECISION DIGIT VALUE FCR EACH MULTIPLEX ADDRESS 
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IBM MAINTENANCE OMGKOSTIC PROGRAM FOR THE 1600 SYSTEM 
01 CC FUNCTION mi 

i. purpose • '" 

THE PURPOSE CF THE OICC FUNCTION TEST, IS TO CHECK THE OPFBATlru nc 
THE DIGITAL INPUT SECTION UNOgR CHANNEL CONTROL AIL !U£I & °' 

B i ssr;, H n 'i l ss'S'^ l jBis: -ssau*«gssa Su . 

2. REQUIREMENTS 

2.1 PROGRAM RETIREMENTS . 

THIS PROGRAM M.UST RUM UNDER CONTROL OF THE DIAGNOSTIC MBMTnB 

2.2 ESUIPH.ENT REOUIREPIEWTS : " 
A. 
E. 
C. 

3. USE PRQCECURE 

3.1 PROGRAM LCA0IN6 ' '. 

FRTCESfEt """ 6 PR0CEDURE « "SCRIBED IN THE DIAGNOSTIC MONITOR USB 

2.2 PROGRAM OPERATION 

STAWWRQ *©MIT0R OPERATING PROCEDURES APPLY. THESE PRDCECURF* i« 
SUMMARIZED HERE. SEE DM USE PROCEDURE FOR DETMLS. PRCCECURES *" E 
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FOR IhIS P PR E OGRA R " UIRE ° " ^ "«N0STIC MONITOR IS ALSO REQUIRED 
AT LEAST TWO DIGITAL INFUT GROWS AND DI ADAPTER. THF DlflTii 
INPUT GROUPS CAN BE CONTACT, WHTAGE oS A COHBIMTIflS OF llm 
& DIGITAL INPUT DATA CHANNEL ADAPTER. " * uun01N * ' iQN DF 8 0«H. 



1. 

2. 

• 3. 
4. 
5. 



CLEAR STORACE. 
LOAO 01 AGNOSTIC KONITOR. 
SELECT KCCE OF EXECUTION. 
SELECT PCNITCR CONTROL CFTIOWS. 
SELECT PROGRAM OPTIONS FftOPfc 

TAELE C PROGRAM CONTROL. FUNCTION 
TAELE 1 ROUTINE SELECT FUNCTION 
- TA&LE 2 MODE SELECT. FUNCTION 

6. INSTRUCT MONITOR TO EXECUTE. 
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Dl CC (UNCTION TEST 

TABLE C CCfcTPOL FUNCTION 

•»**•«<••••••*••*•• 

* • I. SET FUNCTION OC IV SENSE/PROGRAM SWITCHES AND 1. 

* SENSE/PROGRAM » 2. SET PIC IN SENSE /PROGRAM SWITCHES 2 THROUGH T. 
•01234547* 3. SET DESIRED CONTROL OPTIONS IN OATA ENTRY SWITCHES 0-19. 

* • 4. PRESS CONSOLE INTERRUPT. 
•0CJ001CC* 

* • • 

*»»»»« 4 »•»••»•••« *»**«»•••»•••#•••»»»##»»»»»#*»»*»»«,»»»»»,, **„» # * ## . # », # n #M , #### , 

* DATA ENTRY SWITCHES • DESCRIPTION • 

* I 2 3 4 5 <> 7 6 9 10 11 12 13 14 IS * • 

* - - • 

* . 1.. TERMINATE PROGRAM * 
*. 1. ...... .BYPASS OATA PRINTOUTS, IE. MESSAGES • 

* * 
•*•**•**•••*••*•**••**•*••••*•••**•••••••••••••••••*•••*•*••*••••**•#****«** ••*• 

TABLE 1 KCUTINE SELECT FUNCTION 
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1. SET FUNCTION CI IN SENSE/PROGRAM SWITCHES AND 1. 

2. SET PID IN SENSE/PROGRAM SWITCHES 2-T. 

3. SET OPTIOK IN CATA ENTRY SWITCHES. 

4. PRESS CONSOLE INTERRUPT. 



******«•«**•••••••• 

* * 

* SENSE/PROGRAM * 

* 012345C7* 

* * 
•01 100 IOC* 

* * 

•*•*•»******* ****»»***********»•»*********»***»»»*»»»»»**»«,«.*#»*»«•*»****»****** 

* OATA ENTRY SWITCHES * DESCRIPTION • 
$ C 1 2 3 4 5 6 T 8 9 10 11 12 13 14 J5 • » 

• » • 

1..L0CF ROUTINE 1 * 

1 C..LCCP ROUTINE 2 * 
1 1..L00P ROUTINE 3 * 

•NOTE- UNLESS LOOP ROUTINE IS SFECIFIEP FOR ROUTINES 1,2 OR 3, THEY WILL 8E • 

* RUN ONLY ONCE AT START OF PROGRAM. ONCE ROUTINE 4 IS ENTERED IT WILL * 

* BE CONTINOLSLY LOOPED AUTOMAT ICALLV. • 

* • 
IM»M«,«MM«*,4»»*,*««»*M«M**«M*»,««*«,»„MM«»IM*»*,«M«»«*«*M»*«*««** 
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!• Ill £ UNCTI0N »0 IN SENSE/PROGRAM SWITCHES AND 1. 

2. SET PID IN SENSE/PROGRAM SWITCHES 2-7. 

3. SELECT MODE I N DATA ENTRY SWI TCHES h THRU IS 

7- UU l J ° 0N ,N DATA ENTR y SWITCHES. 

5. PRESS CONSOLE INTERRUPT. 




* ***<HHHHNhHhMNHWHH I 

* * 

* SENSE/PROGRAM * 

♦01234567* 

» * 

* I t 1 * 

* * 

I « . . DATA ENTRY SWITCHES » DESCRIPTION 

* I 2 3 k 5 6 7 8 9 10 11 12 13 IMS* u " Wl, " ,0,, 

. * " 
■ * 
* 

* 

* 

* i 

* i 

* NOTE- UNLESS SOME OTHER MODE HAS BEEN SELECTED. THE PROGRAM Will ftliu 

* SEQUENTIALLY WITHOUT CHAINING OR EXTERNAL SYNC. U " 

* ? N ,' Ni n^ S,NGLE ADDRESS SELECT, AND NO ADDRESS SPECIFIEO IN BITS 

,f-7 f[ P ROGRAM WILL RUN Dl GROUP IdDRESS 00«J »rn.iMtg IK Bills 



1 

f 

10000000 
1XXXXXXX 



. 0.. SELECT RANDOM MOOE * 

. 1.. SELECT SEQUENTIAL MODE * 

. 1 0.. SELECT SINGLE ADDRESS MODE. RUN NEXT * 
. SEQUENTIAL Dl GROUP IF ALREADY IN S.A.* 

. 1 O..RUN SINGLE ADDRESS WITH Dl GROUP * 

WHOSE ADDRESS IS XXXXXXX * 

' ..RUN SELECTED MODE IN EXTERNAL SYNC * 

RUN SELECTED MODE WITH CHAINING * 

MUST BE ON FOR ANY ENTRY TO BE HONORED* 

* 

* 
* 
* 



»•....».. 



3.3 PROGRAM HALTS 

THIS PROGRAM HAS NO HALTS. 

3.'4 PROGRAM TERMINATION 

A. STANDARD MONITOR TERMINATION. 

E. TERMINATE PROGRAM SWITCH - USE THIS OPTION WHEN RUNNING IN 
BOOTSTRAP MODE AND LOADING OF NEXT PROGRAM IS OESIREO. 



PRINTOUTS 



4.1 



STATUS MESSAGES 



PIO MIO RIO RAD MODE PASS 

NMER 

2400 A0C1 0004 XXXX OOOX XXXX 



THIS PRINTOUT OCCURS DURING EXTERNAL SYNC OPERATIONS. IT INDICATES 
THAT THE PASS OEIAY COUNTER HAS REACHED 2ER0, THE E.O-T. BIT WAS NOT 
ON IN THE DSW, AND THAT THE BUSY INOICATOR IS ON. THE PASS NUMBER IS 
THE NUMBER OF TIMES THE DELAY COUNTER HAS BEEN REDUCED TO ZERO 
WITHOUT RECEIVING AN E.O.T. INTERRUPT. 

THE PASS COUNTER IS STARTED AT 7FFF AND REDUCED BY 1 EACH TIME THE 
DIDC FUNCTION TEST RETURNS FROM MONITOR START ROUTINE. WITH ONLY THE 
DIDC FUNCTION TEST RUNNING, 1 PASS THROUGH MONITOR START ROUTINE 
TAKES APPROXIMATELY 1 MILLISECOND. 
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PAGE 3 



4.2 



CAT* MESSAGES 



riO KID RIO RAO MODE CHAIN 
2400 0C01 0004 XXXX OCCX OCCX 

GC40 CC41 CC42 0043 0C44 CC45 0046 0047 

xxxx xxxx xxxx xxxx xxxx xxxx xxxx xxxx 

CC48 CC4S CC4A 0C4B CC4C 0040 004E ©04F 

xxxx xxxx xxxx xxxx xxxx xxxx XXXX XXXX 

CC50 0C5! 0C52 0C53 0C54 CC55 CC56 005? 
XXXX XXXX XXXX XXXX XXXX XXXX XXXX xxxs 

CCSE CC5S CC5A 0C5B CC5C OOD 0C5E ©05F 
xxxx xxxx xxxx xxxx xxxx XXXX XXXX KXKSC 

CC6C CCtl 0C42 0063 0C64 0C65 CC6£ 006? 
KXXX XXXX XXXX XXXX xxxx xxxx xxxx %%%%. 

CC66 GC£<J DC6S 0068 CCtC CCfcD CC6E 0O6F 

xxxx xxxx xxxx xxxx xxxx xxxx XXXX XXXX 

C07C G071 €072 0013 C074 C075 CCTfc 007? 
XXXX XXXX XXXX XXXX XXXX XXXX XXXX xxxx 

£018 COT** C07A COTE C07C Q07D CS7£ 0071= 

XXXX xxxx xxxx <xxx xxxx xxxx xxxx xxxx 

DATA RECEIVED ON 1ST READ AFTER MPOE SELECTION. NUMBER OF DATil WORDS 

PRINTED DEPENDS ON' NUMBER OF DI GROUPS BEING RUN. CHAIN • 0001 WHEN 

CKAININ6. MODE SS EITHER RANDOM OR SEQUENTIAL. DATA PRINTED IS 
SAVED AS INITIAL COMPARE WORD. 

PIC HID RID RAG* MODE GRP CHAIN CHPR PRSNT 

ADRS DATA DATA 

240C DC02 0004 XXXX OCOX OCXX OCCX XXXX XXXX 

COMPARE DATA NOT SAME AS PRESENT CATA. SAVE PRESENT OATA AS NEM 
COMPARE MORS. 

PIS MID RIO RAO MODE CHAIN GRP 

ADRS 

04C0 CCC3 00D4 XXXX CCCX CCCX OOXX 

DATA DATA DATA DATA OATA DATA DATA OATA 
XXXX XXXX XXXX XXXX XXXX XXXX XXXX XXXX 

OATA OATA OATA OATA DATA OATA OATA OATA 
XXXX XXXX XXXX XXXX XXXX XXXX XXXX XXXX 

DATA READ FROM DI CROUP SPECIFIED ON 1ST READ AFTER SINGLE ADDRESS 
MODE SELECTION. 8 DATA WORDS PRINTED IF NOT CHAINING, 16 OATA WORDS 
PRINTED IF CHAINING. 
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4.2 ERROR MESSAGES 

PID MID RIO RAD MODEOSW CN*IN 

2400 ECCX OOOX XXXX OOOX XXXX OCCX 

E001- LOST INTERRUPT. 

ECC2- SCAN COMPLETE INTERRUPT RECEIVED WITH INHIBIT INTERRUPT BIT SET ON 
SCAN CONTROL FIELD. 

ECC3- ERROR INTERRUPT RECEIVES. 

EC04- 01 SUSY INDICATOR ON - SHOULD BE CFF. 

EC05- DSW FAILED TO RESET. 

ECCS- FAILED TO RECEIVE BUSY INOICiTICN AFTER INITIALIZE READ WITH EXTERNAL 
SYNC. 

ECC7- INHIBIT INTERRUPT BIT SET Ifc SCAN CONTROL FIELD* BUSY INDICATOR 05* 

AFTER SUFFICIENT DELAY TO COMPLETE READ. 

ECCS- WRONG DSW IrTER INTERRUPT. 

£009- INTERRUPT RECEIVED - DSW BITS €, is 2* ANB 5 OFF. 

ECOA- 01 BUSY INDICATOR ON AFTER BLAST CHANNEL. 

ECOB- INTERRUPT RECEIVED AFTER BLAST CHANNEL. 

ECCC- NO INTERRUPT RECEIVED AFTER SUFFICIENT DELAY DURING CHAINING 
<& OPERATION. SCAN COMPLETE BIT IN DSW OFF, BUSY INDICATOR ON. 

P1D MID RID RAB HODE CSW CHAIN PTCT ACT 

DATA DATA 

2400 ECCO 0003 XXXX CCC2 XXXX OCCO FFFF XXXX 

STORAGE PROTECT AREA WAS MODIFIED ON READ INSTRUCTION. 

5. COMMENTS 

THE DIDC FUNCTION TEST CONSIST OF 4 TESTING ROUTINES AND RELATEO 
SUBROUTINES. EACH ROUTINE CONTAINS ITS OWN CONTROL. ROUTINE 1 CHECKS THE 
DI BLAST CHANNEL FEATURE. ROUTINE 2 CHECKS CONHANO REJECT. ROUTINE 3 
CHECKS STORAGE PROTECT VIOLATE. ROUTINE 4 CHECKS OATA, SCAN COMPLETE 
INTERRUPT, CHAINING, AND ALL MCDES CF DATA CHANNEL OPERATION (RANDOM, 
SECUENTIAL, AND SINGLE ADDRESS!. 



ROUTINES 1,2 AND 3 ARE NORMALL 
IS INITIALLY EXECUTES. IF -IT 
1,2 OR 3, THE OPTION MUST EE S 
ROUTINE IS SELECTEO FOR LOOPIN 
ALSO. FOR EXAMPLE, IF ROUTINE 
WILL BE RUN PRIOR TO THE LOOPI 
LOOPED IN ASCENDING CREER WHIL 
LOOPING ROUTINE I, ROUTINES 2 
ROUTINE 2 ONLY ROUTINE 3 MAY B 
RUNNING PROGRAM CEEXECUTION IS 
1,2 OR 3. 



Y RUN ONLY ONCE WHEN THE PROGRAM 
IS DESIRED TO LOOP EITHER ROUTINES 
ELECTED PRICR TO P&CGR6K EXECUTION. IF * 
G, THE ROUTINES PRECEEOING IT WILL BE RUM 

3 IS SELECTED FCR LOOPING, ROUTINES 1 AND 2 
NG OF ROUTINE 3. THE ROUTINES MAY CNLV 8E 
E THE PROGRAM IS RUNNING. THAT IS, IF 
OR 3 KAY BE SELECTED FOR LOOPING. IF LOOPING 
E SELECTED FOR LOOPING. ONC£ ROUTINE 4 IS 

REQUIRED TO SET UP FOR LOOPING OF ROUTINES 
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5.1 



5.2 



5.3 



ROUTINE 1. 

ROUTINE CUBE CHECKS THE BUST CHANNEL FEATURE. 
OF ROUTME I JS TO CHECK THE 01 BUSY INDICATOR 
CN, AN Itmm MESSAGE MIL RESULT AND THE ROUTI 

i^rAl V? BUSV CHK * UNTU THK INDICATOR GOE 
?M?T?f.\i? B£ "«^EO- I? THE BUSY INDICATOR 
i«il«'i ll f * E * D * S, * C -« ADDRESS t/ITH EXTERNAL 
ADORESS 4,©. EJ.TERNAL SYNC SHOULD CAUSE 01 TO 
INDICATOR! IS CHECKED AND IF IT IS NOT ON, AN E 
IF THE INDICATOR IS ON. A BLAST CHANNEL COKKAN 
BUSY NCIC.TCT CHECKED. THIS TIKE FOR A NOT BO 

»c!n, ic°f e * ,D * ,S ST,Ll 0N *"» 'HE CHANNEL B 
RESULTS AWE THE ROUTINE LOOPS ISSUING BLAST CH 
BUSY INDICATOR CCES OFF OR THE PROGRAM IS OEEX 
CHANNEL CAUSED THE BUSV 1NCICATCR TO GO OFF, T 
«ACE TO' iNiSURE THAT A SCAN COMPLETE INTERRUPT 



THE INITIAL FUNCTICN 
IF THE INDICATOR IS 
NE WILL CONTINUE TO 
S OFF OR UNTIL THE 
IS NOT ON, AN 
SYNC IS ISSUEO TC GROUP 
GO BUSY. THE BUSY 
RROR PRINTOUT RESULTS. 
ID IS ISSUEO AND THE 
SY CONDITION. IF THE 
LAST, AN ERROR MESSAGE 
ANNEL CCKMANDS UNTIL 
ECUTED. IF THE BLAST 
HEN A FURTHER CHECK IS 
IS NOT RECEIVED. 



ROUTINE 2. 



ROUTINE TWO CHECKS THE COMMAND REJECT FUNCTION. AN INITIALIZE REAO 
Si™^/"** 5 * **"****- SYNC IS ISSUED FOR GRbuP ADDRESS 40 
EXTERNAL S**C IS USED TC HANG THE DI SECTION I* I twy w«i* 

a™» l £C% X £.2.° t S 1he » »«" °"t« busy cha S nn!I* T 1; / 

COMMAND RiEJE^T INTERRUPT IS NOT RECEIVED, AN ERRGR RP<U'!T<L is \ut 

INTERRUPT. SS RECEIVED. THE CSW IS FURTHER CHECKED^o"^ 5 ^^^ 

THE ROUT 'IMC Kill SET AN INDICATOR IN THE DIAGNOSTIC MOMTTrR «n -u* 
THAT TFE £.*.*. CHECK ERROR hHICN RESULTS FROM TMP £n£2J£ .1 «j£* 

"st WJgFiZtJFFY* T ° "" ™ U AN S ,a;r e E"^SL?! JE S THE 
ncrcr,L V, *?* C m ?HE C -*-* CHECK ERRCR, OR IF A C.A.R CHECK IS 

2fJf C I! D ,*' £m TlWE CTHER 7HiN CUR I^ ROUTINE 2 TEST, THE MONITOR 
WILL HALT BISPS.AYING 30E6 IN THE B REG. AND THE II" IN THE A HT. 

ROUTINE 3W 

ROUTINE THREE CHECKS THE STORAGE PROTECT VIOLATE FEATURE »F Twe «t 
BUSY IMMUnO* IS ON *HEN THIS ROUTINE IS ENTERED. ThF PRAr B I« IT, f. ' 
LOOP CN TWg wst CONDITION UNTIL IT CCES OFF. OR UNTIL THF pSnrpi-Sc 
CEEXECUTEB. AN EKROR PRINTOUT ACCOMPANIES THIS LOoll " " 

TO CHECK STOKACE PROTECT, THE ROUTINE STORES A TEST WORD OF fc« ,„„, 
THE FIRST BATA LOCATION IN THE DATA TABLE. THE LOCATES Ts THEN " 
STORAGE PRCTFCTED AND AN INITIALIZE REAO SINGLE ADDRESS COHNAM IS 
GIVEN USIWC BI CROUP ADDRESS 40. THE ROUTINE THEN CHECKS m2 * 

COotIms^fwS ,S T0 INSURE ™" 7HE PROTECTED AREA STILL 
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5.4 ROUTUE 4. 

SruPT l I S NHf R ?T 7 c £ H f C \?*- T1 "*NSFER, END OF TRANSMISSION 
OPEMTION CAh » Mk;«^ , iIf KRUPT * ND FINING. ANY MODE OF 
ISEE MblE a. CH "KED. THE MODE IS DETERMINED BV THE OPERATOR. 

WHEN RUNNING WITH OUT CHAINING, THE INHIBIT INTERRUPT bit •» 

^■«^HffiBa.ss%SH s na.* a -- 
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PACE 5 

DI-DC 



6.1 EDIT PROCEDURE 

THE FOLLOWING EDIT PROCEDURE IS FOR CARD INPUT. THE EDIT PROCEDURE FOR PAPER TAPE INPUT IS LOCATED IN THE PAPER TAPE EDIT UTILITY PROGRAM DOCUMENTATION THE PROPER EDIT CARDS 
MUST BE THE LAST CARDS IN THIS PROGRAM DECK. THE FOLLOWING FORKS ARE PROVIDED TO AID IN MANUALLY PREPARING THESE EDIT CARDS OR UPDATING EXISTING EDIT CARDS IF IT IS NECESSARY 
TO; PREPARE OR MODIFY EDIT. CARDS, FILL IN THE NECESSARY DATA IN THE FORMS PRIOR TO PUNCHING THE CARDS. CARD COLUMNS THAT ARE SHADED SHOULD BE LEFT BUNK. " *" 

DDEF STJWBS FOR DEVICE DEFINITION EDIT FIELD. IT INCLUDES: t. THE INTERRUPT LEVEL ASSOCIATED WITH THIS DEVICE (USE HEX NOTATION, 00-1?). 

2. THE ILSW BIT POSITION ASSOCIATED WITH THIS DEVICE (USE HEX NOTATION. 0-F>! 

3. THE CHANNEL ASSIGNED TO THIS DEVICE (0-8). . . ■ . .. 

THE LAST EBJT CARD IS THE^EKD EDIT CARD". THE INFORMATION IN THIS CARD INCLUDES: }. AN w E"lN COLUMN I. " •-■ '- 

2. THE Pi D FOR THIS PROGRAM (COL. 2-3). 

3. A TERMINATOR WORD OF* FFFf" (COL. 7»!0). 
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CARD COCTAINS THE DDEF FOR DIGITAL IN, AND THE NUMBER OF D.I. GROUPS AVAILABLE ON THIS SYSTEM. 
CARD 1 IS TH£~END EDIT CARD". PUNCH EXACTLY AS IS SHOWN. 
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0000 



012C 
0120 
012E 
012F 
0130 
0131 
0132 
0133 



7FF 





2400 


0800 





0001 


0801 


1 


830 


0802 





0000 
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0000 
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0000 


0805 





0000 


0806 
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082C 


0807 
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0850 


0808 


1 


OCFF 
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0000 
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0000 


080B 





FFFF 


080C 
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0000 


080E 





0000 


080F 





0000 


0810 





0000 


0811 





0000 


0812 





0090 


0813 





0000 



0814 
0815 
0816 
0818 01 
081 A 01 
081C 01 
081E 01 
0820 01 

0822 

0823 01 





01 



0000 

0000 

0COO09AE 

040009AB 

0C0009AE 

D40009AC 

6780O9A4 

C 7000825 

0OE6 

4C800815 



0825 1 0A7B 

0826 1 08CB 

0827 1 0923 

0828 1 0986 



DATE 
EC NO. 



28FE866 
415120 



0R G 



BEGIN FQU 
START EOU 
END EOU 
LOG EOU 
FRROR EOU 
REODV EOU 
RELDV EQU 
CkCK EOU 
• 

* 

• 

PID 
RIO 
RAO 
SHO 
SW1 
SW2 
SW3 
IPA 
LPA 
EPA 
MLSCF OC 
DC 
TERM OC 

* 

* 

OC 
OC 
DC 
OC 
DC 
DC 

• 



OC 
DC 
OC 
OC 
OC 
OC 
OC 
DC 
DC 
DC 



EDIT 



DC 
DC 



* 
« 

• 

DIINT DC 
OC 
XIO 
STO 
XIO 
STO 
LDX 
LD 
STO 
BSC 



* 
RTRN 



DC 
DC 
DC 
DC 



01JUL66 
415178 



•♦2047 



******************** 

MONITOR EQUATE TABLE 

*••**•*•*****•>.-***** 



300 

BEGIN+1 

START»1 

END+1 

LOG+1 

ERROR +1 

REQOV-H 

REL0V*1 

********** **************** 

DIDC PROGRAM STATUS TABLE 
************************** 

/2400 PROGRAM 10 

1 ROUTINE NUMBER 

OIDCC ROUTINE ADD* ESS 

FUNCTION 00 ENTRY 

FUNCTION 01 ENTRY 

FUNCTION 10 ENTRY 

FUNCTION 11 ENTRY 

INIOI INITIALIZATION ADDRS 

OIOCC LOOP PROGRAM ADDRESS 

DIEND END PROGRAM ADDRESS 

INTERRUPT SEO CONTRL 

MAIN LINE SEO CONTRL 
/FFFF 

♦♦MONITOR EDIT CONSTANTS^ 

PENO END PROGRAM AOORESS 













♦♦ DIOCC EDIT DATA •♦ 

Dl INTERRUPT LEVEL 
NUMBER OF 01 GRPS 

***************** 

INTERRUPT ROUTINE 

***************** 






L DISN 
L Oil 
L DISN 
L 012 
13 RTNSW 
L3 RTRN 

MLSCF 
I DIINT+1 

DIIRT 
RT1IN 
RT2IN 
RT3IN 



DEVICE ASSIGNMENT AD 
INTERRUPT ENTRY PT IE 
SENSE DSW AND SAVE 

SENSE DSW AGAIN AND 

♦SAVE FOR RESET CK 

SET INTERRUPT RETURN 

♦ACCORDING TO RTN 

♦ SWITCH 

RETURN TO USER IX 

ROUTINE 4 RETURN 

ROUTINE 1 RETURN 

ROUTINE 2 RETURN 

ROUTINE 3 RETURN 



************* 
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0329 00 4480012C 
0828 1 07FF 



082C 
032D 01 
082F 01 

0831 

0832 01 
0834 01 
0836 01 

0838 

0839 1 
083A 
083B 01 
0930 01 
083F 01 
0841 00 

0843 

0844 01 

0846 

0847 

0848 
849 



084A 01 



084C 
0840 01 
084F 

0850 

0851 

0852 

0853 01 
0855 01 
0857 01 
0859 
085A 01 
085C 01 



0000 

C40009A3 

04000997 

6306 

6F000998 

C40009A5 

04000S99 

2C40 

OOOA 

1010 

0400099A 

O400099C 

D400099D 

670000C4 

1010 

D7000D07 

73FF 

70FC 

COBE 

DOBF 

4C80082C 



1090 

D400099E 

700C 

10A0 

C0C1 

1890 

AC0009A6 

4C18C84C 

D400099E 

1090 

8400099E 

0400099F 



* 

0I3GN *SSI 
OC 

♦ 
* 

• 

INTDI OC 
LD 
STO 
LDX 
STX 
LD 
STO 
OC 
DC 
SLA 
STO 
STO 
STO 
LDX 
SLA 
STO 
MOX 
MOX 
LO 
STO 
BSC 

• 

* 

OIOE SLT 
STO 
MOX 

DIOCC SLT 
LO 
SRT 
D 

BSC 
STO 
SIT 
A 
STO 



BEGIN ROUTINE 

***•***•••*** 

BEGIN XFER. TO HON BEGIN 

PID *RTN WITH PID ADDRS 

***•«*•••************* 

INITIALIZATION ROUTINE 

********************** 





L OISRT 
L DIREG 

3 6 
L3 MODE 



L 

L 
L 
L3 

L3 
3 



ONE 

ROSW 

/2C40 

DTBL+2 

16 

CHAIN 

EXTS 

SAINO 

196 

16 

OTBL-1 

-1 

♦-4 

LPA 

MLSCF 

INIDI 



SET GRP AOORESS 0040 
♦INTO GRP IN USE INO 
PRESET MOOE TO SINGL 
♦AODRESS EXT SYNC 

SET 1ST READ INDICTR 

CLEAR STORAGE PROTCT 

•AREA 

CLEAR CONTROL 

♦INDICATORS 



CLEAR OATA AND 
♦COMPARE TABLES 



SET UP PROGRAM 

♦RETURN 

RETURN TD MONITOR 



*********************** 

DIDCC MAIN LINE PROGRAM 
*********************** 



16 

HC1 

DIOF 

32 

EDIT+1 

16 

TWO 

OIOE.+- 

WC1 

16 

WC1 

WC2 



GET REMAINDER 

SET 

BRANCH 

DETERMINE CHAINIG 
♦WORD COUNTS WORD 
♦COUNT 1 « NQ.GRPS/2 
BRANCH IF ZERO 
♦WORO COUNT 2 - NO. 
♦GRPS/2 ♦ ANY REMAIN 



85E 01 44000AA9 



0860 01 44000AB9 



DATE 
EC NO. 



28FEB66 
415120 



DIOF 

* 

********************************************* 

BSI L RODV GO REOUEST DEVICE SRC 

♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦****************** 

* 

♦♦ BUILO RD ♦ SNS IOCC *♦ 
SAVE AREA CODE 
SENSE COMMAND 
INITIALIZE READ CNNO 

BLAST CHANNEL CONMO 

* 
********************************************* 

BSI L RLDV GO RELEASE DEVICE 

♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦•♦♦♦♦♦♦♦♦♦**••*••**•••*••*••* 

* 

• ************************ 



01JUL66 
415178 



0860 





C0B3 


* 
♦ 


LD 




* 
OIINT 


0861 


01 


EC0009A8 




OR 


L 


SENSE 


0863 


01 


D40009AF 




STO 


L 


DlSN+1 


0865 


01 


E40009A9 




AND 


L 


IREAO 


0867 


01 


D40009AD 




STO 


L 


ROIO 


0869 


01 


F40009AA 




EOR 


L 


CNTRL 


086B 


01 


040009B3 




STO 


L 


BLAST* 



PART NO. 219*403 
PAGE 1A 



82400689 
82400690 
82400700 
MRC 82400710 
82400720 
82400730 
82400740 
82400750 
82400760 
82400770 
SE 82400780 
82400790 
82400800 
82400810 
82400820 
82400830 
82400840 
82400850 
82400860 
82400870 
82400880 
82400890 
82400900 
82400910 
82400920 
82400930 
82400940 
82400950 
82400960 
82400970 
SX 82400980 
82400990 
82401000 
82401010 
82401020 
82401030 
82401032 
82401C34 
82401036 
82401040 
82401050 
82401060 
82401070 
82401072 
82401080 
82401090 
82401100 
82401110 
82401120 
82401130 
82401140 
82401150 
82401160 
82401170 
82401180 
82401190 
82401200 
82401210 
82401220 
82401230 
82401240 
82401250 
82401260 
82401270 
SRC 82401280 
82401290 
82401300 
82401310 



PROG IB 
PAGE 



0*24-0 
1A 



IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 
01 DC FUNCTION TEST 



RTN 1 TEST BLAST CHANNEL 
AND OEVICE BUSY 

***»**♦***»♦♦***»•»♦•»•• 

ROUTINE NUMBER AND 
•ADDRESS TO PST 
SET ROUTINE SWITCH 
•FOR ROUTINE 1 

***»#*****•♦♦♦♦*******»**»********•******•*** 

BSI L RQOV GO REQUEST DEVICE SRC 

«,**********•♦♦♦♦♦♦♦*♦♦♦********♦♦♦♦***♦♦****♦ 







• 










• 










* 










• 






086F 


C870 


RT01 


LDD 


RID01 


0870 


D88F 




STD 


RID 


0871 


6301 




LDX 


3 1 


0872 01 


6F0009A4 




STX 


L3 RTNSW 



OB 74 01 44000 AA9 



0876 00 
0878 01 
087A 01 
087C 01 
087E 01 

0880 

0881 01 
0883 01 



67000085 

6F0O0DO8 

C40009A3 

04000009 

C4000998 

1005 

EC0009AO 

D40009B1 



SET DATA TABLE SC»WC 



0885 01 0C0009AE 

0887 01 D40009AB 

0889 45.04 

088A 7001 

088B 7006 



088C 01 44000C00 
088E E004 
088F 01 44000AC4 



0891 70F3 



RT01E LOX L3 133 

STX L3 DTBL 

LO L DISRT 

STO L DTBL* I 

LO L HOOE 

SLA 5 

OR L ROIO 

STO L OIRD+1 
* 
* 
* 

XIO L OISN 

STO L Oil 

BSC E 

MOX **1 

MOX **6 

* 
****#***♦♦♦♦♦♦♦♦♦♦*♦♦♦♦♦♦***♦♦♦*♦*****♦****** 

BSI L LOGER GO PRINT ERROR E004 SRC 

DC /E004 MESSAGE 10 

BSI L RLPC PROGRAM RELEASE SRC 

»*****»«*»♦♦♦♦•♦♦****♦*♦**♦*♦**♦♦♦***♦******* 
* 



SET GRP ADDRESS 

BUILD INITIALIZE 
♦READ COMMAND 



** CHECK DI BUSY ** 

SENSE 01 
SAVE OSU 
SKIP IF NOT BUSY 



0892 


6302 


0893 


01 OC0009BO 


0895 


73FF 


0896 


70FE 



0897 01 OC0009AE 
0899 01 040009AB 

0898 4804 
089C 7006 



089D 01 0C0009B2 



0B9F 01 44000CDO 
08A1 E006 



08A2 7002 



MOX 

LOX 
XIO 
MDX 
MOX 

XIO 
STO 
BSC 

MOX 



*-13 

2 

DIRD 
-1 
*-2 

OISN 
OH 

E 
RTN10 



TRY AGAIN 

SET DELAY INOEX 

REAO DI 

WAIT FOR START 01 



SENSE DSW 

SAVE DSW 

SKIP IF NOT BUSY 



* 



XIO L BLAST 



♦♦NOT BUSY ERROR 6»» 
RESET DI 



»«*******♦♦♦♦♦♦♦♦♦*»*********♦♦♦♦♦*********** 

BSI L LOGER GO PRINT ERROR 6 SRC 
OC /E006 

**»**»***•♦♦♦♦♦*♦♦♦♦*♦♦♦♦♦♦**♦♦****♦********* 

* 

MOX **2 

• ♦♦CHECK BLAST CHANNEL** 



RESET DI 

SAVE DSW 

SKIP IF NOT BUSY 



08A3 01 


OC0009B2 


RTN 10 


XIO 


L 


BLAST 


08A5 01 


0C0009AE 




XIO 


L 


D:S« 


08A7 01 


040009AB 




STO 


L 


OH 


08A9 


4804 




BSC 




E 


08AA 


7001 




MOX 




♦♦1 


08AB 


7006 


• 


MDX 




RTN11 


DATE 


28FEB66 


01JUL66 






EC NO. 


415120 


415178 







PART NO. 219*409 
PAGE 2 



82401320 

82401330 

82401340 

82401350 

82401360 

82401370 

82401380 

82401390 

82401400 

82401410 

82401420 

82401430 

82401440 

82401430 

82401460 

82401470 

82401480 

82401490 

82401500 

82401510 

82401520 

82401530 

82401540 

82401550 

82401560 

82401570 

8240 1580 

82401590 ' 

82401600 

82401610 

82401620 

82401630 

82401640 

82401650 

82401660 

82401670 

82401680 

82401690 

82401700 

82401710 

82401720 

82401730 

82401740 

82401750 

82401760 

82401770 

e2401780 

82401790 

82401800 

82401810 

82401820 

82401830 

82401840 

82401850 

82401860 

82401870 

82401880 

82401890 

82401900 

82401910 

82401920 

82401930 

82401940 

62401950 

82401960 

82401970 

82401980 

82401990 



PROG ID 
PAGE 



0824-0 
2 



IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 
DI DC FUNCTION TEST 



,* I B USv EM 'OK »** 



08AC 01 44000CD0 
08AE EOOA 
08AF 01 44000AC4 



0881 70F1 



•***•****»♦******♦•***•* 

GO PRINT ERROR A SRC 

MESSAGE tO 

PROGRAM RELEASE SRC 

»*««*******»#****»##*•*•♦♦**•••*•*#********** 



***#«********•****** 
BSI L LOGER 
OC /EOOA 
BSI L RLPC 



MOX 



RTN10 



TRY AGAIN 



08B2 


6302 


08B3 


01 44000AC4 


08B5 


73FF 


08B6 


70FC 



2 

RLPC 
-1 
*-4 



OELAY TO INSURE NO 
•INTERRUPT OCCURS 



SRC 



08B7 01 44000AB9 
08B9 01 44000AC4 



RTN II LOX 
BSI 
MDX 
MDX 

*****»»*»*♦*****♦♦•*•••♦♦♦*♦♦*♦♦♦********♦♦♦♦ 
RTN13 BSI L RLDV RELEASE OEVICE SRC 

BSI L RLPC OVERLAP RELEASE SRC 

**♦»***»*#***♦******♦»*♦••*•♦•♦♦*»***#*•**♦♦♦ 
* 

CLEAR RTN SWITCH 



CHECK IF TERMINATE 
♦PROGRAM REQUESTED 
CHECK IF LOOP RTN 1 



08BB 





1010 




SLA 




16 


08BC 


01 


040009A4 




STO 


L 


RTNSW 


08BE 


01 


C4000802 




LO 


L 


SWO 


OBCO 


00 


4C84012E 




BSC 


I 


END,E 


08C2 


01 


C4000803 




LO 


L 


SW1 


08C4 


01 


E40009A7 




AND 


L 


THREE 


08C6 


01 


F40009A5 




EOR 


L 


ONE 


08CB 





4818 




BSC 




♦— 


08C9 





70A5 




MOX 




RT01 


08CA 





7017 


• 
• 
• 
RTIIN 


MOX 




RT02 


08CB 


01 


C400O9AC 


LO 


L 


DI2 


O8C0 





1801 




SRA 




1 


08CE 





4818 




BSC 




♦— 


08CF 





7003 


• 
• 


MDX 




RTN12 



LOOP ROUTINE 1 
GO TO ROUTINE 2 

•♦INTERRUPT RETURN** 

CHECK FOR DSM RESET 



*»OSW FAILED TO RESET** 

** ERROR 5 ** 



0800 01 44000CDO 
08D2 E005 



0803 01 C40009AB 

0305 1002 

0806 4810 

08D7 70DF 



0808 01 44000CDO 
08DA EOOB 



080B 700B 

080C 01 44000AC4 
08DE 7097 



DATE 28FEB66 
EC NO. 415120 



***••*••**♦♦**••*•*****••****•*•**•*•*•****•* 

BSI L LOGER GO PRINT EPROP 5 SRC 
DC /E005 MESSAGE ID 

*******»»♦•♦♦♦•♦♦♦♦♦*♦♦♦♦♦***♦*************** 



RTN 12 LD 
SLA 
BSC 
MDX 

• 

• 
«•••*•••♦♦♦♦♦ 

BSI L 

DC 
♦♦♦♦•••♦♦♦♦♦♦ 

MOX 

• 

♦♦♦♦♦♦♦♦*•**♦ 
RT1ER BSI L 
**«****••♦♦♦♦ 

MOX 



01JUL66 
415178 



CHECK IF EOT INTERPT 



OH 
2 

RTN13 



♦•EOT INTERPT ERROR B** 

ft******************************* 
LOGER GO PRINT ERROR B SRC 
/EOOB MESSAGE 10 

•*•*•*•••••••••••••*••***•••**•* 

RTN13 

•• LOOP ERROR RETURN •* 

*•**••••••♦♦♦♦♦♦••••••••••••*••• 

RLPC OVERLAP RELEASE SRC 

**••♦•••♦♦♦•*••♦♦♦••••••*•••***• 

RT01E 



PART NO. 219*401 
PACE 2A 



•2402000 

•2402010 

•2402020 

•2402030 

•2402040 

•2402050 

82402060 

82402070 

82402080 

82402090 

82402100 

•2402110 

82402120 

82402130 

82402140 

82402150 

82402160 

82402170 

82402180 

82402190 

82402200 

82402210 

82402220 

82402230 

82402240 

82402250 

82402260 

82402270 

82402280 

82402290 

82402300 

82402310 

82402320 

82402330 

82402340 

82402350 

82402360 

82402370 

82402380 

82402390 

82402400 

82402410 

82402420 

82402430 

82402440 

82402450 

82402460 

82402470 

82402480 

82402490 

82402500 

82402510 

82402520 

82402530 

82402540 

82402550 

82402560 

82402570 

82402580 

82402590 

82402600 

82402610 

82402620 

82402630 

82402640 

82402650 

82402660 

82402670 



PROG ID 
PAGE 



0824-0 
2A 



F 
N 



IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 
01 OC FUNCTION TEST 



08E0 0000 
08E0 0001 
08EI 1 086F 



08E2 C840 
08E3 01 DC000800 
08E5 6302 
08E6 01 6F0009A4 



08E8 01 44000AA9 




1 
RT01 



BSS 

RI001 DC 
OC 

RT02 LOO 
STD 
LOX 
STX 

* 
♦♦♦♦♦♦♦♦♦♦♦♦*♦♦♦♦♦*****************»********* 

BSI L ROOV GO REQUEST DEVICE SRC 

•♦♦♦♦♦♦♦ft******-****************************** 



RID02 
L RID 
3 2 

L3 RTNSW 



RID 
RAO 

**•**•***•*•**••********•* 

RTN 2 TEST COMMAND REJECT 

***-**•*************•****** 

ROUTINE NUMBER AND 
♦ADDRESS TO PST 
SET ROUTINE SWITCH 
♦FOR ROUTINE 2 



08EA 00 
08EC 01 
08EE 01 
08F0 01 
08F2 01 
08F4 
08F5 01 
08F7 01 
08F9 
08FA 01 
OSFC 01 
08FE 00 
0900 01 

0902 

0903 



67004085 

6 F 000 008 

C40009A3 

D4000D09 

C4000998 

1005 

EC0009AD 

D40009B1 

6302 

0C00C9B0 

C400C7FF 

D400C133 

0C0009B0 

73FF 

70FE 



RT2ER LDX 
STX 
LD 
STO 
LD 
SLA 
OR 
STO 
LDX 
XIO 
LD 
STO 
XIO 
KOX 
MDX 



L3 /4085 
L3 DTBL 
DISRT 
DTBL+1 
MODE 
5 

ROIO 
DIRDU 
2 

DIRD 
PID 
CRCK 
Olr.O 
-1 
•-2 



SET UP DATA TABLE 

SET UP STARTING 

•ADDRESS 

BUILD INITIALIZE 

♦READ COMMAND 



SET DELAY INDEX 
READ DI 

SET MONITOR C.A.R. 
•CHECK INOICATOR 
ISSUE ANOTHER REAO 



0904 01 44OO0AC4 



0906 


01 


OC0009AE 




XIO 


L 


0908 


01 


D40009AB 




STO 


L 


090* 


01 


0C0D09B2 


• 
* 
• 
• 


XIO 


i. 



♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦•*****•******••**•••*** 

8SI L RLPC GO CHECK FOR INTEPPT SRC 

************* ** ********** ******************** 

DISN SENSE DI 

Oil SAVE DSW 

BLAST RESET DI 



♦♦NO CMND RJECT 
♦♦ ERROR 1 



INTERPT** 
** 



090C 01 44000CDO 
090E E001 



090F 


01 


44000AB9 


RTN20 


BSI 


L 


RLDV 


0911 


01 


44000 AC4 


* 


BSI 


L 


RLPC 


0913 





1010 




SLA 




16 


091* 


01 


D40009A4 




STO 


L 


RTNSW 


0916 


01 


C40OO802 




LD 


L 


SWO 


0918 


00 


4C84012E 




BSC 


I 


END.E 


091A 


01 


C4000803 




LO 


L 


SW1 


091C 


01 


E40 009*7 




AND 


L 


THREE 


091E 


01 


F40009A6 




EOR 


L 


TWO 


0920 





4818 




BSC 




♦ - 


0921 





TOCO 




MDX 




RT02 


0922 





7010 


• 
* 


MDX 




RT03 


0923 


01 


OC0009B2 


• 
RT2IN 


XIO 


L 


BLAST 


0925 


01 


C40009AB 




LO 


L 


DU 


DATE 




28FEB66 


01JUI 66 






EC NO. 


415120 


415178 







********************************************* 
BSI L LOGER GO PRINT ERROR 1 
DC /E001 MESSAGE *D 
********************************************* 
• 

RELEASE DEVICE 
OVERLAP RELEASE 



SRC 



SRC 
SRC 



CLEAR ROUTINE SWITCH 

CHECK IF TERMINATE 
♦PROGRAM REQUESTED 
CHECK IF LOOP RTN 2 



LOOP ROUTINE 2 
GO TO ROUTINE 3 

♦♦INTERRUPT RETURN^ 

RESET 01 

CHECK FOR PROPER DSW 



PART NO. 2196403 
PACE 9 



82402680 

82402690 

82402700 

82402710 

82402720 

82402730 

82402740 

82402750 

82402760 

82402770 

82402780 

82402790 

82402800 

82402810 

82402820 

82402830 

82402840 

82402850 

82402860 

82402870 

82402880 

82402890 

82402900 

82402910 

82402920 

82402930 

82402940 

82402950 

82402960 

82402970 

82402980 

82402990 

82403000 

82403010 

82403029 

82403030 

82403040 

82403050 

82403060 

82403070 

82403080 

82403090 

82403100 

82403110 

82403120 

82403130 

82403140 

82403150 

82403160 

82403170 

82403180 

82403190 

82403200 

82403210 

82403220 

82403230 

82403240 

82403250 

82403260 

82403270 

82403280 

82403290 

B2403300 

82403310 

82403320 

82403330 

82403740 

82403350 



PROG ID 
PAGE 



0824-0 
3 



c 

4 



IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1*00 SYSTEM 
DI DC FUNCTION TEST 



0927 


1801 




S*A 


1 


0928 


1001 




SLA 


1 


0929 


F008 




EOR 


CMRJ 


092A 
0928 


4818 
70E3 


♦ 
• 


BSC 

MDX 


♦- SKIP ON WRONG 
RTN20 

•♦WRONG DSW ERROR 



092C 01 44000CDO 
092E E008 



092F 70DF 



************* ****** ************»„»***,**^,^,„ 
BSI L LOGER GO PRINT ERROR 8 
DC /E008 MESSAGE 10 

•♦♦♦•♦♦♦•♦•***************»********„, W ,^ M# 



SRC 



MDX 



RTN20 



0930 


0000 




BSS 


E 







0930 


0002 


RID02 DC 




2 


RIO 


0931 1 


08E2 




OC 




RT02 


RAD 


0932 


1000 


CMRJ 

♦ 


DC 




/1000 


CMND REJECT CK WORO 






♦ 






♦*♦**•**•**•*•*••********* 






• 






RTN 3 CHECK STG PROT VIOL 






• 
• 






************************** 


0933 


C860 


RT03 


LOD 




RID03 


ROUTINE NUMBER AND 


0934 01 

0936 

0937 


DC000800 

6304 

D06C 


• 


STD 
LOX 
STO 


L 
3 


RID 

4 

RTNSW 


♦ADDRESS TO PST 
SET ROUTINE SWITCH 
♦FOR ROUTINE 3 






************* 


♦♦♦♦♦♦♦♦♦♦♦♦♦♦*♦♦*************** 


0938 01 


44000AA9 




BSI 


L 


ROOV 


GO REQUEST DEVICE SRC 






*********** ♦»*************«****„**»****„ # ^„ 

* 


093A 01 


C400080B 


DI09 


LD 


L 


▼ERM 


SET CHECK WORD IN 


093C 01 


D4000D0A 




STO 


L 


0TBL+2 


♦PROTECT AREA 


093E 
093F 


C062 
E866 




LD 
OR 




SC01 
TWO 


SET SCAN CONTROL 01 
♦ANO WORO COUNT 2 


0940 01 


04000008 




STO 


L 


DTBL 


♦IN DATA TABLE 


0942 


C060 




LD 




DISRT 


SET GRP ADDRESS IN 


0943 01 


04000 D09 




STO 


L 


DTBL+1 


♦DATA TABLE 


0945 


6302 




LDX 


3 


2 


SET MOOE TO SINGLE 


0946 


6B51 




STX 


3 


MODE 


♦ADDRESS 


0947 


2C41 




DC 




/2C41 


STORAGE PROTECT 


0948 1 


OCOA 


• 
* 
* 


DC 




DTBL* 2 

•* 


♦READ IN AREA 
CHECK IF DI BUSY ♦♦ 


0949 01 


0C0009AE 


DIOD 


XIO 


L 


OISN 


SENSE 01 


094B 


D05F 




STO 




Oil 




094C 


100F 




SLA 




15 




C94D 


4810 




BSC 






SKIP IF BUSY 


094 E 


7007 


* 


MOX 




CIOA 








•••••♦♦♦♦♦♦♦♦♦•♦♦♦•••♦♦•♦♦•••••a************* 


094F 01 


44000C00 




BSI 


L 


LOGER 


GO PRINT ERROR 4 SRC 


0951 


E004 




DC 




/E004 





0952 085F 



0953 01 44000AC4 



0955 70F3 



DATE 
EC NO. 



28FEB66 
415120 



*********** ************************ *******^„ 

♦ 

XIO BLAST RESET DI 

♦ 

*********** **♦*»**♦•*************»»*********, 

BSI L RLPC RELEASE PROGRAM CTRL SRC 
••*••**•*••*•*****•******* *************** ** #<r 

MDX 01 00 TRY AGAIN 

* ♦♦ READ DI •* 

* 



01JUL66 
4151TB 



PART NO. 219*403 
PAGE 3A 



824033>0 

82403370 

824033S0 

82403390 

82403400 

82403410 

82403420 

82403430 

B2 403440 

82403450 

82403460 

82403470 

82403480 

82403490 

82403500 

82403510 

82403520 

82403530 

82403540 

82403550 

82403560 

82403570 

82403580 

82403590 

82403600 

82403610 

82403620 

82403630 

82403640 

82403650 

82403660 

82403670 

82403680 

82403690 

82403700 

82403710 

82403720 

82403730 

82403740 

82403750 

82403760 

82403770 

82403780 

82403790 

82403800 

82403810 

82403820 

82403330 

8240384C 

82403850 

82403860 

82403870 

82403880 

82403890 

82403900 

82403910 

82403920 

82403930 

82403940 

82403950 

82403960 

82403970 

82403980 

82403990 

82404000 

82404010 

82404020 

82404030 



?ROG ID 
PAGE 



0824-0 
3A 



IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SVSTEN 
01 DC FUNCTION TEST 



mw mi 

0958 E854 

0959 0057 

095A O 0855 



095B 01 44000AC4 



0950 0850 
095 E 004C 



095F 01 44000CDO 
0961 E001 



0962 01 CAOOODOA 
0964 01 F400080B 

0966 4818 

0967 TOOB 



0968 01 C400080B 
096A 01 D4000CCB 
096C 01 C400000A 
096E 01 D4000CCC 



0970 01 44030CD0 
0972 EOOO 



0973 2C40 

0974 1 OOOA 

0975 1010 

0976 D020 



0977 01 44000AB9 
0979 01 44000AC4 



DIOA 



OR 
STO 

XIO 



gooE 

R0I0 
DIRD+1 

OIRO 



m*m IHd"!I? 

•IN IOCC 



READ 01 



ft******************************************* 

BSI L RLPC GO WAIT FOR INTRP SRC 
»**«***«**«*«***»»»*«»»»»»*»»♦♦»»♦»»»*»♦♦♦♦♦* 

* ♦♦NO SPV IN7RP ERROR 1** 

XIO OISN SENSE DSW AND SAVE 
STO Oil 

*#********»♦*♦♦♦♦♦♦♦♦*♦♦♦♦******************* 

BSI L LOGER GO LOG ERROR 6 SRC 
DC /E001 

***♦»*♦***♦******»*»*♦*♦♦♦***♦***********♦*** 

* 

» **CK IF READ IN AREA** 

• **WAS DISTURBED ** 



* 
D10B 


LD 


L 


DTBL+2 


CHECK IF PROTECTED 




EOR 


L 


TERM 


♦AREA IS FFFF 




BSC 




♦- 


SKIP IF NOT FFFF 




MDX 




DIOC 




* 






♦•PROTECTED AREA READ IN 


* 






*• 


ERROR 


* 


LD 


L 


TERM 


SET EXPECTED AND 




STO 


L 


MESAG+6 


♦ACTUAL PROTECTED 




LO 


I 


DTBL+2 


•AREA DATA IN 




STO 


I 


MESAG+7 


♦MESSAGE 



*•**»*****♦*♦♦♦♦♦♦**♦•**•***••**•*****♦♦*♦♦•♦ 
BSI L LOGER PRINT ERROR D 
OC /EOOD MESSAGE ID 

****•***•*♦*♦♦♦♦♦♦♦****•**•**•*♦♦♦♦♦♦♦♦♦♦♦*** 



SRC 



OIOC 



DC 


/2C40 


OC 


DTBL+2 


SLA 


16 


STO 


RTNSW 



CLEAR STG PROT BIT 
CLEAR ROUTINE SWITCH 



#*♦**♦***♦♦♦♦♦***♦♦♦***********♦♦♦♦»♦***•*•** 

8S1 L RLDV GO RELEASE OEVICE SRC 
BSI L RLPC OVERLAP RELEASE SRC 
**********«♦♦♦♦♦♦♦♦♦*••**•***************•*•• 
* 

CHECK IF TERMINATE 
•PROGRAM REQUESTED 
CHECK IF LOOP RTN 3 



GO TO ROUTINE 4 

•*SPV INTERRUPT RETURN** 

CHECK FOR PROPER 
*OSW BIT OK SPV 
• INTERRUPT 



097B 


01 


C4000802 




LO 


L SWO 


0970 


00 


4C84012E 




BSC 


I ENOtE 


097F 


01 


C4000803 




LO 


L SHI 


0981 





E025 




AND 


THREE 


0982 





F024 




EOR 


THREE 


0983 





4818 




BSC 


♦- 


0984 





70AE 




MDX 


RT03 


0985 





7030 


• 


MOX 


RT04 


0986 





C024 


• 
RT3IN 


LD 


OH 


0987 





1801 




SRA 


1 


0988 





1001 




SLA 


1 


0969 





FOOC 




EOR 


SPVCK 


098A 





4818 




BSC 


♦- 


OATE 




28FEB66 


01JUL66 




EC NO. 


415120 


415178 





SKIP 



WRCNG DSW 



PART NO. 2196409 
PAGE * 



1118*8*8 

82404060 

82404070 

82404080 

82404090 

82404100 

82404110 

82404120 

82404130 

82404140 

82404150 

82404160 

82404170 

82404180 

82*04190 

82404200 

82404210 

82404220 

82404230 

82404240 

82404250 

82404260 

82404270 

82404280 

82404290 

82404300 

82404310 

B2404320 

82404330 

82404340 

82404350 

82404360 

82404370 

824043BC 

82404390 

82404400 

82404410 

62404420 

82404430 

82404440 

82404450 

82404460 

82404470 

82404480 

82404490 

82404500 

82404510 

82404520 

82404530 

62404540 

82404550 

82404560 

82404570 

82404580 

82404590 

82404600 

82404610 

82404620 

62404630 

62404640 

82404650 

82404660 

82404670 

82404660 

82404690 

■ 24847M 

■ 2404 71* 



PROG IB 
PAtE 



•824-0 

4 



IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 18D9 SVSTE* 
01 DC FUNCTION TEST 



PART NO. 
PACE 



219*401 



098B 





7003 


• 


MDX 


•♦3 




axnm 








* 




**MRONS BSK ». BP* INTRP** 


•2404740 








• 




•* 


ERROR • ** 


•2404750 








* 








82404760 








*•*•***•*****•***•*•*••**•*•••****••****••*** 


82404770 


09BC 


01 


44000CD0 




BSI L LOGER 


GO PRINT ERROR 8 SRC 


82404780 


098E 





E008 




OC 


/E008 


MESSAGE » 


•2404790 








•*****••••**••***«****•♦»♦**♦•**•«••***••**** 


82404800 








• 








82404810 


098F 





7002 


• 
• 


MOX 


0108 


GO CHECK tm IN AREA 


82404820 
82404830 
•2404*40 








• 




**LCOP ERROR RETBRN** 


82404850 








* 








•2404860 


0990 





0621 


RT3ER 


XIO 


BLAST 


RESET DEVICE 


•2404870 


0991 





2C40 




OC 


/2C40 


CLEAR STORAGE PROTCT 


82404680 


0992 


1 


ODOA 




OC 


DTBL+2 


••IT 


82404890 


0993 





70A6 


* 


MOX 


DI09 


GO READ 


82404900 
82404910 


0994 




0000 




BSS E 9 




82404920 


0994 





0003 


RID03 


OC 


3 


RID 


82404930 


0995 


1 


0933 




DC 


RT03 


RAD 


82404940 


0996 





4000 


SPVCK 

* 


DC 


/4000 


SPV CHECK MDRO 


62404950 
82404960 








• 




»»»»»»♦**»*♦»***• 


82404970 








• 




PROGRAM CONST AMIS 


82404960 








* 




♦♦♦♦♦♦♦♦»»***«**■ 


82404990 








• 








82405000 


0997 





0000 


OIREG 


OC 





GRP TO USE INDICATOR 


82405010 


0998 





0000 


MODE 


OC 





MODE INDICATOR 


62405020 


0999 





0000 


ROSW 


OC 





1ST READ INDICATOR 


82405030 


099 A 





0000 


CHAIN 


OC 





CHAINING INDICATOR 


82405040 


099B 





0000 


CHNSW 


OC 





CHAIN SWITCH 


82405050 


099C 





0000 


EXTS 


DC 





EXTERNAL S1MC INOCTR 


82405060 


0990 





0000 


SAIND 


DC 





SINGLE ADDRESS INDTR 


82405070 


099E 





0000 


WC1 


DC 





CHAIN WORD COUNT 1 


82405080 


099F 





0000 


WC2 


DC 





CHAIN WORD COUNT 2 


82405090 


09A0 


1 


004A 


CARCK 


DC 


OTBL+66 


CAR CK ADDRESS 


824C5100 


09A1 





4000 


SC01 


DC 


/4000 


SCAN CONTROL BITS 01 


82405110 


09A2 





cooo 


SC11 


OC 


/COOO 


SCAN CONTROL BITS 11 


82405120 


09A3 





0040 


DISRT 


OC 


/0040 


01 GRP STARTING AORS 


82405130 


09A4 





0000 


RTNSW 


DC 





ROUTINE SWITCH 


82405140 


09A5 





0001 


ONE 


DC 


1 


CONSTANT 1 


82405150 


09A6 





0002 


TWO 


DC 


2 


CONSTANT 2 


82405160 


09A7 





0003 


THREE 


DC 


3 


CONSTANT 9 


82405170 


09A8 





0701 


SENSE 


DC 


/0701 


SENSE/RESET COMMAND 


82405160 


09A9 





FEOO 


I RE AD 


DC 


/FEOO 


INITIALIZE READ CMND 


82405190 


09AA 





0220 


CNTR'. 


OC 


/0220 


BUILD CNTRL CMND K 


82405200 


09AB 





0000 


Oil 


DC 





OSW HOLD 


82405210 


09AC 





0000 


012 


DC 





DSW RESET CK HOLD 


82405220 


09AD 





0000 


ROIO 


DC 





READ CMND LESS MODE 


82405230 


09AE 




0000 




BSS 


E 




82405240 


09AE 





0000 


OISN 


DC 





SENSE IOCC 


8240*250 


09AF 





0000 




DC 







82405260 


09B0 


1 


0008 


DIRO 


DC 


DTBL 


READ IOCC 


82405270 


09B1 





0000 




OC 







62405280 


09S2 





0000 


BLAST 


OC 





•LAST CHANNEL IOCC 


82405290 


09B3 





0000 




DC 







82405300 


09B4 





0004 


RID04 


DC 


4 


RIB 


62405310 


0985 


1 


09B6 


* 


OC 


RT04 


RAB 


82405320 
82405330 








• 




*»»♦»»♦»»»**•*♦«■■ t 


82405340 








• 




RTN 


4 01 DATA CHECK 


82405350 








• 




»♦»»»»»»»«*♦»»» » mmm 


82405360 








• 








82405370 








• 




♦♦ROUTINE 4 WILL LOOP ** 


82405380 








• 




♦♦CONTINOUSLY UNTIL THE •• 


82405390 


DATE 




28FEB66 


01JUL44 






PROG 10 0824-0 


EC NO. 


415120 


415178 
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F 
N 



$ 



ISM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 
01 DC FUNCTION TEST 







• 
• 




•♦PROGRAM IS DESELECTED *• 


0166 


C8F0 


RT04 


LOO 


RID04 


ROUTINE NUMBER AND 


09B7 01 


0C000800 




STO 


L RIO 


•ADDRESS TO PST 


0984 


COEB 




LO 


ONE 


PRESET MODE SWITCH 


09BA 


OODO 




STO 


MODE 


•TO SEQUENTIAL MODE 


0966 01 


C4000804 




LO 


L SH2 


GET FUNCTION 2 


0960 


4810 




BSC 


- 


SKIP IF MODE REQUEST 


09BE 


7034 





MOX 


DI03 


BRANCH RUN SEOUENTL 


09BF 


1884 


0101 


SRT 


4 


SAVE MOOE * CHAIN 


09C0 


1010 




SLA 


16 


CLEAR A 


09C1 


1081 




SLT 


1 


SET CHAIN INDICATOR 


09C2 


0007 




STO 


CHAIN 


* - TO BIT 12 


09C3 


1010 




SLA 


16 


CLEAR A 


09C4 


1081 




SLT 


1 


SET EXTERNAL SYNC 


09C5 


D006 




STO 


EXTS 


•INO • TO BIT 13 


09C6 


1082 




SLT 


2 


SET MODE INDICATOR 


09C7 


0000 




STO 


MODE 


• « TO BITS 13 14 15 


09C8 


CODC 




LO 


ONE 


SET 1ST READ INOICTR 


09C9 


OOCF 


* 


STO 


ROSH 




09CA 


COCO 




LO 


MODE 


CHECK IF MOOE IS 


09C8 


EOOA 




AND 


TWO 


•SINGLE ADORESS 


09CC 


4808 




BSC 


♦ 


SKIP IF SINGLE AOORS 


09C0 


7025 


* 


MOX 


0103 


BRANCH IF NOT SA 






• 
* 




** 


PREPARE FOR SA MOOE •• 


09CE 01 


74000990 


MOX 


L SAINO, 


SKIP IF SA INO OFF 


0900 


7004 




MOX 


0102 


BRANCH ON SA IND ON 


0901 


C003 




LO 


ONfc 




0902 


OOCA 




STO 


SAINO 


SET SA MOOE INOICATR 


0903 


633F 




LOX 


3 63 


SET DI GRP TO USE 


0904 


6BC2 


• 
• 


STX 


3 OIREG 


•INDICATOR TO 003F 








»* 


CHECK IF OPERATOR *• 






* 




•* 


SPECIFIED A 01 GROUP •• 


0905 01 


C4000804 


0102 


LD 


L SW2 


GET FUNCTION 2 


0907 


1001 




SLA 


1 


•ENTRY SAVE 01 GRP 


0908 


1809 




SRA 


9 


•SELECT BITS 


0909 


4808 




BSC 


♦ 


SKIP IF GRP REQUESTD 


090A 


7002 




MOX 


•♦2 


BRANCH NO REQUEST 


090B 


DOBB 




STO 


OIREG 


SAVE GRP REQUEST 


090C 


7002 




MOX 


•♦2 




09D0 01 


74010997 


• 
• 


l-'DX 


L OIREG, 1 


ADO 1 TO 01 GRP INO 








•♦CHECK IF NEXT GRP TO *• 






• 
* 




••BE RUN IS WITHIN LINIT*» 


090F 


C0C3 


LO 


01 SRT 


CHECK IF GRP REQUEST 


09E0 


9086 




S 


OIREG 


•IS LESS THAN ADDRS 


09E1 


4808 




BSC 


♦ 


•0040 SKIP IF REQST 


09E2 


7001 




MOX 


•♦1 


•IS TOO SMALL 


09E3 


7007 




MOX 


•♦7 




09E4 


COBE 




LO 


01 SRT 


GET 1ST ADDRESS 0040 


09E5 01 


84000813 




A 


L E0IT*1 


•ADO TOTAL NUMBER OF 


09E7 


9OB0 




S 


ONE 


•GRPS MINUS ONE AND 


09E8 


90AE 




S 


OIREG 


•CHECK AGAINST OIREG 


09E9 


4810 




BSC 


- 


SKIP IF SEL TOO BIG 


09EA 


7002 




MOX 


•♦2 




09EB 


C0B7 




LO 


DISRT 


RESET GRP ACORESS TO 


09EC 


OOAA 




STO 


OIREG 


•40 IF SELCT TOO BIG 


09E0 


1010 




SLA 


16 




•4EE 01 


D4000804 




STO 


L SW2 


CLEAR FUNCTION 2 ETY 



•ATE 
EC NO. 



2SFE866 

415120 



***•••••*•••••••••*•*••••••**•••••••*•••••*•• 



01JU166 
415178 



PART NO. 
PAGE 



82405420 
82405430 
82405440 
82405450 
82405460 
62405470 
82405480 
82405490 
82405500 
82405510 
82405520 
82405530 
82405540 
82405550 
82405560 
82405570 
82405580 
82405590 
82405600 
82405610 
82405620 
82405630 
82405640 
8240S6S0 
82405660 
82405670 
82405680 
82405690 
82405700 
82405710 
82405720 
82405730 
82405740 
82405750 
82405760 
82405770 
82404780 
82405790 
82405800 
82405810 
82405820 
82405830 
82405840 
82405850 
82405860 
82405878 
82405880 
82405890 
8240S9M 
82405910 
82405920 
82405938 
82405948 
82405950 
82405940 
82405978 
82405981 
82405998 
82406008 
8240*0 10 
82406020 
82406038 
82404040 
82404098 
82408068 
82486670 



PRtG IC 
PACK 



2196403 

5 



0624-9 

S 



IBM HAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1600 SYSTEM 
DI DC FUNCTION TEST 



09F0 01 44000B59 
09F2 7006 



»H*SE**K*S«K»*ftKS SRC 



09F3 1010 


• 
DI03 


SLA 




16 


09F4 D0A8 




STO 




SAINO 


09F5 01 04000804 




STO 


L 


SW2 



09F7 01 44000 A06 



09F9 01 44000AA9 



09FB 
09FC 
O9F0 
09FE 
09FF 



08B2 
DOAE 
100F 
4810 
700A 



MOX 0104 GO READ 

••REQUEST RANDOM OR SEQ *• 

CLEAR SINGLE ADDRESS 
•INDICATOR AND FCN 
*2 ENTRY 

* 

********************************************* 

BSI L SRSET SETUP RNDM OR SEQ SRC 

••••***•**«******••**••*•**••**••**•********* 

* 

• **PREPARE TO REAO DI •• 

• 
ft*******************************************, 

DI04 BSI L RQDV REQUEST DEVICE SRC 

***♦****•*»■•»**«*♦•**♦»************ ********** 

* 

SENSE OSW AND SAVE 



XIO 
STO 
SLA 
BSC 
MOX 



OISN 

DU 

15 

0105 



CHECK IF BUSY 
BRANCH NOT BUSY 



** 01 BUSY ERROR 4 •• 



OAOO 01 44000COO 
0A02 E004 

0A03 01 OC0009B2 

0A05 01 44000AB9 
0A07 01 44000AC4 



• 
*••••**•••**•**•••••**•*••••***•*•**••*•****• 

BSI L LOGER PRINT ERROR 4 SRC 

DC /E004 MESSAGE ID 

♦•***••*•*••••••**••••••*•**•****•****•****** 

XIO L BLAST 
•••••••*••*••**••••«**•*•**••***•*•*•*•***•** 

BSI L RLDV RELEASE DEVICE SRC 

BSI L RLPC RELEASE PROG CONTROL SRC 
••••*••••••*•••••••*•••••**•••*•**••••***•**• 

• 



0A09 





70EF 


• 
• 
* 


MDX 




0104 

•• 


TRY AGAIN 
01 NOT BUSY READ •• 


OAOA 





C091 


DI05 


LO 




EXTS 


GET EXTERNAL SYNC 


OAOB 





4804 




BSC 




E 


•INDICATOR SE" 


OAOC 





7002 




MDX 




•♦2 


•INTERRUPT DELAY CTR 


OAOD 





6101 




LDX 


1 


1 


•ACCORDING TO EXTRNL 


OAOE 





7002 




MDX 




•♦2 


•SYNC BIT 


OAOF 


00 


6?007FFF 




LOX 


LI 


/7FFF 




0A11 





6200 




LOX 


2 





CLEAR EXT SYNC CNTR 


0A12 


01 


C4000998 




LD 


L 


MOOE 


GET MODE AND POSITON 


0A14 





1003 




SLA 




5 




0A15 





E897 




OR 




ROIO 


ADO MODE TO RO CNNO 


0A16 





009A 





STO 




OIRD+1 


•ANO SET IN IOCC 


0A17 





0898 




XIO 




DIRO 


INITIALIZE READ 61 



0A18 01 44000AC4 



••»•***••*•••*••••*•****••*•**•**•**••••••**• 

0106 BSI L RLPC OVERLAP RELEASE 
•**•••***•••••••••••••••••••••••••**•****•••• 



CHECK IF TERMINATE 
•PROGRAM REQUESTEO 
STEP INTRPT COUNTER 
COUNTER NOT ZERO 



SRC 



0A1A 01 


C 4000802 




LD 


«. SWO 


0A1C 00 


4CB4012E 




BSC 


I ENOt 


0A1E 


71FF 




MDX 


I -1 


0A1F 


70F6 


• 
• 


MDX 


0106 



•• COUNTER ZERO CHECK RO** 



DATE 
EC NO. 



2BFEB66 
415120 



01JUL6* 
415178 



PART NO. 219*401 
PACE 5* 



•240*100 

82406110 

•2406120 

•240*130 

•2406140 

•240*150 

•240*1*0 

•240*170 

82406180 

•240*190 

•240*200 

82406210 

•2406220 

8240*230 

82406240 

82406250 

82406260 

82406270 

82406280 

82406290 

82M>6300 

82406310 

82406320 

82406330 

82406340 

82406350 

82406360 

82406370 

82406380 

82406390 

82406400 

82406410 

82406420 

82406430 

82406440 

82406450 

82406460 

82406470 

82406480 

82406490 

62406500 

82406510 

82406520 

62406530 

82406540 

62406550 

82406560 

82406570 

82406580 

82406590 

82406600 

62404610 

62406620 

82406630 

62406*40 

82406650 

8240*6*0 

82406670 

82404680 

82406690 

8240*7*0 

8240*710 

82406720 

82406730 

62404740 

8240*75* 



PROG 10 
PAGE 



•624-6 
9A 



IBM MAINTENANCF DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 
01 DC FUNCTION TEST 



0A20 01 
0A22 01 
0A24 01 
0A26 
0A27 
0A28 00 
0A2A 
0A2B 01 
0A2C 01 
0A2F 
0A30 
0A31 
0A32 
0A33 
0A34 
0A35 
0A37 
0A38 



84000998 
400CCC8 
C400099C 
4808 
702C 

65007FFF 
7201 

0C0009AE 
D40009AB 
1002 
4808 
7018 
1C00 
4810 
7015 

C400099C 
4808 
7015 



0A39 01 6E000CC9 



0A3B 01 44000CA2 
0A30 0002 
0A3E AC01 



0A3F 01 C4000804 
0A41 4810 
0A42 700S 

0A43 01 0C0009B2 



0A45 4073 



0A46 01 C4000804 
0A48 01 4C0C09BF 



0A4A 01 440C0C00 
0A4C E001 



OA40 7015 



0A4E 01 440C0CD0 
0A50 ECOC 



0A51 01 0C0009B2 
0A53 700F 



0A54 01 7400099A 
0A56 7004 



s-?o 



MOnF 
MESXG+3 



SET MODE IN MESSAGE 



ro 

LO L EXTS 

BSC ♦ 

N0X 0107 

LOX LI /7FFF 

MOX 2 1 

0I06A XIO L DISN 

STO I Oil 

SLA 2 

BSC * 

MOX LOSTI 

SLA 13 

BSC 

MOX LOSTI 

LO L EXTS 

BSC ♦ 

MOX 0I06B 
• 

* 

STX L2 MESAG*4 

* 
a**********.*********************************** 

BSI L LOGOT PRINT MESSAGE A001 SRC 

DC 2 WCRO COUNT 

OC /AOOi MESSAGE ID 
*#•••**•••••••••****•••••••*••**•••••••••*••• 

LD L SW2 CHECK IF MODE CHANGE 

BSC - »REQUEST SKIP ON CHG 

MOX DI06 NO CHANGE CONTINUE 



SKIP IF EXTERNAL SYN 

RELOAD OELAY COUNTER 
STEP PASS COUNTER 
SENSE OSN 
SAVE DSU 

SKIP IF NOT EOT 



SKIP IF DI BUSY 



SKIP IF EXTERNAL SYN 



••EXT SYNC MODE NO INTRP** 
••NOT EOT AND DEVICE BSY»* 

PASS CTR TO MESSAGE 



XIO L BLAST 



RESET DI 



DATE 
EC NO. 



28FEB66 
415120 



**»********»******♦*»***»***»»***********»*»* 

BSI RLDV GO RELEASE DEVICE SRC 
*»*««*»*»»*»»***»»*»»»****»*»*******»»***♦»** 

LO L SU2 

BSC L 0101 GO SET UP NEW MD 

* **LOST INTERRUPT ERROR 1** 

*«***•»•!!•*•**»***»***»»*»•**••********»»***** 
LOSTI BSI L LOGER GO PRINT ERROR 1 SRC 

DC /E001 MESSAGE ID 
****»»*»•»*********•**»****•♦**********•***** 
• 

MDX DI08 GO CHECK DATA 

* **COUNTER ZERO CHAINING** 

* **N0 1YTRP.N0T EOT BUSY** 

* ** ERROR C ** 

*»»*»♦*»•*»♦»*•»*****••***»***•»***♦********* 
DI06B BSI L LOGER »RINT ERROR C SRC 

DC /EOOC iESSAGE ID 
♦•♦♦♦•••••♦•••••••••••••a******************** 

• 

0I06C XIO 

MDX 
* 

0107 MOX 
MOX 



01JJL66 
415178 



BLAST RESET 01 
0108 60 CHECK DATA 

*«N0T EXT SYNC CK IF CHN** 



CHAIN, 
0I06A 



SKIP IF NOT CHNING 
CHNG CHECK CONDITON 



PART NO. 2196403 
PAGE * 



82406760 

82406770 

82406780 

82406790 

82406800 

82406810 

82406820 

82406830 

82406840 

82406850 

82406860 

82406670 

82406880 

82406890 

82406900 

82406910 

82406920 

82406930 

82406940 

82406950 

82406960 

82406970 

82406980 

82406990 

82407000 

82407010 

82407020 

82407030 

82407040 

82407050 

82407060 

82407070 

82407080 

82407090 

82407100 

82407110 

82407120 

82407130 

82407140 

82407150 

82407160 

82407170 

82407180 

82407190 

82407200 

82407210 

82407220 

82407230 

62407240 

82407250 

82407260 

82407270 

82407280 

82407290 

82407300 

8240*310 

82407320 

82407330 

82407340 

82407350 

82407360 

82407370 

82407380 

82407390 

82407400 

82407410 

82407420 

82407430 



PROG 10 
PAGE 



0824-0 

* 



IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 
DI OC FUNCTION TEST 



PART NO. 
PACE 



219*403 









• 
* 




••NOT CHAIN INK CK BUSY •* 




nww 










• 








82407460 




0A57 


01 


OC0009AE 




XIO L 


01 SN 




82407470 




0A59 


01 


D40009AB 




STO L 


Oil SAVE OSN 




82407480 




0A5B 





100F 




SLA 


IS 




82407490 




0A5C 





4810 




BSC 


SKIP IF BUSY 




82407500 




0A50 





7005 


* 
* 
* 
* 


MOX. 


0108 GO CHECK OAT A 

•♦INHIBIT INTRP SET CTR*» 
••ZERO DEVICE BUSY ERR 7** 




82407510 
82407520 
82407530 
82407540 
82407550 










ft******************************************** 




82407560 




0A5E 


01 


44000COO 




BSI L 


LOGER GO PRINT ERROR 7 


SRC 


82407570 




0A60 





E007 




DC 


/E007 MESSAGE 10 




82407560 










******»*«-.«*-»***»*#**»»***•****•****♦*•»****♦ 




82407590 










• 








82407600 




0A61 


01 


OC0009B2 


• 
• 
• 


XIO L 


BLAST RESET 01 

••READ COMPLT CHECK DATA** 




82407610 
824C7620 
62407630 
82407640 










•**•*•******•**•••****•***•••****•**•**•**•*• 




82407650 




0A63 


o: 


44000AB9 


DIOB 


BSI L 


RLDV RELEASE DEVICE 


SRC 


62407660 




0A65 





405E 




BSI 


RLPC OVERLAP RELEASE 


SRC 


62407670 










*•**•**•**••••••••*•*•••••*••••••••••***••••* 




82407680 










• 








82407690 




0A66 


01 


C4000998 




LD L 


MODE CHECK MODE IF SINGL 




62407700 




0A68 





1801 




SRA 


1 *ADDRESS GO TO SACMP 




82407710 




0A69 





4604 




BSC 


E *IF NOT 60 TO SRCMP 




82407720 




0A6A 





7001 




MDX 


•♦I 




82407730 




0A6B 





7003 


• 


MOX 


•♦3 




82407740 
82407750 










ft********************************--*********** 




82407760 




0A6C 


01 


44000C21 




BSI L 


SACMP CHECK SINGLE ADDRESS 


SRC 


82407770 










•••••••••••••••••••••••••••••••A************* 




82407780 










* 








82407790 




0A6E 





7002 


• 


MOX 


•♦2 




82407600 
82407810 


"*" 








****«**••***••*•••••••••••#•••••••*••**•*••** 




82407820 




0A6F 


01 


44000B80 




BSI L 


SRCMP CHECK RANDOM OR SEQ 


SRC 


82407830 










•••••••••••••••••••••••••••ft***************** 




82407840 










* 








82407850 


1 








• 




••PASS COMPLETE CHECK ** 




82407860 










• 




**IF MODE CHANGE REOST ** 




82407870 










• 








82407880 


1 


0A71 


01 


C 4000802 




LD L 


SWO CHECK IF TERMINATE 




82407890 




0A73 


00 


4C84012E 




BSC I 


ENO,E ^PROGRAM REQUESTED 




82407900 




0A75 


01 


C4000804 




LO L 


SW2 GET FUNCTION 2 




82407910 


1 


0A77 


01 


4C28098F 




BSC L 


DI01,+Z BRANCH IF REQUEST 




82407920 




0A79 


01 


4C0009F9 


• 
• 
• 
• 
* 


BSC L 


DI04 RERUN PRESENT SETUP 

•••••••ft****************** 

DI INTERRUPT CHECK ROUTINE 
•••••••••••••••••••••A**** 




82407930 
82407940 
82407950 
82407960 
82407970 
82407980 


1 
1 


0A7B 


01 


C40009AC 


DIIRT 


LD L 


DI2 CHECK IF DSU RESET 




82407990 




0A7D 





1601 




SRA 


1 




62408000 


1 


0A7E 





4816 




BSC 


♦- SKIP IF DSU NOT RSET 




82408010 




0A7F 





7005 


• 
* 
• 


MDX 


0IIR1 

••NO OSN RESET ERROR 5 *• 




62408020 
82408030 
82408040 
82406050 


1 








••••••••••«•• 


•••••••••••••••••••••••••••a**** 




82406060 


1 


0A80 


01 


44000CD0 




BSI L 


LOGER PRINT ERROR 05 


SRC 


82406070 




0A82 





EOOS 




DC 


/E005 MESSAGE ID 




82408080 










****••••*•*•••••••*••••••••••*••••••*•**•••** 




62406090 


1 








• 








62408100 










**•«*••••••••••••••••*•••••*•••••••**••••***• 




62406110 


s 


DATE 




28FEB66 


01JUL66 






PROG 10 0824-0 1 


EC NO. 


415120 


415178 
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J 
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N 



IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 
01 OC FUNCTION TEST 



0A83 Ot 44000AC4 



»8H 



0A8S 01 
0A87 
0A88 
0A89 
0A8A 



C40009AB 

001F 

E01F 

4818 

7008 



****** 

0IIR1 LD 

STO 
AND 
BSC 
MOX 



►****8*?******. 



SE»i«,g»Eg8S 



******** 



SRC 



DI1 

HOLD 
OIICN 
♦- 
0IIR2 



CK FOR PARITY ERROR 
SAVE PRESENT DSU 
CHECK IF ERROR INTRP 
SKIP ON ERROR 



**PRTY SPV OR CMND REJCT** 
** ERROR 3 ** 



0A8B 01 44000COO 
0A8D E003 



0A8E C018 
0A8F 1002 
0A90 01 4C100A18 
0A92 7009 



0A93 C013 

0A94 1002 

0A95 4828 

0A96 7005 



0A97 01 44000CD0 
0A99 E009 



0A9A 01 4C0O0A18 



********************************************* 
BSI L LOGER PRINT ERROR 3 
DC /E003 MESSAGE ID 

********************************************* 



SRC 



LD 
SLA 

BSC 
MDX 

• 

• 

DIIR2 LD 
SLA 

BSC 

MDX 

• 
* 



HOLD 
2 

0106,- 
DIIR3 



CHECK IF OP COMPLETE 

♦HAS ON 

EXIT ON NOT EOT SX 



♦♦CHECK FOR OP COMPLETE** 



HOLD 
2 

♦ Z 
DIIR3 



SKIP IF NOT EOT 



**INTRP ON BITS 
** ERROR 9 



-15** 



********************************************* 

BSI L LOGER PRINT ERROR 9 SRC 
DC /E009 MESSAGE ID 

********************************************* 



BSC 



DI06 



EXIT NOT EOT 



SX 



0A9C 01 
0A9E 
0A9F 01 
0AA1 



7400099A 
7006 

7400099C 
7003 



CHAIN, 
DIIR4 
EXTS.O 
DIIR4 



SKIP IF NOT CHAINING 
BRANCH IF CHAINING 
SKIP IF NOT EXT SYNC 
BRANCH IF EXT SYNC 



**INIHIBIT INTERRUPT BIT ** 
**SET EOT INTERPT RCVD ** 
** ERROR 2 ** 



0AA2 01 44000CD0 
0AA4 E002 



0AA5 01 4C000A63 



0AA7 
0AA8 


OOOO 
OOOO 


HOLD 
OIICN 

• 
• 

* 


DC 
DC 



/DOO 


0AA9 
OAAA 01 
OAAC 
OAAO 


OOOO 

C 40008 12 

4828 

7006 


• 
• 

RQDV 


DC 
LD 
BSC 

MDX 



L EDIT 
*l 
• ♦6 



DIIR3 MOX 

MDX 
MDX 
MDX 

* 
• 
********************************************* 

BSI L LOGER PRINT ERROR 2 SRC 

OC /E002 MESSAGE ID 
********************************************* 
* 
DIIR4 BSC L DI08 GO CHECK DATA SX 

PRESENT OSM 



********************** 

REQUEST OEVICE ROUTINE 

********************** 



REQUEST DEVICE IF IT 
♦IS NOT PRESENTLY 
♦ASSIGNED TO PROGRAM 



********************************************* 



SE 



DATE 
EC NO. 



28FEB66 
415120 



01JUI66 
415178 



PART NO. 2196403 
PAGE 7 



8**88118 

82408140 

82408150 

82408160 

82408170 

82408180 

B2408190 

82408200 

8240B210 

82408220 

82408230 

82408240 

82408250 

82408260 

82408270 

82408280 

82408290 

82408300 

82408310 

82408320 

82408330 

82408340 

82408350 

82408360 

82408370 

82408380 

82408390 

82408400 

82408410 

82408420 

82408430 

82408440 

82408450 

82408460 

82408470 

82408480 

82408490 

82408500 

82408510 

82408520 

82408530 

82408540 

82408550 

82408560 

82408570 

82408580 

82408590 

82408600 

82408610 

82408620 

82408630 

82408640 

82408650 

82408660 

82408670 

82408680 

824086*0 

82408700 

82408710 

82408720 

82408730 

82408740 

82408750 

82409760 

82408770 

82408780 

82408790 



PROG ID 
PAGE 



0824-0 

7 



IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 
DI DC FUNCTION TEST 



C iA ^ 00 44800^31 
OABO 1 0A86 
OABl 1 0812 
0AB2 1 0814 
0AB3 1 080B 



0AB4 01 4C800AA9 
0AB6 01 44000AC4 
0AB8 70F1 



0AB9 OOOO 

OABA 01 C4000812 

0A8C G 4810 

OABD 7004 



OABE 00 44800132 
OACO 1 0812 
0AC1 1 0808 



0AC2 01 4C800AB9 



REQUEST DEVICE 
DEVTCE P)SY RETURN 
DEFINE tEVICE ADDRS 
OEVICE ASSIGNMENT AO 



BSl I REODV REQUEST OE¥lC(= mM. 

DC DVBSY 

DC EDIT 

DC DIINT 

OC TERM 
•*••*•••*»*•* ******************************** 
• 

BSC I RQDV BRANCH IF DEVICE SEL SX 

********************************************* 

DVBSY BSI L RLPC DEVICE BUSY REL PROG SRC 

************* ******************************** 



* 
* 
RLDV 



MDX 



OC 
LD 
BSC 
MOX 



RQDV* I 



RETRY OEVICE REQUEST 



********************** 

RELEASE OEVICE ROUTINE 

*• -»**•*•****••******** 




EDIT 

**4 



RELEASE DEVICE IF If 
•IS PRESENTLY HELD 
BY THE DI PROGRAM 



SE 



********************************************* 

BSI I RELDV RELEASE DEVICE MRC 
DC EDIT DEFINE DEVICE AODRS 
DC TERM 

********************************************* 

* 

BSC I RLDV RETURN TO USER SX 



0AC4 
0AC5 
0AC6 
0AC7 
0AC8 01 



OOOO 
6909 
6A0A 
6 BOB 
67000ACE 



* 

* 
* 
RLPC 



************************** 

RELEASE PRGM CNTRL ROUTINE 

************************** 



OACA 01 6F00080A 



OACC 00 4C80012D 



DC 

STX 

STX 

STX 

LDX 

STX 





1 RLl*l 

2 RL1+3 

3 RL1+5 
L3 RL1 

L3 MLSCF+1 



SAVE INDEX REGS 



SET MLSCF RETURN 



SE 



******************* ************************** 

BSC I START EXIT TO MONITOR 
•***•***•** ********************************** 

* 



MRC 



OACE 00 


65000000 


RL1 


LOX 


LI 





RESTORE INOEX REG 1 


OADO 00 


66000000 




LDX 


L2 





RESTORE INOEX REG 2 


0AD2 00 


67000000 




LOX 


L3 





RESTORE INDEX REG 3 


0A04 01 


4C800AC4 


* 


BSC 


I 


RLPC 


RETURN TO USER 






* 






********************* 






• 






RANOOM AND SEQUFNTIAL 






* 






SETUP 


ROUTINE 






• 
* 






********************* 


0AD6 


OOOO 


SRSET 


DC 







ROUTINE ENTRY 


0AD7 01 


7400099A 




MDX 


L 


CHAIN, 


SET UP DATA TABLE 


0AD9 


7010 




MDX 




SR2 


•ACCORDING TO CHAIN 


OAOA 01 


65800813 




LDX 


U 


EDIT+1 


SET INOEX « NMBR GRP 


OADC 01 


C 4000998 




LD 


L 


MOOE 


GET MODE INDICATOR 


OADE 


4804 




BSC 




E 


♦IF RANOOM SET MC « 


OAOF 


7007 




MOX 




SRI 


♦GRPS X 2 IF SEOTL 


OAEO 


10A0 




SLT 




32 


• SET MC » GRPS ♦ I 


0AE1 01 


C4000813 




LD 


L 


EDIT*1 


MULTIPLY GRPS X 2 


0AE3 01 


A40009A6 




M 


L 


TWO 




0AE5 


1090 




SLT 




16 




OATE 


2BFEB66 


01JUL66 








EC NO. 


415120 


415178 









SX 



SE 



PART NO. 2196403 
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82408800 

82408810 

02408820 

•2408830 

82408840 

•2408850 

82408860 

•2408870 

82408880 

82408890 

82400900 

82408910 

82408920 

82408930 

82408940 

82408950 

82408960 

82408970 

82408980 

82408990 

82409000 

82409010 

82409020 

82409030 

82409040 

82409050 

82409060 

82409070 

82409080 

82409090 

82409100 

82409110 

82409120 

B2409130 

82409140 

82409150 

82409160 

82409170 

82409180 

82409190 

82409200 

82409210 

82409220 

82409230 

82409240 

824092 SO 

82409260 

82409270 

82409280 

82409290 

82409300 

82409310 

82409320 

82409330 

82409340 

82409350 

82409360 

82409370 

82409380 

82409390 

82*09400 

82409410 

82409420 

82409430 

82409440 

82409450 

82409460 

82409470 



PROG ID 
PACE 



0824-0 
7» 



F 
N 






IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SVSTEN 
DI OC FUNCTION TEST 



FART NO. 219*409 
FACE • 



0*E» o TOO* 




MDX 




♦♦4 




82409480 


OAET 01 C4000813 


SRI 


to 


L 


EOIT+1 


ADD ONE TO NMBR GRPS 


82409490 


0AE9 01 840009A5 




A 


L 


ONE 




82409500 


OAEB 01 04000008 


• 


STO 


L 


DT8L 




82409510 
82409520 


OAEO 01 7400099C 




MDX 


L 


EXTS.O 


IF EXT SYNC IND ON 


82409530 


OAEF 7003 




MDX 




•♦3 


• SET SC «00 IF OFF 


82409540 


OAFO 01 C40009A1 




LO 


L 


SC01 


• SET SC »01 


82409550 


0AF2 7001 




MDX 




•♦1 




82409560 


OAFS 1010 




SLA 




16 


ADD SCAN CONTROL 


82409570 


0AF4 01 EC000008 




OR 


L 


DTBL 


•TO WORD COUNT 


82409580 


0AF6 7019 


• 


MDX 




SR4 




82409590 

82409600 




• 






••SETUP WITH CHAINING ** 


82409610 




* 










82409620 


0AF7 01 6580099E 


SR2 


LOX 


11 


HC1 


SET IX • CHAIN WC 1 


82409630 


0AF9 01 C4000998 




LO 


L 


MODE 


GET MODE INDICATOR 


82409640 


OAFB 4B04 




BSC 




E 


•IF RANDOM SET WC « 


82409650 


OAFC 7007 




MDX 




SR3 


•WC 1 X 2 IF SEQTL 


82409660 


OAFO 10A0 




SLT 




32 


• SET WC - WC 1 ♦ 1 


82409670 


OAFE 01 C400099E 




LO 


L 


WCl 


MULTIPLY CHAIN WC 1 


82409680 


OBOO 01 A40009A6 




N 


L 


TWO 


* X 2 


82409690 


0802 1090 




SLT 




16 




82409700 


0803 7004 




MDX 




•♦4 




82409710 


0804 01 C400099E 


SR3 


LO 


L 


MCI 


AOD ONE TO CHAINING 


82409720 


0906 01 840009A5 




A 


L 


ONE 


• WC 1 


82409730 


0808 01 04000 DO 8 




STO 


L 


OTBL 




82409740 


080A 01 7401099B 




MDX 


L 


CHNSW, 1 


SETUP CHAIN SW ON 


82409750 


OBOC 01 C40009A2 




LO 


L 


sen 


ADO SCAN CONTROL TO 


82409760 


OBOE 01 EC0O0D08 


• 


OR 


L 


OTBL 


•WORD COUNT 


82409770 
82409780 


OB 10 01 04000008 


SR4 


STO 


L 


DTBL 


SC ♦ WC TO DATA TABL 


82409790 


0B12 01 668009A3 




LOX 


12 


DISRT 


SET 01 GRP IN USE 


82409800 


0814 01 6E000997 




STX 


L2 


DIREG 


•IND TO ADDRESS 40 


82409810 


0B16 6201 




LOX 


2 


1 




82409820 


0B17 01 C400O997 


SR5 


LD 


L 


OIREG 


SET GRP ADDRESS IN 


82409830 


0319 01 06000D08 




STO 


L2 


OTBL 


•DATA TABLE 


82409840 


081B 01 C4000998 




LO 


L 


MODE 


IF RANDOM MODE 


82409850 


0B10 4804 




BSC 




E 


•CONTINUE SETUP IF 


82409860 


081 E 7005 




MDX 




•♦5 


• SEQTL MOOE BRANCH 


82409870 


081? 01 74010997 




MDX 


L 


OIREG, 1 




82409880 


0B21 7202 




MOX 


2 


2 




82409690 


0B22 71FF 




MDX 


1 


-1 




82409900 


0823 70F3 


• 


MOX 




SRS 




82409910 
82409920 


0B24 01 C4C0099B 




LD 


L 


CHNSW 


IF SETUP CHAIN SU 


82409930 


0826 4808 




BSC 




♦ 


•IS ON SET UP NXT TB 


82409940 


0B27 702F 


• 


MDX 




SR8 


EXIT SETUP 


82409950 
82409960 




* 






••SETO? CHAIN TftBlg**' 


62409970 




• 










62409960 


0828 1010 




SLA 




16 


CLEAR SETUP CHAIN SW 


82409990 


0B29 01 04000998 




STO 


L 


CHNSW 


SETUP CHAIN TABLE 


82410000 


0B28 01 C4000998 




LO 


L 


MODE 


•ACCORDING TO MODE 


62410010 


0820 4804 




BSC 




E 




82410020 


0826 700B 


• 


MOX 




SR6 


SEQUENTIAL MOOE BR 


62410010 
62410040 


0B2F 01 65B0099F 




LDX 


11 


NC2 


SET IX ■ CHAIN WC 1 


62410050 


0B31 10A0 
0B32 01 C400099F 




SLT 
LO 


L 


32 

WC2 


SET WORD COUNT • TO 


81410060 
62410070 


0B34 01 A40009A6 
0B36 1090 




M 
SLT 


L 


TWO 
16 


•CHAIN WC 2 X 2 


62410000 
624100*0 


0837 01 04000048 




STO 


L 


0TBL*67 




62410100 


0839 700C 


• 


MDX 




SR7 




82410110 
62410120 


0B3A 01 C430099F 


SR6 


LO 


L 


WC2 


SET WORD COUNT « TO 


62410130 


0B3C 01 840009A5 




A 


L 


ONE 


•CHAIN WC 1 ♦ 1 


•2410140 


0B3E 01 04000048 




STO 


L 


OTBL+67 




•24161)10 


OATE 28FEB66 

EC NO. 419120 


01JHL** 
419170 








PROO 10 0614-0 
PAOI • 



IBM MAINTENANCE DIAGNOSTIC PROGRAM FDR THE 1000 SYSTEH 
01 OC FUNCTION TEST 



FART NO. 219*403 
PAGE *A 



0840 Ol 


C 4000997 




LO 


L 


DIREG 


SET U* ST*"Tl"0 


•2410160 


0B42 01 


8400099E 




A 


L 


WCl 


•ADORES* FOR SEQUNTL 


•2410170 


0B44 01 


04000997 


• 


STO 


L 


OIREG 


•CHAIN .ABLE 2 


•24101*0 
•2410190 


0B46 01 


C4000D08 


SR7 


LO 


L 


OTBL 


DETERMINE HHERE TO 


•2410200 


0B4S 


1002 




SLA 




2 


•PLACE NEXT TABLE 


•2410210 


0849 


1802 




SRA 




2 


•ADDRESS IN) FIRST 


•2410220 


084A 01 


840009A5 




A 


L 


ONE 


•TABLE 


•2410230 


0B4C 


0001 




STO 




♦♦1 




•2410240 


0B4D 00 


66000000 




LDX 


Li 







•2410250 


084F 01 


C40009AO 




LD 


L 


CARCK 


SET NEXT TABLE ADORS 


824102*0 


0BS1 01 


D6000DOB 




STO 


L2 


OTBL 


•AND CAR CHECK AOORS 


•2410270 


0B53 01 


04000 04A 




STO 


L 


OTBL+66 


•INTO CHAIN TABLES 


•24102(0 


0855 


6244 




LDX 


2 


68 


SET INDEX FOR NEXT 


•2410290 


0B56 


70C0 


• 


MDX 




SRS 


•TABLE AND GO SETUP 


•2410300 
•2410310 


0B57 01 


4C800AD6 


SR8 

• 


BSC 


I 


SRSET 


EXIT SR SETUP ROUT IN 


•2410320 
82410330 






• 






»**»»»*•*»**•••»*••♦ 


•2410340 






• 






SINGLE ADDRESS SETUP 


•2410350 






* 






**»»»••**•*»*•»***•* 


824103*0 






• 










62410370 


0R59 


0000 


SASET 


DC 







SE 


•2410380 


0B5A 


6309 




LDX 


3 


9 


SET WORD COUNT - 9 


82410390 


0B5B 01 


6F000008 




STX 


L3 


DTBL 


•INTO OAT* TABLE 


82410400 


0850 01 


6F000D4B 




STX 


L3 


OTBL* 67 




82410410 


0B5F 01 


C4000997 




LO 


L 


OIREG 


SET DI 6RP AOORESS 


82410420 


0B61 01 


04000009 




STO 


L 


DTBL+1 


•INTO DATA TABLE 


82410430 


0B63 01 


04000D4C 




STO 


L 


OTBL+68 




82410440 


0865 01 


7400099A 




MDX 


L 


CHAIN, 


CHECK IF CHAINING 


82410490 


0867 


7 00 A 


• 


MOX 




SA1 




•24104*0 
82410470 






• 






•• 


SETUP WITHOUT CHAIN 


•24104*0 






• 










•2410490 


0868 01 


7400099C 




MOX 


L 


EXTS.O 


CHECK IF EXT SYNC 


•2410500 


086 A 


7013 




MOX 




SA2 


EXTERNAL SYNC BRANCH 


8*410510 


0668 01 


C40009A1 




LO 


L 


SC01 


SET SCAN CONTROL >01 


•2410920 


0B60 01 


EC000008 




OR 


L 


OTBL 




•2410530 


0B6F 01 


04000006 




STO 


L 


OTBL 




•2410940 


0671 


700C 


• 


MDX 




SA2 


tXIT 


62410990 
624105*0 






• 






•• 


SETUP WITH CHAINING ♦• 


82410970 






• 










62410980 


0672 01 


C40009A2 


SA1 


LD 


L 


sen 


SET SCAN CONTROL «ll 


62410990 


0674 01 


EC0O0DO6 




OR 


L 


OTBL 




62410*00 


0676 01 


04000008 




STO 


I 


OTBL 




62410*10 


0678 01 


C40009A0 




LO 


L 


CARCK 


SET NEXT Til AOORS 


•1410*10 


0B7A 01 


04000012 




STO 


L 


OTBL* 10 


•AND CAR CHECK ADORS 


62410*10 


0B7C 01 


D400004A 


• 


STO 


L 


0T6L+46 


•IN DATA 7ABL6 


62410*40 
624106S0 


OBTE 01 


4C600659 


SA2 

• 


6SC 


I 


SAS6T 


EXIT SA SITUP ROUTIN SX 


62410**0 
62410*70 






• 






•a************************ 


61410*60 






• 






RANOOM AND $10 COMPARL RTN 


624106*0 






• 






»***•*••*•••••«*•*•••*•**» 


61410700 






• 










61410710 


0660 


0000 


SRCMP 


oe 







St 


•1410720 


0861 01 


T400099A 




MOX 


L 


CHAIN, 


CHICK IF CHAINING 


•1410710 


0661 


7001 


• 


MOX 




•♦1 




•1410740 
•1410710 


0614 01 


41.800*11 




LOX 


tl 


I0t7*l 


•17 tX « NUMBER ORPt 


•4410760 


0BB6 


7004 


• 


MOX 




• 44 




••410770 
61410780 


0617 01 


61800991 




LOX 


11 


wei 


SET IK < CHAIN MS 1 


624107*0 


0689 01 


74010996 


• 


MB* 


L 


CHNSW a 


CHAIN IN 70 ON 


62410600 
82410810 


0661 


6i0t 




LSx 


t 


i 


INITIAL tit IMBix 


•1410810 


one n 


6100 




LO* 


1 o 




82410810 


DAtf 
EE MS. 


sims* 


Mi 


.' 








m ,6 



0814 



a 



» • 



I ':■ -4 



IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 
01 DC FUNCTION TEST 



0S8D 01 C 6000008 
0B8F 01 74000999 

0891 7001 

0892 7000 



0893 01 07000D8C 



0895 

0896 01 

0B9B 
0B99 
0B9A 
0B9B 
0B9C 
0890 
0B9E 
0B9F 














7301 

C4000998 

4804 

700? 

7202 

7001 

7201 

71FF 

70EE 

7020 



OBAO 01 D4000CCC 
0BA2 01 97000D8C 
08A4 4818 
0BA5 70EF 



0BA6 01 
OBAfl 01 
OBAA 01 
OBAC 
OBAC 
OBAE 01 
OBBO 



C7000D8C 

04000 CC 8 

C4000998 

4804 

7003 

C 6000007 

7006 



0BB1 6B01 

0B32 7001 

0BB3 0000 

0BB4 01 C40009A3 

0BB6 80FC 



0B87 01 
0BB9 01 
0BB8 01 
OBBC 01 
OBBF 01 
0BC1 
0BC2 01 



D4000CC9 

C 4000998 

04000CC8 

C400099A 

04000CCA 

1010 

04000CB5 



0BC4 01 44000CA2 
0BC6 0005 
0BC7 D002 



0BC8 01 C6000008 
OBCA 01 07000D8C 
OBCC 70C8 



KC1 



LO 

MOX 
MOX 
MOX 



DATE 
EC NO. 



28FEB66 
415120 



SRC 2 



12 OTBL 
L ROSW.O 
SRC2-2 
SRC 3 



GET INPUT DATA 

SKIP IF NOT 1ST READ 



STO 13 CTBL 



MDX 

LO 

BSC 

MOX 
MOX 
MOX 
MOX 
MOX 
MOX 
MOX 



1 

MODE 

E 

♦♦2 

2 

*+l 

1 

-1 

SRC1 

SRC 5 






SRC 3 STO 

S 

BSC 

MOX 

* 

to 

STO 

LD 

8SC 

MOX 

LO 

MOX 

STX 

MDX 
DC 

LO 

A 

STO 

LO 

STO 

LO 

STO 

SLA 

STO 



** FIRST READ SET DATA *• 
** IN COMPARE TABLE ** 

SET IN CMP TABLE 

CMP INDEX ♦ 1 
CHECK MODE SKIP IF 
• RANDOM 

MODIFV IX FOR RANDOM 

MODIFY IX FOR SEOTL 
SKIP IF ALL GRPS CKD 
GO CK NEXT GRP 
GO CK IF CHAINING 

** NOT FIRST READ.COMPR »* 
♦♦ PRESENT AND PAST DATA** 



L MESAG+7 
L3 CTBL 

*■- 
SRC2 



SET DATA IN MESSAGE 
CHECK IF PRESENT 
♦DATA SAME AS PAST 
DATA SAME CONTINUE 



*♦ PRESENT DATA NOT SAME** 
** AS PAST, PRINT MSG 2** 



L2 



L3 CTBL 

L MESAG+6 

L MOOE 

E 

*+3 

OTBL-1 

SRC4 

•♦1 
• ♦1 


OISRT 
*-4 



SET PAST DATA IN 
♦PRINT MESSAGE 
SET GRP ADDRS ACCORO 
*ING TO MODE 
SEQUENTIA' MOOE BRNC 
GET RANDOM GRP AOORS 
*ANO SET IN MESSAGE 

BUILD SEQUENTIAL GRP 
♦ADDRESS AND SET IN 
♦MESSAGE GRP ADDRS 
♦EQUALS 0040 ♦ 1X3 



SRC4 



ME SAG +4 

MODE 

MESAG+3 

CHAIN 

MESAG+5 

16 

L0GDH4 



SET 

SET 



IN MESSAGE 
MODE IN MESSAGE 



SET CHAIN INDICATOR 

♦IN MESSAGE 

CLEAR LOG CALL TERM 

♦ADDRESS 



BSI L LOGDT GO PRINT MESAG D2 

DC /0005 WORD COUNT 

DC /D002 MESSAGE ID 

♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦*******»********♦* 

♦ 

LD L2 DT8L SET PRESENT DATA 

STO L3 CTBL *IN COMPARE TABLE 

MOX SRC2 CONTINUE 



SRC 



♦ 
* 



01JUL66 
415178 



** ALL GRPS CHECKED IN ♦♦ 
♦♦ 1ST TABLE CK IF CHAIN" 



i 



PART NO. 2196403 
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82410860 

82410870 

82410880 

82410890 

82410900 

82410910 

82410920 

82410930 

82410940 

82410950 

82410960 

82410970 

82410980 

82410990 

82411000 

82411010 

82411020 

82411030 

82411040 

82411050 

82411060 

82411070 

82411080 

8241 1090 

82411100 

82411110 

82411120 

82411130 

82411140 

82411150 

82411160 

82411170 

82411180 

82411190 

82411200 

82411210 

82411220 

82411230 

82411240 

82411250 

82411260 

82411270 

82411280 

82411290 

82411300 

82411310 

82411320 

82411330 

82411340 

82411350 

82411360 

82411370 

82411380 

82411390 

82411400 

82411410 

82411420 

82411430 

82411440 

82411450 

82411460 

82411470 

82411480 

82411490 

82411500 

82411510 



PROG ID 
PAGE 



0824-0 

9 



IBM MAINTCNANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 
01 DC FUNCTION TEST 



°BCO °l c* 00 ° , ' 9 B 
OBCF 4808 
OBDO 7007 



S RC5 



0BD1 01 
0B03 
0B04 



6580099F 

6245 

1010 



0B05 01 0400099B 
0BD7 70B5 



0BC8 01 74000999 
OBDA 7001 
OBOB 7041 



OBDC 01 C4000998 
OBOE 01 D4000CC8 
OBEO 01 C400099A 
0BE2 01 04000CC9 
0BE4 01 74010C20 
0BE6 01 67000BEE 
0BE8 01 6F000CB5 



OBEA 01 44000CA2 
OBEC 0002 
OBEO D001 



SRC 6 



* 



•-D 
BSC 

HOK 

LDX 
LDX 
SLA 
STO 

MDX 



MDX 
MDX 
MDX 



LD 

STO 

LD 

STO 

MOX 

LDX 

STX 



II 
2 



CH*SW 

SRC6 

HC2 

69 

16 

CHNSM 

SRC1 



CHECK LHAI N SH I T CH 
♦IF ON SET UP FOR 
♦SECON" TABLE DATA 

SET IX « CHAIN WC 2 
DATA IX TO 2ND TABLE 
CLEAR CHAIN SW 



GO CK 2ND TABLE DATA 
*♦ DATA CHECK COMPLETE ** 



ROSW.O 

♦♦1 

SRCB 



MOOE 

MESAG+3 

CHAIN 

MESAG+4 

PRTSW.l 

L3 SRC7 

L3 LOGO 1*4 



CHECK IF 1ST READ 

NOT 1ST READ EXIT 

*1ST READ PRINT CMP TBL" 

SET MODE IN MESSAGE 

SET CHAIN INDICATOR 

♦IN MESSAGE 

SET PRINT SW 

SET LOG CALL TERM 

♦ADDRESS 



♦♦♦♦♦♦♦•ft******************** **••***•******« 
BSI L LOGDT PRINT MESSAGE D 1 

DC /0002 WORD COUNV 

OC /D001 MESSAGE ID 

*♦♦♦*♦♦♦*♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦******»***»**»*» 

♦ 



OBEE 01 


6 7000 BF 7 


SRC 7 


LDX 


L3 SRC8 


SET LOG CALL TERM 


OBFO 01 


6F0O0CB5 




STX 


L3 LOGO I +4 


♦ADORES* 


0BF2 01 


67800813 




LDX 


13 EDIT*1 


SET PRINT COUNTER 


0BF4 


6B2A 




STX 


3 PRCTR 


♦TO NUMBER OF GRPS 


0BF5 


1010 




SLA 


16 


INITIAL INDEX 2 


0BF6 


0001 




STO 


SRC8+1 


♦SETTING 


0BF7 00 


66000000 


SRC 8 


LDX 


L2 


SETUP INDEX 


0BF9 


6100 




LDX 


1 




OBFA 


6308 




LOX 


3 8 




OBFB 01 


C60O008C 




LD 


L2 CTBL 


SET COMPARE TABLE 


OBFD 01 


D5000CCB 




STO 


LI MESAG+3 


♦DATA IN MESSAGE 


OBFF 01 


74FF0C1F 




MOX 


L PRCTR ,-1 


STEP PRINT COUNTER 


0C01 


7001 




MOX 


•♦1 


NOT DONE CONTINUE 


0C02 


7009 


* 


MDX 


SRC9 


LAST GRP IN MESSAGE 


0C03 


7101 




MOX 


1 1 


STEP INOEX FOR NEXT 


0C04 


7201 




MDX 


2 1 


♦GRP IF MSG TABLE 


0C05 


73FF 




MOX 


3 -1 


♦FULL SKIP TO PRINT 


0C06 


70F4 




MDX 


S*C8«4 




0C07 00 


67000108 




LDX 


L3 /0108 


SET LINE NMBER AND 


0C09 


6B0E 




STX 


3 SRCA+2 


♦WORD COUNT IN CALL 


OCOA 


6AED 




STX 


2 SRC8*1 


SAVE I XI 


OCOB 


700A 




MDX 


SRCA 


GO PRINT 


OCOC 


6ei2 


SRC 9 


STX 


3 PRCTR 


BUILD LINE NUMBER 


OCOD 


COFA 




LD 


*-6 


♦AND WORD COUNT FOR 


OCOE 


9010 




S 


PRCTR 


♦LAST LINE OF PRINT 


OCOF 01 


B40009A5 




A 


L ONE 




0C11 


0006 




STO 


SRCA»2 




0C12 


1010 




SLA 


16 


CLEAR PRINT SWITCH 


0C13 


OOOC 




STO 


PRTSW 


♦AND LOG CALL TERM 


0C14 01 


04000CB5 


* 


STO 


! L0GD1+4 


•ADORE SS 






***♦♦♦♦♦*♦♦♦♦*♦**♦*♦»**♦♦♦*******•***»»»»»«** 


0C16 01 


44000CA2 


SRCA 


BSI 


L LOGDT 


PRINT MESSAGE D001 


0C18 


0000 




DC 





LINE NMBR ♦ WORO CNT 


0C19 


0001 




DC 


/D001 


MESSAGE 10 


OATE 


28FE866 


0UUL66 






EC NO. 


415120 


415178 
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82411520 

82411530 
8241 »540 
82411550 
82411560 
82411570 
82411580 
82411590 
82411600 
82411610 
82411620 
82411630 
82411640 
82411650 
82411660 
82411670 
82411680 
82411690 
82411700 
82411710 
82411720 
82411730 
82411740 
82411750 
82411760 
82411770 
82411780 
SRC 82411790 
82411800 
82411810 
82411820 
82411830 
82411840 
82411850 
82411860 
82411870 
82411880 
82411890 
82411900 
82411910 
82411920 
82411930 
8241 1940 
82411950 
82411960 
82411970 
82411980 
82411990 
824.12000 
82412010 
82412020 
82412030 
82412040 
82412050 
82412060 
82412070 
82412080 
82412090 
82412100 
82412110 
e2412120 
82412130 
82412140 
82412150 
82412160 
SRC 82412170 
82412180 
82412190 



PROG ID 
PAGE 



0824-0 
9A 



IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 
01 OC FUNCTION TEST 



0C1A 1010 
0C18 01 0*000*99 
0C1D 01 *C800B80 



0C1F 
0C20 



0000 
0000 



0C21 0000 
0C22 01 C*00099A 
0C2* 01 4C180C28 
0C26 01 7*01099B 



0C28 
0C29 



6202 
6300 



0C2A 6108 
0C2B 01 C6000D08 
0C20 01 7*000999 
0C2F T001 
0C30 7007 



0C31 01 0700008C 



0C33 
0C3* 
0C35 
0C36 
0C37 



7301 
7201 
7 IFF 
7 OF* 
7021 



0C3a oi o*oooccc 

0C3A 01 9700008C 

0C3C *818 

0C30 70F5 



0C3E 


01 


C7000D8C 


0C*O 


01 


0*000CCB 


0C*2 


01 


C*000998 


OC** 


01 


D*000CC8 


0C*6 


01 


C*000997 


0C*8 


01 


0«OOOCC9 


0C*A 


01 


C*00099A 


OC*C 





0070 


OC*D 





1010 


OC*E 


01 


0*000CB5 



0C50 01 **000CA2 
0C52 0005 
0C53 0002 



0C5* 01 C6000008 
0C56 01 07000D8C 
0C58 70DA 



•••••*••••••••* 



## ***»***»***«»*************** 



SLA 

STO 

SRCB BSC 

PRCTR OC 
PRTSH DC 



DATE 
EC NO. 



28FEB66 
*15120 



16 CLEAR FIRST READ 

L RCSW *INDICATOR 
I SRCMP EXIT SR COMPARE RTN SX 

PRINT COUNTER 

PRINT SWITCH 

•»•*•••••••••••••••****•*• 

SINGLE ADORESS COMPARE RTN 
*»**«***»*»*»***♦♦♦***•*** 

SE 



SACMP 


DC 
LO 
BSC 
MDX 


L 
L 
L 




CHAIN 

**2t+- 

CHNSH.l 


CHECK IF CHAINING 
BRANCH IF NOT CHAI 
SET CHAIN SWITCH 


• 


LOX 


2 


2 


INITIALIZE INDEX 




LOX 


3 







• 










SACI 


LOX 

LD 

MOX 

MDX 

MDX 


1 
L2 

L 


8 

DTBL 

RDSrf.O 

SAC2-2 

SACi 


GET INPUT DATA 
SKIP IF 1ST REAO 



**FIRST REAO SET DATA 
**IN COMPARE TABLE 



** 

** 



STO L3 CY8L 



SET IN CMP TABLE 



SAC2 MOX 3 1 

MDX 2 1 

MOX 1 -1 
MOX SAC1+1 
MDX SAC* 

* 
• 

SAC 3 STO L MESAGV7 

S L3 CTBL 

BSC ♦- 

MDX SAC2 

• 

LO L3 CTBL 

STO L MESAG+6 

LD L MODE 

STO L MESAG+3 

LO L OIREG 

STO L MESAG+* 

LD L CHAIN 
STO MESAG+5 
SLA 16 

STO L L0G01+* 

*«*♦*»»»»****♦♦*♦**********♦***************** 

BSI L LOGDT GO PRINT MESAG 02 SRC 
DC /0005 WORD COUNT 
OC /0002 MESSAGE ID 

«*»*»*******>*****»************************** 



SKIP IF ALL DATA CKD 
GO CK NEXT DATA 



** NOT 1ST REAO COMPARE** 



SAVE OATA FOR PRINT 
CHECK IF PRESENT 
•DATA SAME AS PAST 
DATA SAME CONTINUE 



**0ATA NOT SAME PRINT 02** 
SET PAST OATA I* MSG 



SET MODE IN MSG 

SET GRP ADDRS IN MSG 

SET CHAIN IND IN MSG 

CLEAR LOG CALL TERM 
♦ADDRESS 



LD L2 OTBL 
STO L3 CTBL 
MOX SAC2 



SET PRESENT DATA IN 
•COMPARE TABLE 



PART NO. 219**05 
PAGE 10 



82*12200 

82*12210 

82*12220 

82*12230 

82*122*0 

82*12290 

82*122*0 

82*12270 

82*12280 

82*12290 

82*12300 

82*12310 

82*12320 

82*12330 

82*123*0 

82*12350 

82*12360 

82*12370 

82*12380 

82*12390 

82*12*00 

82*12*10 

82*12*20 

82*12*30 

82*12**0 

82*12*50 

82*12*60 

82*12*70 

82*12*80 

82*12*90 

82*12500 

82*12510 

82*12520 

82*12530 

82*125*0 

82*12550 

82*12560 

82*12570 

82*12580 

82*12590 

82*12600 

82*12610 

82*12620 

82*12630 

82*126*0 

82*12650 

82*12660 

82*12670 

82*12680 

82*12690 

82*12700 

82*12710 

82*12720 

82*12730 

82*127*0 

82*12750 

82*12760 

82*12770 

82*12780 

82*12790 

82*12800 

82*12810 

82*12820 

82*12830 

82*128*0 

82*12850 

82*12860 

82*12870 



01JUL66 
*15178 



PROG 10 
PAGE 



082* -0 
10 



!B« MAINTENANCE OlAGNOST'C PROGRAM FOR THE 1800 SYSTEN 



01 OC FUNCTION TEST 

till 8 1 »" B 

0C5C 7005 

OCSO 62*5 
-JCSE 1010 
0C5F 01 0*000998 
0C61 70C8 



SAC* 



0C62 01 7*000999 
0C6* 7001 
0C65 703A 



* 
SAC 5 



* 



0C66 01 
0C68 
0C69 01 
0C6B 
0C6C 01 
0C6E 
0C6F 01 
0C71 01 
0C73 



C*000998 

D05F 

C400099A 

D050 

C*000997 

005B 

7*010C20 

67000C78 

68*1 



'..0 

iUC 

*0X 

LDX 
SLA 

STO 

MDX 



MOX 
MOX 
MOX 



LD 

STO 

LD 

STO 

LO 

STO 

MOX 

LDX 

STX 



L CHNSW 

♦ 

SACS 

2 69 
16 
L CHNSW 
SACI 



check if chaining 
Skip on chat* 



ROSW'O 

•♦1 

SACA 



ON CHAIN 

NEXT TABLE INDEX 
CLEAR CHAIN SW 

GO CK 2ND TBL DATA 

•* DATA CHECK COMPLETE ** 

CHECK IF 1ST READ 

NOT 1ST READ EXIT 

**1ST REAO PRINT CMP TBL** 



MODE 
MESAG*3 
CHAIN 
MESAG** 
DIREG 
MESAG+5 
PRTSWtl 
L3 SAC6 
3 L0GD1** 



SET MODE CHAIN AND 
•REG ADDRS IN MESSAG 



SET PRINT SWITCH 
S"=T TERM ADORESS 



0C7* 01 **000CA2 
0C76 0003 
0C77 D003 



********************************************* 
BSI L LOGDT GO PRINT MSG D 3 

OC /0003 WORD COUNT 

DC /D003 MESSAGE 10 

»*»•»♦*•***»♦*****»»•***********•************ 

SET PRINT COUNTER 
•ACCORDING TO CHAIN 
•INDICATOR 



SET LOG CALL TERM 
•ADORESS 



SRC 



0C78 01 


7*00099A 


SAC6 


MOX 


L CHAIN. 


0C7A 


7002 




MDX 


• ♦2 


0C7B 


6308 




LDX 


3 8 


0C7C 


7001 




MDX 


• ♦I 


0C7D 


6310 




LOX 


3 16 


0C7E 


6BA0 




STX 


3 PRCTR 


0C7F 01 


67000C8* 




LOX 


L3 SAC7 


0C81 


6B33 




STX 


3 L0G01** 


OC82 


1010 




SLA 


16 


0C83 


0001 


p 


STO 


SACT*1 


0C8* 00 


66000000 


SAC 7 


LOX 


L2 


0C86 


6100 




LDX 


1 


0C87 


6308 




LOX 


3 8 


0C88 01 


C6000D8C 




LO 


L2 CTBL 


0C8A 01 


0S000CC8 




STO 


LI ME SAG +3 


0C8C 01 


7*FF0C1F 




MDX 


L PRCTR ,-1 


0C8E 


7001 




MDX 


•♦1 


0C8F 


7006 


• 


MDX 


SACS 


0C90 


7101 




MDX 


1 1 


0C91 


7201 




MOX 


2 1 


0C92 


73FF 




MDX 


3 -1 


0C93 


70F* 




MDX 


SAC7** 


0C9* 


6AF0 




STX 


2 SAC7*1 


0C95 


7003 


• 
• 
• 


MDX 


SAC9 








** 


0C96 


1010 


SACS 


SLA 


16 


0C97 


DOflB 




STO 


PRTSW 


0C96 


OOIC 




STO 


L0GD1** 



0C99 01 **000CA2 



DATE 
EC NO. 



28FEB66 
*1S120 



INITIALIZE INDEX 



SET COMPARE TABLE 
•DATA IN MESSAGE 
STEP PRINT COUNTER 

LAST DATA IN MESSAG 

SET INDEX FOR NtXT 
•DATA IF MESSAGe 
•TABLE FULL GO PRINT 

SAVE INDEX REG 2 



*» LAST PRINT PASS ** 

CLEAR PRINT SWITCH 
♦AND LOG TERMINATION 
•ADORESS 

****••••**•*••***•*****•••********•********** 
SAC9 9S1 L LOGOT CO PRINT MSG 3 SRC 



01JUL66 
*15178 



PART NO. 219**0$ 
PAGE 10A 



isiuns 

•2*12900 

02*12910 

•2*12920 

•2*12930 

82*129*0 

•2*12950 

•2*12960 

82*12970 

82*12980 

82*12990 

82*13000 

82*13010 

82*13020 

82*13030 

82*130*0 

82*13050 

•2*13060 

82*13070 

82*13080 

82*13090 

82*13100 

82*13110 

82*13120 

82*13130 

82*131*0 

82*13150 

82*13160 

82*13170 

82*13180 

82*13190 

82*13200 

•2*13210 

82*13220 

•2*13230 

82*132*0 

82*13250 

82*13260 

82*13270 

•2*13280 

82*13290 

82*13300 

82*13310 

82*13320 

82*13330 

82*133*0 

82*13350 

82*13360 

82*13370 

82*13380 

82*13390 

82*13*00 

82*13*10 

82*13*20 

82*13*30 

82*13**0 

82*13*50 

82*13*60 

82*13*70 

•2*13*80 

b2*13*90 

82*13500 

82*13510 

82*13520 

82*13530 

82*135*0 

82*13550 



PROG ID 
PAGE 



082*-0 
10A 



F 
N 



IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 
01 OC FUNCTION TEST 



C 9b 
0C9C 



0j08 
0003 



0C90 1010 
0C9E 01 04000999 
OCAO 01 4C800C21 



OC /0108 LINE NM 8 R ♦ NOR CNT 

OC /D003 MESSAGE ID 

♦♦it***************************************** 
* 

16 CLEAR FIRST READ 

L RDSU *INDICATOR 

I SACNP EXIT SINGL ADRS CMP SX 



0CA2 
0CA3 
0CA4 01 
0CA6 
0CA7 01 
0CA9 01 
OCAB 



0000 

6B19 

C4800CA2 

001 E 

74010CA2 

C4800CA2 

001B 



OCAC 01 C40O0802 

OCAE 1802 

OCAF 4804 

OCBO 7008 



0CB1 00 4480C12F 
OCB? 1 0CC5 
0CE4 I 0CC2 
0CB5 0000 



0CB6 01 C4000C20 
0CB8 01 4C180C8C 



OCBA 00 4C80012D 



OCBC 00 67000000 
OCBE 01 74010CA2 
OCCO 01 4C800CA2 



0CC2 01 44000AC4 



0CC4 70EC 



SLA 

STO 
SACA BSC 

» 

• 

LOGOT OC 
STX 
LO 
STO 
MOX 
LO 
STO 

LO 
SRA 

BSC 

MDX 



•****•••*•• 

LOG ROUTINE 

*********** 





L0G02+1 

LOGDT 

MESAG 

LOGOT, 1 

LOGOT 

MESAG+2 

SWO 
2 

e 

L0GO2 



SE 



SAVE INDEX 

SET WORD COUNT AND 

*LINE NMBR IN MSG 

SET MESSAGE ID INTO 
♦MESSAGE TABLE 

CHECK IF BYPASS LOG 

♦REQUESTED 

SKIP IF PRINTING 



********************************************* 

L0GD1 BSI I LOG GO PRINT MESSAGE MRC 
DC MESAG MESSAGE AODRESS 
DC LGBSY BUSY RETURN 
DC /OkOO TERMINATION ADDRESS 

*********************************************, 

• 

LO L PRTSW CHECK IF MORE DATA 
BSC L L0GD2,*- *T0 BE PRINTED 

* 

**********•********•********•*****•••*••••*** 

BSC I START GO WAIT FOR END PRNT MRC 

********************************************* 



*» PRINT COMPLETE EXIT ** 



L3 

L 
I 





LOGDT, 1 
LOGDT 



RESTORE INOEX 
BUMP RETURN 
RETURN TO USER 



SX 



** LOG ROUTINE BUSY ** 



L0G02 LOX 
MDX 
BSC 

• 
********************************************* 

LGBSY BSI L RLPC RELEASE PROGRAM SRC 

********************************************* 
• 

LCGD1 TRY AGAIN 

** MESSAGE TABLE *• 



IR ♦ WORD CNT 
INDICATOR 
ID 



MDX 



0CC5 





0000 


• 
MESAG 


DC 





LINE NM 


0CC6 





0000 




DC 





HEX DEC 


0CC7 





0000 




DC 





MESSAGE 


0CC8 





0000 




DC 





MOO 1 


0CC9 





0000 




DC 





MOO 2 


OCCA 





0000 




DC 





MOO 3 


OCCB 





0000 




DC 





MOD 4 


OCCC 





0000 




DC 





MOO 5 


occo 





0000 




DC 





MOO 6 


OCCE 





0000 




OC 





MOD 7 


0CCF 





0000 


• 


DC 





MOO 8 


0ATE 




28FEB66 


01JUI 66 






EC NO. 


415120 


4151TB 







PART NO. 
PAGE 



824 l 3S60 

82413570 
82413580 
82413590 
82413600 
82413610 
82413620 
82413630 
82413640 
82413650 
82413660 
82413670 
82413680 
82413690 
82413700 
82413710 
82413720 
82413730 
82413740 
82413750 
82413760 
82413770 
82413780 
82413790 
82413800 
82413810 
82413820 
82413830 
82413840 
82413850 
82413860 
82413870 
82413880 
82413890 
82413900 
82413910 
82413920 
82413930 
82413940 
82413950 
82413960 
82413970 
82413980 
82413990 
62414000 
82414010 
82414020 
82414030 
82414040 
82414050 
82414060 
82414070 
82414060 
82414090 
82414100 
82414110 
82414120 
62414130 
82414140 
82414150 
82414160 
82414170 
82414180 
82414190 
82414200 
82414210 
82414220 
82414230 



PROG ID 
PAGE 



2196403 
It 



0824-0 
11 



4 

C 



IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 
01 OC FUNCTION TEST 



PART NO. 2196403 
PAGE 11* 













*¥*•••••*•**• 
ERROR ROUTINE 




m\tm 












************* 




82414260 


















82414270 


OCOO 


0000 


LOGER 


DC 









SE 


82414280 


0CD1 


6B1A 




STX 


3 


L0GE2+1 


SAVE INOEX 




82414290 


0C02 01 


C4000998 




LO 


L 


NODE 


SET MODE DSW AND 




82414300 


0CD4 


OOF 3 




STO 




MESAG+3 


•CHAIN INDICATOR IN 




82414310 


0CD5 01 


C40009AB 




LO 


L 


DI1 


•MESSAGE TABLE 




82414320 


0CD7 C 


00F1 




STO 




ME SAG M 






S24 14330 


0CD8 01 


C400099A 




LO 


L 


CHAIN 






82414340 


OCDA 


OOEF 




STO 




MESAG *5 






82414350 


OCOB 01 


C4800C00 




LO 


I 


LOGER 


SET MESSAGE 10 INTO 




82414360 


OCOO 


00E9 




STO 




MESAG+2 


•MESSAGE TABLE 




82414370 


OCDE 01 


F4000972 




EOR 


L 


0108*16 


SET WORD COUNT TO 3 




82414380 


OCEO 


4818 




BSC 




♦- 


•UNLESS MESSAGE ID 




82414390 


0CE1 


7002 




MDX 




•♦2 


•IS EOOD FOR EOOD 




82414400 


0CE2 


6303 




LDX 


3 


3 


•SET WORD COUNT TO 5 




82414410 


0CE3 


7001 




MOX 




♦♦I 






82414420 


0CE4 


6305 




LOX 


3 


5 






82414430 


0CE5 


6B0F 


• 


STX 


3 


MESAG 






82414440 
82414450 






********************************************* 




82414460 


0CE6 00 


44800130 


L0GE1 


BSI 


I 


ERROR 


GO PRINT ERROR 


MRC 


82414470 


0CE8 1 


0CC5 




DC 




MESAG 


MESSAGE ADDRESS 




82414480 


0CE9 1 


0CF1 




DC 




ERBSY 


BUSY RETURN 




82414490 


OCEA 1 


0CF4 




DC 




L0GE3 


LOOP ERROR ADDRESS 




82414500 






********************************************* 




82414510 






• 












82414520 


OCEB 00 


67000000 


L0GE2 


LDX 


L3 





RESTORE INDEX 




82414530 


OCED 01 


74010C00 




MOX 


L 


LOGER, 1 


BUMP RETURN 




82414540 


OCEF 01 


4C800CD0 


• 
• 
* 


BSC 


I 


LOGER 

*• 


RETURN TO USER 
ERROR ROUTINE BUSY ** 


SX 


82414550 
62414560 
82414570 
82414580 






**************************************** t**** 




82414590 


0CF1 01 


44000AC4 


ERBSY 


BSI 


L 


RLPC 


RELEASE PROGRAM 


SRC 


82414600 






********************************************* 




82414610 






• 












82414620 


0CF3 


70F2 


• 


MDX 




L0GE1 


TRY AGAIN 




62414630 
82414640 


0CF4 01 


678009A4 


L0GE3 


LDX 


13 


RTNSU 


SET UP TO RETURN TO 




82414650 


0CF6 01 


C7000CFB 




LD 


L3 


LOOPA 


•OPERATING ROUTINE 




82414660 


0CF8 


0001 




STO 




•♦I 


•ON LOOP ERROR 




82414670 


0CF9 00 


4C0O00O0 


* 


BSC 


L 





EXIT 




82414660 
62414690 


OCFB 1 


OCEB 


LOOPA 


DC 




L0GE2 


ROUTINE 4 RETURN 




82414700 


OCFC 1 


080C 




DC 




RT1ER 


ROUTINE 1 RETURN 




82414710 


OCFO I 


08EA 




OC 




RT2ER 


ROUTINE ? RETURN 




82414720 


OCFE 1 


0990 


• 


DC 




RT3ER 


ROUTINE 3 RETURN 




82414730 
82414740 






• 






***•*••**•• 




82414750 






• 






END 


ROUTINE 




82414760 






* 






*********** 




82414770 






• 












82414780 


OCFF 


0000 


OIENO 


DC 









SE 


82414790 


ODOO 01 


0C0009E2 




XIO 


L 


BLAST 


RESET DI 




82414800 


0002 


2C40 




DC 




/2C40 


CLEAR STORAGE PROTCT 




82414810 


0D03 1 


000 A 


• 


DC 




OTBL+2 


•BIT 




82414820 
82414830 






********************************************* 




82414840 


0004 01 


44000AB9 




BSI 


L 


RLDV 


GO RELEASE DEVICE 


SRC 


82414850 






•**•*»**•***•***•••**•*••••*••******•*•*****-. 




82414860 






* 












82414870 


0D06 01 


4C800CFF 


* 
• 
• 


BSC 


I 


OIEND 

** 


EXIT 
DATA TABLE •• 


SX 


82414880 
82414890 
62414900 
82414910 


DATE 


28FEB66 


01JUL66 










PROG ID 0824-0 


EC NO. 


415120 


415171 












PAGE HA 



F 

N 



IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 
01 OC FUNCTION TEST 



000 8 



0084 



pTBl BSS 



132 



*• COMPARE TABLE ** 



ODBC 


003F 


CTBL 


BSS 


43 


OOCB 


0000 


FEND 


OC 





ODCC 


0829 




END 


OIBGN 



FART NO. 219*403 
FACE 12 



nxmn 

82414*40 
82414990 
824149*0 
B24149T0 
824149*0 



OATE 
EC NO. 



28FEB66 
415120 



01JUL66 
415178 



FROG 10 
PACE 



0824-0 
12 



IBH MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1*00 SYSTEM 
01 OC FUNCTION TEST 

CROSS REFE«E*CE «-ISTI«C 



FART NO. 219*403 
FACE 12* 



SYMBOL 


VALUE 


REFERENCES 


BEGIN 


012C 


07FF.0829 


BLAST 


09B2 


086B,0890,08A3,090A, 
0*61,0000 


CARCK 


09A0 


0B4F.0B78 


CHAIN 


099A 


0B3B,09C2,0A54,0A9C. 
0C4A,OC69,OC78,OC08 


CHNSH 


099B 


0B0A,0B24,0B29, CB89, 


CMRJ 


0932 


0929 


CNTRL 


09AA 


0669 


CRCK 


0133 


08FE 


CTBL 


008C 


0B93,0BA2,0BA6»0BCA, 


OIBGN 


0829 


OOCC 


DIDCC 


0B50 


0601,0807 


OIEND 


OCFF 


0808,0006 


DIICN 


0AA8 


0A88 


01 INT 


0814 


0823, 0860. 0AB2 


DIIRT 


0A7B 


0825 


0IIR1 


o*e5 


0A7F 


DI1R2 


0A93 


0A8A 


0IIR3 


0A9C 


0A92,0A96 


DIIR4 


0AA5 


0A9E,0AA1 


OIRO 


09B0 •>-- 


08B3, 0893 ,06F7,08FA, 


OIREG 


0997 


082F, 0904, 090B, 0900, 
OB40,OBt4,OB5F,OC46, 


DISN 


09AE 


0816, 08 1A, 0863, 0885, 
0A2B.0A57 


OISRT 


09A3 


0820, 087A.06EE, 0942, 


OIOA 


0956 


094E 


OIOB 


0962 


098F,0C0E 


OIOC 


0973 


0967 


0100 


0949 


0955 


OIOE 


084C 


0855 


DIOF 


085C 


084F 


0101 


09BF 


0A48.0A77 


0102 


0905 


0900 


0103 


09F3 


09BE.09C0 


0104 


09F9 


09F2,0A09,0A'»9 


0105 


OAOA 


09FF 


0106 


0A18 


OA1F,OA42,OA90,OA9A 


DI06A 


0A2B 


0A56 


0I06B 


0A4E 


0A38 


DI06C 


0A51 




0107 


0A54 


0A27 


DI08 


0A63 


0A4O.OA53.OA5O.OAA5 


0109 


093A 


0993 


Oil 


09AB 


0618, 0687, 0P99.08A7, 
09FC,0A2O,OA59,OA85, 


012 


09AC 


081C,08CB,OA7B 


OTBL 


0008 


0839, 0644, 0878, 08 7C, 
0962, 096C , 0974, 0992 , 
0B10,0B19,0e37,0B3E, 
0B63,0B6D,0e6F,0B74, 
0C2B.0C 54,0003 


OVBSV 


0AB6 


OABO 


EOIT 


0812 


0851,09E5,OAAA,OAB1, 
0BF2 


ENO 


012E 


07FF , 08C0.091 8, 0970, 


EPA 


0808 




ERBSY 


CCF1 


0CE9 


ERROR 


0130 


07FF.0CE6 


EXTS 


099C 


0830, 09C5, OAOA, 0A24, 


HOLO 


0AA7 


0A87,OA8E,0A93 


INIOI 


082C 


0806, 084A 


IPA 


0806 




IREAO 


09A9 


0865 


OATE 


28FEB66 


01JUL66 


EC NO. 


415120 


415178 



0923, 0952, 0990,OA03.0A43.0A51» 

0AD7, 0665, 0881, OBBO.OBEO.0C22. 
06C0,0805,0C26,0C59.0C5F 

0BFB,9C31,0C3A,0C3E,0C56,OCS6 



1 
i 

i 
i 
i 
1 
i 
i 
i 



0900, 0959, 095A.OA16.0A17 

09EO,09E8,09EC,OB1«.OB17,OB1F, 

0C6C 

0897, 08A5, 0906, 094*. 0950, 09FB, 

090F,09E4,09EB,0B12,06B4 



0803. 0908,0925, 094B.095E, 0986, 
0C05 

08EC,08FO,093C, 0940,0943. 0948, 
09A0 , 09BO.OAEB ,0AF4,0B08 -OBOE , 
0B46.OB51,0B53,0B5B.0B5O,0B61, 
0B76,0B7A,0B7C,0B8O.0BAE,0BCB. 



0ABA,0AC0,0AOA.OAEl,OAE7,0B84, 
0A1C.0AT3 
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t6fi sv 

LOGOT 

L0G01 

L0GD2 

tOGER 



L0GE1 

L0GE2 

L0GE3 

LOOPA 

L0ST1 

LPA 

MESAG 



MLSCF 

MODE 



ONE 

PEND 

PIO 

PRCTR 

PRTSW 

RAO 

RDIO 

ROSH 

RELOV 

REODV 

RID 

RID01 

RID02 

RID03 

RID04 

RLDV 

RLPC 

RL1 

RODV 

RTNSW 

RTN10 

RTN11 

P.TN12 

RTN13 

RTN20 

RTRN 

RT01 

RT01E 

RT02 

RT03 

RT04 

RT1ER 

RT1IN 

RT2ER 

RT2IN 

RT3ER 

RT3IN 

SACA 

SACMP 

SAC1 

SAC? 

SAC3 

SAC* 

SAC5 



DATE 
EC NO. 



8SS? 

0CA2 
0CB1 

ocac 

OCDO 



0CE6 
OCEB 
0CF4 
OCFB 
0A4A 
0807 
0CC5 



0809 
0998 



09A5 

OOCB 
07FF 
0C1F 
0C20 
0601 
09A0 
0999 
0132 
0131 
0800 
08E0 
0930 
0994 
09B4 
0AB9 
0AC4 

OACE 
0AA9 
09 A4 
08A3 
08B2 
08C3 
08B7 
090F 
0825 
086F 
0876 
08E2 
0933 
09B6 
08CC 
08CB 
08EA 
0923 
0990 
0986 
OCAO 
0C21 
0C2A 
0C33 
0C38 
0C59 
0C62 



8tPf\ 

0A3B. 
OCBE, 
0BC2, 

0CA3, 

08 8C, 

098C, 

OCED, 

0CF3 

OCDl, 

OCEA 

0CF6 

0A31 

0848 

096A, 

0BE2, 

0C8A, 

0822, 

0832 

0A66, 

0C66, 

0834, 

OCOF 

080C 

0P2B, 

0BF4, 

0BE4, 

0867, 

0836, 

07FF, 

07FF, 

0870, 

086F 

08E2 

0933 

09B6 

086D, 

088F, 

0A07, 

0AC5, 

085E, 

081E, 

089C, 

08AB 

08CF 

08D7, 

092B, 

0820 

08C9, 

080E 

08CA, 

0922, 

0985, 

OCFC 

0826 

OCFO 

0827 

OCFE 

0828 

0C65 

0A6C, 

0C36, 

0C2F, 

0C30 

0C37 

0C5C 



0CB1 

OBC4,08EA,OC16,OC50,OC74,OC99,OCA4,OCA7,OCA9, 

OCCO 

0BE8,0BF0,OC14,0C4E,OC73,OC81,OC98,OCC4 

0CB0.0CB8 

089F,08ACt 0800, 0808, 090C092C ,094F,095F, 0970, 

0A00,0A4A,OA4E,OA5E,0A80,OA8B,0A97,OAA2,0COB, 

OCEF 

OCFB 



0A34 

096E,0A22,0A39,0BA0,0BA8,0BB7,0BBB,0BBF,0BDE, 

0BFD,0C38,0C4O,0C44,OC48,OC4C,OC68,0C6B,OC6E, 

OCA6,OCAB,OCB3,OCO4,0C07,OC0A,OC0O,0CE5,OCE8 

0849, OAC A 

087E,08F2,0946,0956,09BA,09C7,09CA,OA12,OA20, 

OADC,0AF9,0BlB,OB2B,0B96,O8AA,OBB9,OBOC,OC42, 

0C02 

08C6,09B9,09C8,O9Dl,09E7,0AE9,OB06,0B3C,OB4A, 



08FC 

OBFF,0COC,OCOE,OC7E,OC8C 

0C13,0C6F,0C97,0CB6 

0e81,08F5,0958,0A15 

O9C9,0B8F,0B08,0ClB,0C20,OC62,OC9E 

OABE 

OAAE 

08E3,0934,09B7 



08B7.090F, 0977, 0A05, 0A45,0A63,0AC2, 0004 

08AF,08B3,08B9,080C, 0904, 0911, 0953, 0958,0979, 

0A18,0A65,0A83,0AB6,0A04,0CC2,0CF1 

0AC6,0AC7,0AC8 

0874,08E8,0938,09F9,0AB4,0AB8 

08 72, 08BC08E6, 0914, 0937.0976, 0CF4 

08B1 



080B 
092F 

08E1 

0921,0931 
0984,0995 
09B5 



OCAO 
0C61 
0C30.0C58 



28FEB66 
415120 



01 JUL 66 
415178 
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S* c 6 


O c 78 


0C71 


SAC7 


0C84 


OC 7F , OC 83 , 0C9 3, OC 94 


SACS 


0C96 


0C3F < 


SAC9 


0C99 


0C95 


SAINO 


0990 


083F,09CE«09D2,09F4 


SASET 


0B59 


09F0,0B7E 


SA1 


0B72 


0B67 


SA2 


0B7E 


0B6A.0B71 


SCOl 


09A1 


093£,0AF0,0B6B 


sen 


09A2 


0B0C0872 


SENSE 


09A8 


0861 


SPVCK 


0996 


0989 


SRCA 


0C16 


OC09,OCOB,OC11 


SRC8 


0C10 


08DB 


SRCMP 


OBSO 


0A6F.0C10 


SRC1 


0880 


0B9E.0BD7 


SRC2 


0B95 


0891,0BA5,0BCC 


SRC3 


OBAO 


0B92 


SRC4 


0BB7 


OBBO 


SRC5 


OBCO 


0B9F 


SRC6 


0BC8 


OBOO 


SRC7 


OBEE 


0BE6 


SRC8 


0BF7 


0BEE,0BF6,0C06,0C0A 


SRC9 


OCOC 


0C02 


SRSET 


0A06 


09F7.0B5T 


SRI 


0AE7 


OAOF 


SR2 


0AF7 


0A09 


SR3 


0B04 


OAFC 


SR4 


0B10 


0AF6 


SR5 


0B17 


0823,0056 


SR6 


0B3A 


0B2E 


SR7 


0B46 


0B39 


SR8 


0B57 


0B27 


START 


0120 


07FF,0ACC,0CBA 


SUO 


0802 


08BE, 0916, 097B,OA1A,OA71, OCAC 


SW1 


0803 


08C2,091A,097F 


SW2 


0804 


09BB,09D5,09£E,09F5,OA3F,OA46,OA75 


SH3 


0805 




TERM 


080B 


093A, 0964,0968, 0AB3.0AC1 


THREE 


09A7 


08C4.091C, 0981, 0982 


TWO 


09A6 


08S3,091E,093F,09CB,0AE3,0B00,0B34 


WC1 


099E 


084D.0857,085A,OAF7,OAFE,OB04.0B42 


WC2 


099F 


085C,0B2F,0B32,0B3A,0BD1 



DATE 
EC NO. 



26FE866 
415120 



01JUL66 
415178 
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